#code needs a little fix's but works. 
#all it does is reads sploits file which contains vuln cgi scripts
#sploits file is easly upgraded for everyone.
#crypt1, 
#!/usr/bin/perl

use Socket;
use Benchmark;

my(@file, @temp, $crap, $found, $exploit, $temp, $iaddr, $paddr, $s, $hi);

if($ARGV[0] eq '') {
    print "Enter hostname as argument\n";
    exit();
}

open(FILE, "<\./sploits");
@file = <FILE>;
close (FILE);

print "Press any key to begin checking for files....\n";
getc();

foreach $exploit(@file) {
    $iaddr = inet_aton($ARGV[0]) || die "$ARGV[0]: $!";
    $paddr = sockaddr_in('80',$iaddr);
    socket( S,PF_INET,SOCK_STREAM,getprotobyname('tcp')) or die $!;
    connect( S,$paddr) || die "$!";
    $s = select(S); $|=1; select($s);
    
    print S "$exploit\n";

    @temp=<S>;
    $temp=join(" ", @temp);

    if(!($temp =~ /not found/io)) {
	($crap, $found) = split(" ", $exploit);
	print "Found file $found\n\n"; 
    }
	       
    close (S);
}