threatexpertmd5search.pl

#!/usr/bin/perl -w


use LWP::Simple;


$input = $ARGV[0];


$url = 'http://www.threatexpert.com/report.aspx?md5='.$input;
my $fetch = get ($url);



if ( md5check () >= 0 and
    $fetch !~ m/Sign In/g){
    $fetch =~ s/\<[^>]*\>//g;
    $fetch =~ s/&nbsp;//g;
    $fetch =~ s/"//g;
    $fetch =~ s/body a \{color:(.*)\}//g;
    $fetch =~ s/_uacct =(.*)\;//g;
    print $fetch;
}else{
    print "\n\n\n"."$input has not been submitted"."\n\n\n";
}


sub md5check{
if ($input =~ m/[0-9a-f]{32}/i){
    $input =~ tr/a-z/A-Z/;
}else{
    print "\n\n\n"."Valid MD5 Please"."\n\n\n";
    exit;
    }
}