Adult Check Checker

				
=**************************************
= Name: Adult Check Checker
= Description:Ever been to a board and seen lots of adult check passes, want to report them but don't want to waste there 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://www.Planet-Source-Code.com/vb/scripts/ShowCode.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!";