3 # Purpose: create lots of random users and passes
4 # for testing your radius server
5 # Read doc/README.testing for more information
7 $passfile = "./passwd";
8 $shadfile = "./shadow";
9 $radfile = "./radius.test";
10 $nocrypt = "./passwd.nocrypt";
11 $users = "./radius.users";
14 print "\n\tUsage: $0 <number of users>\n\n";
22 open(PASS, ">$passfile") || die "Can't open $passfile";
23 open(SHAD, ">$shadfile") || die "Can't open $shadfile";
24 open(RAD, ">$radfile") || die "Can't open $radfile";
25 open(NOCRYPT, ">$nocrypt") || die "Can't open $nocrypt";
26 open(USERS, ">$users") || die "Can't open $users";
28 for ($num=0; $num<$numusers; $num++) {
31 for($i=0; $i<rand($userlen)+2; $i++) {
32 do { ($char = chr((rand 25)+97))} until $char=~/[A-Za-z]/;
35 # Make sure they're unique
36 if(($userlist{$username}) || (getpwnam($username))) {
40 $userlist{$username} = 1;
44 for($i=0; $i<rand($passlen)+2; $i++) {
45 do { ($char = chr((rand 25)+97))} until $char=~/[A-Za-z]/;
49 if (length($num)%2==1) {
52 printf PASS "$username:%s:1001:1001:Name:/dev/null:/dev/null\n", crypt($password, $password);
53 printf SHAD "$username:%s:1000:0:99999:7:::\n", crypt($password, $password);
54 printf RAD "User-Name=$username, User-Password=$password,NAS-IP-Address=127.0.0.1,NAS-Port-Id=0\n\n";
55 print NOCRYPT "$username:$password\n";
56 print USERS "$username Cleartext-Password := \"$password\"\n\tClass=\"0x$num\"\n\n";
64 print "\nCreated $numusers random users and passwords\n\n";