VB做MD5反查询工具

阿杰

1. vb写的，用xmlhttp对www.cmd5.com发送数据包
   
2. 以下是程序的源代码：
   
3. Function bytes2BSTR(vIn)
   
4. strReturn = ""
   
5. For i = 1 To LenB(vIn)
   
6. ThisCharCode = AscB(MidB(vIn, i, 1))
   
7. If ThisCharCode < &H80 Then
   
8. strReturn = strReturn & Chr(ThisCharCode)
   
9. Else
   
10. NextCharCode = AscB(MidB(vIn, i + 1, 1))
    
11. strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
    
12. i = i + 1
    
13. End If
    
14. Next
    
15. bytes2BSTR = strReturn
    
16. End Function
    
17. 
    
18. Private Sub Command1_Click()
    
19. Dim TT
    
20. Dim xmlHTTP1
    
21. Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP") '创建XMLHTTP对象
    
22. xmlHTTP1.open "GET", "http://www.cmd5.com/getmd5api.aspx?q=" & Text1.Text, False 'GET方法提交请求
    
23. xmlHTTP1.setRequestHeader "Accept", "*/*"
    
24. 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)"
    
25. xmlHTTP1.setRequestHeader "Accept-Encoding", "gzip,deflate"
    
26. xmlHTTP1.setRequestHeader "Host", "www.cmd5.com"
    
27. xmlHTTP1.setRequestHeader "Connection", "Keep-Alive"
    
28. xmlHTTP1.setRequestHeader "Cache-Control", "no-cache"
    
29. xmlHTTP1.send
    
30. 
    
31. TT = bytes2BSTR(xmlHTTP1.responseBody)
    
32. TT = Replace(TT, "<br>", "")
    
33. 
    
34. Text2.Text = TT
    
35. End Sub
    
36. 
    
37. Private Sub Command2_Click()
    
38. MsgBox "加密/查询MD5工具 By Spacehacker" & vbCrLf & "QQ:262992018", , "About..."
    
39. End Sub
    
40. 
    
41. 生成程序～
    
42. 
    

复制代码

马大哈

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

HoviDelphic

有做好的bin吗？

jessezappy

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

oopww

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

HoviDelphic

人家网站都是收费、的！！！！
oopww 发表于 2010-1-31 16:06

    确实如此。

upring

支持一下 感谢分享