Downloading File
Filename: Reverse MD5 (an other...)
; Reverse MD5 by C-Dryk ; usage: /rmd5 [md5 hash] ; /* Inspired of Noutrious's script :) ; http://www.tg007.net/downloadsmsn/pafiledb.php?action=file&id=1116 */ alias rmd5 { var %v, %t MD5 Hash Online Databases... if (!$1) %v = $$?"MD5 Hash ?" | else %v = $1 sockopen $+(_md5_,%v) md5.noisette.ch 80 sockmark $+(_md5_,%v) %v echo -tea $+ %t $+ } On *:SOCKOPEN:_md5_*: { echo $color(normal) -a 8� Hash: $+ $color(quit) $sock($sockname).mark if ($sockerr > 0) { echo $color(normal) -a 4� Error $+ $iif($sock($sockname).wsmsg,: $+ $color(kick) $ifmatch,.) | linesep -a | return } var %l $crlf, %a User-Agent: Mozilla/5.0 (compatible; MSIE 6.0; Windows NT 5.1), %h Host: md5.noisette.ch sockwrite $sockname GET $+(/md5.php?hash=,$sock($sockname).mark) $+(HTTP/1.1,%l,Accept: */*,%l,%a,%l,%h,%l,Connection: Close,%l,%l) } On *:SOCKREAD:_md5_*: { if ($sockerr > 0) { echo $color(normal) -a 4� Error $+ $iif($sock($sockname).wsmsg,: $+ $color(kick) $ifmatch,.) | linesep -a | return } var %r, %d sockread %r while ($sockbr) { if ($regex(cdata, %r, <(string|error)><!\[CDATA\[(.*)\]\]></(string|error)>) > 0) { if ($regml(cdata,1) == string) { if (*(converted to utf8)* iswm $regml(cdata,2)) %d = $remove($regml(cdata,2),Â,Ã,Ä,Å,$chr(194)) else %d = $iif($utfdecode(Cédric) === C�dric,$utfdecode($regml(cdata,2)),$regml(cdata,2)) echo $color(normal) -a 9� Text: $+ $color(topic) %d } elseif ($regml(cdata,1) == error) echo $color(normal) -a 4� Error: $+ $color(kick) $regml(cdata,2) echo $color(info2) - Request completed in $sock($sockname).ls seconds linesep -a | sockclose $sockname | return } sockread %r } }
Related Files
by Scakk
by EL
by Nexus Oblivion