######################################################################
# Portable MD5 Cracker By Diar Portable - #Portable@Allnetwork
# arusar@ymail.com
# Version 1.00
# 21 Desember 2010
# Update 26 Desember 2010
######################################################################
package require http 2.0

bind pub - !pmd5 find_md5

proc find_md5 {nick host hand chan rest} {
set target_md5 [lindex $rest 0]
set target_md5 [url-encode $target_md5]
putserv "PRIVMSG $chan :trying to crack $target_md5..." 
set md5_rednoize [get_md5:md5.rednoize.com "$target_md5"]
set md5_md5decryption [get_md5:md5decryption.com "$target_md5"]
set md5_bigtrapeze [get_md5:bigtrapeze.com "$target_md5"]
set md5_hashkiller [get_md5:hashkiller.com "$target_md5"]
set md5_hashcracking [get_md5:hashcracking.com "$target_md5"]
set md5_alimamed [get_md5:alimamed.pp.ru "$target_md5"]
putserv "PRIVMSG $chan :rednoize.com -=> $md5_rednoize"
putserv "PRIVMSG $chan :md5decryption.com -=> $md5_md5decryption"
putserv "PRIVMSG $chan :bigtrapeze.com -=> $md5_bigtrapeze"
putserv "PRIVMSG $chan :hashkiller.com -=> $md5_hashkiller"
putserv "PRIVMSG $chan :hashcracking.com -=> $md5_hashcracking"
putserv "PRIVMSG $chan :alimamed.pp.ru -=> $md5_alimamed"
}
#start cracking
proc get_md5:md5.rednoize.com {md5} {
	set url "http://md5.rednoize.com/?s=md5&q=$md5"
	set md5_result "not found"
	set http [http::config -useragent mozilla] 
	set http [http::geturl $url -timeout [expr 4000 * 10]] 
	set html [http::data $http] 
    regsub -all "\n" $html "" html
	regexp {<div id=\"result\" >(.*)</div>} $html md5_result 
	regsub -all "</div>" $md5_result "\n" md5_result 
	regsub -all "<div id=\"result\" >" $md5_result "" md5_result
	return "$md5_result" 
}
proc get_md5:md5decryption.com {md5} {
	set md5 "hash=$md5&submit=Decrypt+It%21"
	set url "http://md5decryption.com/index.php"
	set md5_result "not found"
	set http [http::config -useragent mozilla] 
	set http [http::geturl $url -type "application/x-www-form-urlencoded" -query $md5 -timeout [expr 4000 * 10]] 
	set html [http::data $http] 
    regsub -all "\n" $html "" html
	regexp {Decrypted Text:(.*)</font>} $html md5_result 
	regsub -all "</font>" $md5_result "\n" md5_result 
	regsub -all "Decrypted Text: </b>" $md5_result "" md5_result
	return "$md5_result" 
}
proc get_md5:bigtrapeze.com {md5} {
	set md5 "query=$md5&+Crack+=Submit+Query"
	set url "http://www.bigtrapeze.com/md5/index.php"
	set md5_result "not found"
	set http [http::config -useragent mozilla] 
	set http [http::geturl $url -type "application/x-www-form-urlencoded" -query $md5 -timeout [expr 4000 * 10]] 
	set html [http::data $http] 
    regsub -all "\n" $html "" html
	regexp {has been deciphered to: <strong>(.*)</strong>} $html md5_result 
	regsub -all "</strong>" $md5_result "\n" md5_result 
	regsub -all "has been deciphered to: <strong>" $md5_result "" md5_result
	return "$md5_result" 
}
proc get_md5:hashkiller.com {md5} {
	set tmp_md5 $md5
	set md5 "oc_check_md5=$md5&oc_submit=Search+MD5"
	set url "http://opencrack.hashkiller.com/index.php"
	set md5_result "not found"
	set http [http::config -useragent mozilla] 
	set http [http::geturl $url -type "application/x-www-form-urlencoded" -query $md5 -timeout [expr 4000 * 10]] 
	set html [http::data $http] 
    regsub -all "\n" $html "" html
	regexp {<div class=\"result\">(.*)<br/>} $html md5_result 
	regsub -all "<br/>" $md5_result "\n" md5_result 
	regsub -all "<div class=\"result\">" $md5_result "" md5_result
	regsub -all "$tmp_md5" $md5_result "" md5_result
	regsub -all ":" $md5_result "" md5_result
	regsub -all "&lt;notfound&gt;</div></td></tr></table>" $md5_result "not found" md5_result
	return "$md5_result" 
}
proc get_md5:hashcracking.com {md5} {
	set url "http://md5.hashcracking.com/search.php?md5=$md5"
	set md5_result "not found"
	set http [http::config -useragent mozilla] 
	set http [http::geturl $url -timeout [expr 4000 * 10]] 
	set html [http::data $http] 
    regsub -all "\n" $html "" html
	regexp { is (.*)} $html md5_result 
	regsub -all "</b>" $md5_result "\n" md5_result 
	regsub -all " is " $md5_result "" md5_result
	return "$md5_result" 
}
proc get_md5:alimamed.pp.ru {md5} {
	set url "http://alimamed.pp.ru/md5/?md5d=$md5"
	set md5_result "not found"
	set http [http::config -useragent mozilla] 
	set http [http::geturl $url -timeout [expr 4000 * 10]] 
	set html [http::data $http] 
    regsub -all "\n" $html "" html
	regexp {<b>(.*)</b>} $html md5_result 
	regsub -all "</b>" $md5_result "\n" md5_result 
	regsub -all "<b>" $md5_result "" md5_result
	return "$md5_result" 
}
#end cracking
# url encode & decode
proc init {} {
    variable map
    variable alphanumeric a-zA-Z0-9
    for {set i 0} {$i <= 256} {incr i} { 
        set c [format %c $i]
        if {![string match \[$alphanumeric\] $c]} {
            set map($c) %[format %.2x $i]
        }
    }
    array set map { " " + \n %0d%0a }
}
init
proc url-encode {string} {
    variable map
    variable alphanumeric
    regsub -all \[^$alphanumeric\] $string {$map(&)} string
    regsub -all {[][{})\\]\)} $string {\\&} string
    return [subst -nocommand $string]
}
proc url-decode {str} {
    set str [string map [list + { } "\\" "\\\\"] $str]
    regsub -all -- {%([A-Fa-f0-9][A-Fa-f0-9])} $str {\\u00\1} str
    return [subst -novar -nocommand $str]
}
# end url encode & decode
putlog "======================================="
putlog "=     Portable MD5 Cracker Loaded     ="
putlog "=          arusar@ymail.com           ="
putlog "=         Update 26 Dec 2010          ="  
putlog "=          By Diar Portable           ="
putlog "=            Version 1.00             ="
putlog "======================================="