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

[Back to original message]