Attribute VB_Name = "Module1"
Option Explicit
Private Type Info
Md5 As String
End Type
Function MD5Query(Ans As String) As String
On Error Resume Next
Dim oXMLHTTP As Object, sGet As Object
Dim Info As Info, Code As String
Dim Temp As String, NTemp As String, CTemp As String
Dim Tempa() As String, NTempa() As String, CTempa() As String
Dim Tempb() As String, NTempb() As String, CTempb() As String
Dim XMd5Url As String, NeeaoMd5 As String, CMd5 As String
Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP")
XMd5Url = "http://www.xmd5.org/md5/md5check.asp?md5pass=" & Ans
oXMLHTTP.Open "GET", XMd5Url, False
oXMLHTTP.setRequestHeader "Referer", "http://www.xmd5.org/"
oXMLHTTP.Send
Temp = StrConv(oXMLHTTP.ResponseBody, vbUnicode)
If UBound(Split(Temp, "Result: </font><font color=""#ffffff"" size=4>" & vbCrLf)) = 0 Then
MD5Query = "查找標(biāo)識字符失敗!請聯(lián)系白癡娃娃QQ:826909595!"
Set oXMLHTTP = Nothing
Exit Function
End If
Tempa = Split(Temp, "Result: </font><font color=""#ffffff"" size=4>" & vbCrLf)
Tempb = Split(Tempa(1), "  ")
If Tempb(0) = "must 16 or 32 bit" Then
Info.Md5 = "數(shù)據(jù)提交錯誤!"
ElseIf Tempb(0) = "not find" Then
Info.Md5 = "沒有找到此hash值!"
If Len(Ans) = 32 Then
NeeaoMd5 = "q=" & "&b=MD5-Search"
oXMLHTTP.Open "POST", "http://md5.neeao.com/", False
oXMLHTTP.setRequestHeader "Content-Length", Len(NeeaoMd5)
oXMLHTTP.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
oXMLHTTP.Send (NeeaoMd5)
NTemp = StrConv(oXMLHTTP.ResponseBody, vbUnicode)
If UBound(Split(NTemp, "</div>Result:")) = 0 Then
MD5Query = "Xmd5上沒有找到!嘗試連接到Neeao進行查詢!" & vbCrLf & "查找標(biāo)識字符失敗!請聯(lián)系白癡娃娃QQ:826909595!"
Set oXMLHTTP = Nothing
Exit Function
End If
NTempa = Split(NTemp, "</div>Result:")
NTempb = Split(NTempa(1), "&nbsp;&nbsp;&nbsp;&nbsp;Good Luck!")
If Len(NTempb(0)) = 0 Then
Info.Md5 = "沒有找到此hash值!"
Else
If UBound(Split(NTempb(0), vbLf)) = 0 Then
Info.Md5 = NTempb(0)
Else
Info.Md5 = Left(NTempb(0), InStr(1, NTempb(0), vbLf) - 1)
End If
End If
MD5Query = "Xmd5上沒有找到!嘗試連接到Neeao進行查詢!" & vbCrLf & "-->" & Info.Md5
Set oXMLHTTP = Nothing
Exit Function
Else
CMd5 = "__EVENTTARGET=Button1&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwUENTM4MQ9kFgJmD2QWAgIDD2QWBAIDDzwrAA0BDBQrAAcFAzA6NWRkZGRkFCsAAhYEHgRUZXh0BQdFbmdsaXNoHgtOYXZpZ2F0ZVVybAUOfi9lbmdsaXNoLmFzcHhkFgxmD2QWAmYPFQEG6aaW6aG1ZAIBD2QWAmYPFQEM5pS25b2V5oOF5Ya1ZAICD2QWAmYPFQEM5oiR5p2l5re75YqgZAIDD2QWAmYPFQEM6L2v5Lu25LiL6L29ZAIED2QWAmYPFQEM5YWz5LqO5pys56uZZAIFD2QWAmYPFQEHRW5nbGlzaGQCCQ8PFgIeB1Zpc2libGVnZGRk8x%2F5TEV6UnvvATurwT5Ug1Bn4CI%3D&ctl00%24ContentPlaceHolder1%24TextBoxq=" & "&ctl00%24ContentPlaceHolder1%24Button1=md5%BC%D3%C3%DC%BB%F2%BD%E2%C3%DC&__EVENTVALIDATION=%2FwEWBAKsgKj3BALc3uClBAKA4sljApCrpOkHpoAe%2FDK1QyZX8r0pq359PFWAInE%3D"
oXMLHTTP.Open "POST", "http://www.cmd5.com/", False
oXMLHTTP.setRequestHeader "Content-Length", Len(CMd5)
oXMLHTTP.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
oXMLHTTP.Send (CMd5)
CTemp = StrConv(oXMLHTTP.ResponseBody, vbUnicode)
If UBound(Split(CTemp, "<b><font color=red>")) = 0 Then
MD5Query = "Xmd5上沒有找到!嘗試連接到Cmd5進行查詢!" & vbCrLf & "查找標(biāo)識字符失敗!請聯(lián)系白癡娃娃QQ:826909595!"
Set oXMLHTTP = Nothing
Exit Function
End If
CTempa = Split(CTemp, "<b><font color=red>")
CTempb = Split(CTempa(1), "</font></b><br />")
If CTempb(0) = "未找到" Then
Info.Md5 = "沒有找到此hash值!"
Else
Info.Md5 = CTempb(0)
End If
MD5Query = "Xmd5上沒有找到!嘗試連接到Cmd5進行查詢!" & vbCrLf & "-->" & Info.Md5
Set oXMLHTTP = Nothing
Exit Function
End If
Else
Info.Md5 = Tempb(0)
End If
MD5Query = "-->" & Info.Md5
Set oXMLHTTP = Nothing
End Function