ringrazio cHoBi per l'aiuto nel codarlo..
qst md5 cracker si appoggia ad md5oogle
Codice:
#!/usr/bin/env perl
use strict;
use warnings;
use LWP::Simple;
print "Insert the hash to search: ";
my $hash = <STDIN>;
my $url = "http://md5oogle.com/decrypt.php?input=$hash";
my @data = split("\n", get($url)) or die "Fail";
my $found = 0;
foreach (@data) {
if ($_ =~ m/Result:\s/) {
$_ =~ s/^.*.Result:\s+//;
$_ =~ s/<\/b><br.*$//;
$found = 1;
print "Hash: $_\n";
}
}
if ($found == 0) {
print "Hash not found\n";
}
