alias rmd5 $iif($len($1) = 32,sockopen $+(rmd5,$1) www.md5.rednoize.com 80)
on *:SOCKOPEN:rmd5*:{
  sockwrite -nt $sockname GET $+(/?q=,$right($sockname,-4)) HTTP/1.1
  sockwrite -nt $sockname Host: www.md5.rednoize.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:rmd5*:{
  if ($sockerr) return
  var %md5.data | sockread %md5.data
  if (!%md5.data) return
  if ($regml($regex(%md5.data,<div id="result" >(.+)</div>))) { echo -at $v1 | sockclose $sockname }
  if (hash-not-found-24 isin %md5.data) { echo -at Sorry, nothing found for $right($sockname,-4) | sockclose $sockname }
}