Interesting concept. Not entirely Perl related but then I guess this is a Meditation.
There is a bug in this line (would have been caught by use strict :-) $wordgo=hm should read $word&go=hm.
my $url = "http://barcl.pisem.net/obr2.html?name=$name&user=$user&pass +=$pass&word=$wordgo=hm&loginButton=%20%20Verify%20%20"; # it should be: my $url = "http://barcl.pisem.net/obr2.html?name=$name&user=$user&pass +=$pass&word=$word&go=hm&loginButton=%20%20Verify%20%20";
Also = 20,000 means = 20 void context 000. You probably meant = 20_000 or = 20000
cheers
tachyon
s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print
In reply to Re: Enough is Enough - Taking the fight back to the Internet scammers
by tachyon
in thread Enough is Enough - Taking the fight back to the Internet scammers
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |