09/03/08 23:32
FiRe-CrAsH
#include <GUIConstants.au3>
#Include<Inet.au3>
#NoTrayIcon
GUICreate("Search MD5", 302, 113, 230, 139)
GUICtrlCreateLabel("Insert MD5", 96, 8, 73, 18)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$MD5 = GUICtrlCreateInput("", 24, 32, 241, 22)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$Search = GUICtrlCreateButton("Search MD5", 80, 64, 113, 33, 0)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
case $Search
$end = GuiCtrlRead($MD5)
if stringlen($end) == 32 then
GuiCtrlSetData($MD5,"Password: "&_inetgetsource("http://md5.rednoize.com/?p&submit&s=md5&q="&$end)))
else
GuiCtrlSetData($MD5,"Insert MD5 Valid")
endif
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
aaa
