{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}}
{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\f0\fs20 #!/usr/bin/perl\par
use strict;\par
use warnings;\par
use Digest::MD5 qw(md5 md5_hex md5_base64);\par
my @names_list = (name1, name2, and so on .. you must put here the names);\par
#I store this so in case i'll use this again, or adding some names, i won't have to keep the count\par
my $array_length = $#names_list + 1;\par
print "Array length is " . $array_length . "\\n";\par
my $file_names = 'file_names.txt'; #used to store names and surnames\par
my $file_users = 'file_users.txt'; #used to store users and passwords\par
open(INFO1, ">$file_names");\par
open(INFO2, ">$file_users");\par
my $has_two_surnames;\par
my $i;\par
my $name;\par
my $surname; #because i have only one field in the db, i have to concat the 2 surnames\par
my $surname1;#one of the surname\par
my $surname2;#one of the surnames\par
my $username;\par
my $password;\par
for( $i=0 ; $i < 70000000; ++$i)\par
\{\par
#15825911 Marton's Magical Number\par
if ($i % 15825911 eq 0)\par
\{\par
print "Step " . $i . "\\n";\par
\}\par
$has_two_surnames = int(rand(10));\par
#let's say 4 of 10 people have two surnames\par
if ($has_two_surnames < 4 )\par
\{\par
$name = $names_list[int(rand($array_length))];\par
$surname1 = $names_list[int(rand($array_length))];\par
$surname2 = $names_list[int(rand($array_length))];\par
$surname = $surname1 . \rdblquote  \rdblquote  . $surname2;\par
$username = $name . $surname1 . $surname2 . $i;\par
$password = md5_hex $username;\par
#print $i . \rdblquote  \rdblquote  .$name . \rdblquote  \rdblquote  . $surname . \rdblquote  \rdblquote  . $username . \ldblquote\\n\rdblquote ;\par
#print to file user ; as a separator\par
print INFO1 $i . \ldblquote ;\rdblquote  .$name . \ldblquote ;\rdblquote  . $surname . \ldblquote\\n\rdblquote ;\par
print INFO2 $i . \ldblquote ;\rdblquote  . $username . \ldblquote ;\rdblquote  . $password . \ldblquote\\n\rdblquote ;\par
\}\par
else\par
\{\par
$name = $names_list[int(rand($array_length))];\par
$surname = $names_list[(int(rand($array_length)))];\par
$username = $name . $surname . $i;\par
$password = md5_hex $username;\par
#print $i . \rdblquote  \rdblquote  .$name . \rdblquote  \rdblquote  . $surname . \rdblquote  \rdblquote  . $username . \rdblquote  \rdblquote  . \ldblquote\\n\rdblquote ;\par
#print to file used ; as a separator\par
print INFO1 $i . \ldblquote ;\rdblquote  .$name . \ldblquote ;\rdblquote  . $surname . \ldblquote\\n\rdblquote ;\par
print INFO2 $i . \ldblquote ;\rdblquote  . $username . \ldblquote ;\rdblquote  . $password . \ldblquote\\n\rdblquote ;\par
\}\par
\}\par
close(INFO1);\par
close(INFO2);\par
\par
}
 
