Name: Anonymous 2007-10-26 22:50
use IO::Socket;
sub cn {
return IO::Socket::INET->new(Proto,"tcp",PeerAddr,$_[0],PeerPort,80);
}
$c = "";
$l = cn("freerice.com");
print $l "GET /index.php HTTP/1.1\nAccept: */*\nHost:www.freerice.com:80\nConnection: Close\n\n";
while(<$l>){$c.=$_;}
$c =~m/Cookie:(.*)/g;
$cc = $1;
$c=~m/PAST"\svalue='([\']*)'[^\d]*([\d]*)[^\d]*\d[^\d]*([\d]*)/g;
@r = ($1,$2,$3);
$c=~m/<strong>([^<]*)/g;
@r[3]=$1;
for($i=1;$i<5;$i++) {
$c=~m/$i'\)">([^<]*)/g;
@r[3+$i]=$1;
}
$c = "";
$a = cn("dictionary.reference.com");
print $a "GET /browse/".@r[3]."\nAccept: */*\nUser-Agent: Firefox()\nHost:dictionary.reference.com:80\nConnection: Close\n\n";
while(<$a>){$c.=$_;}
%ii = ();
print "For: ".@r[3]."\n";
for($i=1;$i<5;$i++) {
@mm = $c =~/@r[3+$i]/gi;
$ii{$i} = scalar @mm;
print @r[3+$i]." matched ".$ii{$i}." times.\n";
}
@om = sort {$ii{$b}<=>$ii{$a}} keys %ii;
$q = cn("freerice.com");
print $q "POST /index.php HTTP/1.1\nAccept:*/*\nHost: www.freerice.com:80\nContent-Length: ".(28+length(@r[0].@r[1].@r[2]))."\nCookie: ".$cc."\nContent-Type: application/x-www-form-urlencoded\n\nSELECTED=".@om[0]."&PAST=".@r[0]."&INFO=".@r[1]."&INFO2=".@r[2]."\n\n";
while(<$q>){
if($_=~/Correct!/gi){print "Isa gret suces ena kazagzdan\n";}
elsif($_=~/Incorrect/gi){print "Is nod sug gret suces, girls juz wona av fugh ena gazagzdan\n";}
}
__END__
anythinganywhere:~ anyoneanywhere$ perl /home/anyoneanywhere/Documents/fricec.pl
For: rebellious
tricky matched 0 times.
disastrous matched 0 times.
insubordinate matched 3 times.
essential matched 0 times.
Isa gret suces ena kazagzdan
sub cn {
return IO::Socket::INET->new(Proto,"tcp",PeerAddr,$_[0],PeerPort,80);
}
$c = "";
$l = cn("freerice.com");
print $l "GET /index.php HTTP/1.1\nAccept: */*\nHost:www.freerice.com:80\nConnection: Close\n\n";
while(<$l>){$c.=$_;}
$c =~m/Cookie:(.*)/g;
$cc = $1;
$c=~m/PAST"\svalue='([\']*)'[^\d]*([\d]*)[^\d]*\d[^\d]*([\d]*)/g;
@r = ($1,$2,$3);
$c=~m/<strong>([^<]*)/g;
@r[3]=$1;
for($i=1;$i<5;$i++) {
$c=~m/$i'\)">([^<]*)/g;
@r[3+$i]=$1;
}
$c = "";
$a = cn("dictionary.reference.com");
print $a "GET /browse/".@r[3]."\nAccept: */*\nUser-Agent: Firefox()\nHost:dictionary.reference.com:80\nConnection: Close\n\n";
while(<$a>){$c.=$_;}
%ii = ();
print "For: ".@r[3]."\n";
for($i=1;$i<5;$i++) {
@mm = $c =~/@r[3+$i]/gi;
$ii{$i} = scalar @mm;
print @r[3+$i]." matched ".$ii{$i}." times.\n";
}
@om = sort {$ii{$b}<=>$ii{$a}} keys %ii;
$q = cn("freerice.com");
print $q "POST /index.php HTTP/1.1\nAccept:*/*\nHost: www.freerice.com:80\nContent-Length: ".(28+length(@r[0].@r[1].@r[2]))."\nCookie: ".$cc."\nContent-Type: application/x-www-form-urlencoded\n\nSELECTED=".@om[0]."&PAST=".@r[0]."&INFO=".@r[1]."&INFO2=".@r[2]."\n\n";
while(<$q>){
if($_=~/Correct!/gi){print "Isa gret suces ena kazagzdan\n";}
elsif($_=~/Incorrect/gi){print "Is nod sug gret suces, girls juz wona av fugh ena gazagzdan\n";}
}
__END__
anythinganywhere:~ anyoneanywhere$ perl /home/anyoneanywhere/Documents/fricec.pl
For: rebellious
tricky matched 0 times.
disastrous matched 0 times.
insubordinate matched 3 times.
essential matched 0 times.
Isa gret suces ena kazagzdan