Locked Md5 Hash Lookup

[sQuo]

This is the hidden content, please

• Sign In
• or
• Sign Up

 

Sites:

This is the hidden content, please

• Sign In
• or
• Sign Up

 

[LENGUAJE=perl]#!/usr/bin/perl

# m-a_labz

use LWP::UserAgent;

use strict;

our (@hashes,$uag,$h);

$uag = LWP::UserAgent->new;

$uag->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.4');

$uag->timeout(10);

print "\n[+] Janiss Hash Lookup \n ";

print "\t Total Sites : 12\n\n";

a:

print "* Hash : ";

my $hash = ;

chomp($hash);

if ($hash =~ /\.txt/){

open (hashes, "

@hashes = ;

close hashes;

}else{

@hashes = ($hash);

}

print " + Total Hashes : ".scalar(@hashes)."\n\n";

foreach $h(@hashes)

{

chomp($h);

if($h =~ /[a-f0-9]{32}/){

print "* Looking for ".$h."\n\n";

postcracked($h);

getcracked($h);

nafsiyeh($h);

}else{

print "- ".$h." Not a Valid Md5 \n";

}

}

print "\n\t ------------------------------- \n";

goto a;

sub postcracked{

my @url = ("http://md5.my-addr.com/md5_decrypt-md5_cracker_online/md5_decoder_tool.php","http://www.cloudcracker.net/index.php","http://md5decryption.com/","http://www.md5.net/cracker.php");

my @names = ("http://md5.my-addr.com/","http://www.cloudcracker.net/","http://md5decryption.com/","http://www.md5.net/","http://www.hashcracker.org/");

my @posts = ("md5=".$_[0],"inputbox=".$_[0]."&submit=Crack+MD5+Hash%21","hash=".$_[0]."&submit=Decrypt+It%21","hash=".$_[0]);

my @regexs = ("Hashed string\: (.*?)","value=\"(.*?)\" \/> ","Decrypted Text: (.*?)","size=\"32\" value=\"(.*?)\"\/>");

my $counter;

 

for ($counter=0; $counter

my $req = HTTP::Request->new(POST => $url[$counter]);

$req->content_type('application/x-www-form-urlencoded');

$req->content($posts[$counter]);

my $res = $uag->request($req);

if ($res->is_success) {

if($res->content =~ m/$regexs[$counter]/i){

if($1 =~ m/Entry not found/i){

print "\t- ".$names[$counter] ." Password Not Found \n";

}else{

print "\t+ ".$names[$counter] ." Password : ".$1."\n";

next;

}

}

elsif ($res->status_line =~ /404,501,301/) {

print "\t- ".$names[$counter] ." Seem to be down \n";

}else{

print "\t- ".$names[$counter] ." Password Not Found \n";

}

}

}

}

 

sub getcracked{

my @geturls = ("http://hashes.org/api.php?do=check&hash1=".$_[0],"http://md5.rednoize.com/?p&s=md5&q=".$_[0],"http://md5decoder.org/".$_[0],"http://netmd5crack.com/cgi-bin/Crack.py?InputHash=".$_[0],"http://www.md5rainbow.com/".$_[0],"http://md5decoder.com/".$_[0]);

my @getnames = ("http://hashes.org/","http://md5.rednoize.com/","http://md5decoder.org/","http://netmd5crack.com/","http://www.md5rainbow.com/","http://md5decoder.com/");

my @getregexs = ("true(.*?)","\"(.*?)\"\n","Phrase\: \"(.*?)\" hashed","(.*?)\n","\n(.*?)
","

(.*?)");

my $counter;

for ($counter=0; $counter

{

my $req = HTTP::Request->new(GET => $geturls[$counter]);

$req->header(Accept => 'text/xml,application/xml,application/xhtml+xml,text/html');

my $res = $uag->request($req);

if ($res->is_success) {

if($res->content =~ m/$getregexs[$counter]/i){

if($1 =~ m/have that hash in our database/i || $1 =~ m/no reverse string was found/i ){

print "\t- ".$getnames[$counter] ." Password Not Found \n";

}else{

print "\t+ ".$getnames[$counter] ." Password : ".$1."\n";

next;

}

}

elsif ($res->status_line =~ /404,501,301/) {

print "\t- ".$getnames[$counter] ." Seem to be down \n";

}else{

print "\t- ".$getnames[$counter] ." Password Not Found \n";

}

}

}

}

 

 

 

sub nafsiyeh{

my @nurl = ("http://md5.gromweb.com/query/".$_[0],"http://md5.darkbyte.ru/api.php?q=".$_[0]);

my @nnames = ("http://md5.gromweb.com/","http://md5.darkbyte.ru/");

my $counter;

 

for ($counter=0; $counter

my $req = HTTP::Request->new(GET => $nurl[$counter]);

$req->header(Accept => 'text/xml,application/xml,application/xhtml+xml,text/html');

my $res = $uag->request($req);

if ($res->is_success) {

if(length($res->content) > 1){

print "\t+ ".$nnames[$counter] ." Password : ".$res->content."\n";

next;

}

else{

print "\t- ".$nnames[$counter] ." Password Not Found \n";

}

}

}

}[/LENGUAJE]