#! /usr/bin/perl  -w
# MD5Searcher by Tarigonik =)
# USING: md5s.pl hash [top OR all]   
# Where top - searching on 5 servers, all - on 35 )) (default "top")

use LWP::UserAgent;
$server = "top";
if (@ARGV == 0) { die "Need hash!\n" } 
($hash, $server) = @ARGV;
if (@ARGV == 1) {$server = "top"}
open (OUT, ">out.html") || die "Can't write in file!: $!"; #Debug
my $ua = LWP::UserAgent->new(agent=>'Mozilla/5.0 (Windows NT 5.1) Gecko/20071127 Firefox/2.0.0.11',
				timeout=>120);
$req = $ua->post('http://md5search.uk.to/index.php',							
					{ hash => $hash, 
					  server => $server, 
					  token => "md5s",
					  tryb => "search" });
my $content = $req->content;
print OUT $content;
my @res = $content =~ /"green">(.*?)<\/font/g;
if ($req->is_success && $1 ne "Not found") {
	foreach (@res) {
		print "Password = $_" if $_ ne "Not found"; }}	
elsif ($req->is_error) {print "\nERROR! TRY AGAIN!\n"}
else { print "Password Not Found"}
close (out);

md5s.pl hash [servers]