阿杰 发表于 2010-1-27 21:27:47

VB做MD5反查询工具

vb写的，用xmlhttp对www.cmd5.com发送数据包
以下是程序的源代码：
Function bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn, i, 1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn, i + 1, 1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function

Private Sub Command1_Click()
Dim TT
Dim xmlHTTP1
Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP") '创建XMLHTTP对象
xmlHTTP1.open "GET", "http://www.cmd5.com/getmd5api.aspx?q=" & Text1.Text, False 'GET方法提交请求
xmlHTTP1.setRequestHeader "Accept", "*/*"
xmlHTTP1.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; GTB5; User-agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; http://bsalsa.com) ; InfoPath.2; InfoPath.1; .NET CLR 2.0.50727)"
xmlHTTP1.setRequestHeader "Accept-Encoding", "gzip,deflate"
xmlHTTP1.setRequestHeader "Host", "www.cmd5.com"
xmlHTTP1.setRequestHeader "Connection", "Keep-Alive"
xmlHTTP1.setRequestHeader "Cache-Control", "no-cache"
xmlHTTP1.send

TT = bytes2BSTR(xmlHTTP1.responseBody)
TT = Replace(TT, "<br>", "")

Text2.Text = TT
End Sub

Private Sub Command2_Click()
MsgBox "加密/查询MD5工具 By Spacehacker" & vbCrLf & "QQ:262992018", , "About..."
End Sub

生成程序～

马大哈 发表于 2010-1-28 12:27:17

这些网站应该是收集了大量MD5来进行查询吧?

HoviDelphic 发表于 2010-1-28 20:38:32

有做好的bin吗？

jessezappy 发表于 2010-1-29 02:46:47

是MD5破解啊。我还以为是加密。。
看介绍：
‘－－－－－－－－－－－－－－－－－－－－－
后台破解
后台破解由多台电脑协同运算，结合穷举法
’－－－－－－－－－－穷举法。
还好我自己的密码MD5编码这个网站查不到。

oopww 发表于 2010-1-31 16:06:40

人家网站都是收费、的！！！！

HoviDelphic 发表于 2010-3-14 01:38:09

人家网站都是收费、的！！！！
oopww 发表于 2010-1-31 16:06 http://www.m5home.com/bbs/images/common/back.gif


    确实如此。

upring 发表于 2015-6-12 20:13:05

支持一下 感谢分享
页: [1]
查看完整版本: VB做MD5反查询工具