|
Posted by Brian Wakem on 05/31/06 17:14
Nospam wrote:
> Is there a tutorial on dynamic SID generation?
#!/usr/bin/perl
use strict;
use warnings;
use String::Random;
my $str = new String::Random;
print $str->randregex('\w{24}'), "\n" foreach 1..10;
########
Output:
FdvbJ3izP7EIRWaDdc5zp7HS
cbzQ5EOuRopqZeaVFPF_WZS3
Up3Dl84Un0jKMqVWl7QFY2sL
0A0G5NySsbx_WIA0UXewLZXV
R7EEj7wS5L0aLnpWhvBTKFrw
m3gwaEDqTmqzDecTh8KwHihB
e13WljcHp1yZAeeBXhWYtWkU
P3xZM2YbjyQx3ssAsnXjb47o
f2Y7Y2KiyGN_3bSZgKXtlcG6
oveuUqFXHzx6jaoO9CNbRhwQ
--
Brian Wakem
Email: http://homepage.ntlworld.com/b.wakem/myemail.png
Navigation:
[Reply to this message]
|