=**************************************
    = Name: Adult Check Checker
    = Description:Ever been to a board and s
    =     een lots of adult check passes, want to 
    =     report them but don't want to waste ther
    =     e time with ones they already have down 
    =     as stolen. Well here this is for you :).
    =     
    = 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=360&lngWId;=6    =for details.    =**************************************
    
    #!usr\bin\perl
    ####################################
    ## AdultCheck Catcher ##
    ## Copyright iron saTan (C)##
    ## ironsatan@satanshideaway.com##
    ####################################
    use IO::Socket;
    print "Scanning for Adult Check Checker!\n";
    print "By iron saTan(ironsatan@satanshideaway.com\n\n\n";
    open (id,"c:/adultchecks.txt") or die "Can't open quote file";
    @ids=<id>;
    chomp(@ids);
    close id; 
    foreach $id (@ids){
    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:/double.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 is still ok!";
    print FOUND "\n$id";
    }
    }
    }
    $bitch = "";
    }
    print "\nEnd of check!";