alias hashcrack {
if $sock(hashcrk) { sockclose hashcrk }
var %types = SHA1 MD4 MD5 LANMAN NT NotSure
set %hcr.hash $$input(Enter a hash,eo)
set %hcr.type $$input(Enter a type (case-sensitive): %types,eo)
if !$istokcs(%types,%hcr.type,32) {
echo -ac info * /hashcrk: Inccorect type specified. Possible: %types
return
}
sockopen hashcrk securitystats.com 80
sockmark hashcrk $+(inputhash=,%hcr.hash,&type=,%hcr.type,&Submit=Submit)
}
[color:red] [/color]
on *:sockopen:hashcrk:{
if $sockerr { echo -ac info * /hashcrk: Error opening socket | return }
var %s = sockwrite -n $sockname, %data = $sock(hashcrk).mark
%s POST /tools/hashcrack.php HTTP/1.1
%s Referer: http://www.securitystats.com/tools/hashcrack.php
%s Host: securitystats.com
%s Content-Type: application/x-www-form-urlencoded
%s Content-Length: $len(%data)
%s Connection: Keep-Alive
%s Cache-Control: no-cache
%s
%s %data
}
[color:red] [/color]
on *:sockread:hashcrk:{
if $sockerr { return }
var %a
sockread %a
while $sockbr {
if $regex(hcr,%a,/([^>]+) Hash Found!!.+? $+ %hcr.hash = (.*?)</) || *</body>* iswm %a {
sockclose hashcrk
if $regml(hcr,1) {
echo -ac info * /hashcrack: Type: $ifmatch - Value for hash %hcr.hash $+ : $regml(hcr,2)
}
else echo -ac info * /hashcrack: no match found for %hcr.hash of type %hcr.type
unset %hcr.*
return
}
sockread %a
}
}