求高手帮忙看下代码
本人反编译了一段别人的代码如下:
Public Function MD5(ByVal sMessage As String, ByVal stype As Integer) As String
' This item is obfuscated and can not be translated.
Dim str As String
Dim str2 As String
Dim num As Integer
GoTo Label_001F
Label_0002:
Select Case num
Case 0
GoTo Label_0083
Case 1
Return str2
Case 2, 4
str2 = str
num = 1
GoTo Label_0002
Case 3
If (stype <> &H20) Then
str = Strings.LCase(Strings.Mid(str, 9, &H10))
num = 4
Else
num = 0
End If
GoTo Label_0002
End Select
Label_001F:
str = FormsAuthentication.HashPasswordForStoringInConfigFile(sMessage, "MD5")
num = 3
GoTo Label_0002
If (1 <> 0) Then
End If
str = Strings.LCase(str)
num = 2
GoTo Label_0002
End Function
Public Sub domain()
HttpContext.Current.Response.Write(Me.MD5(Strings.LCase(Me.MD5((Me.MD5(("domain.com" & "domain"), &H10) & Me.MD5(Strings.StrReverse(("domain.com" & "domain")), &H20)), &H10)), &H20))
End Sub
反编译出来有很多错误,,我是做c#开发的,,vb.net不是很懂,求高人给修改下
Public Function MD5(ByVal sMessage As String, ByVal stype As Integer) As String
' This item is obfuscated and can not be translated.
Dim str As String
Dim str2 As String
Dim num As Integer
GoTo Label_001F
Label_0002:
Select Case num
Case 0
GoTo Label_0083
Case 1
Return str2
Case 2, 4
str2 = str
num = 1
GoTo Label_0002
Case 3
If (stype <> &H20) Then
str = Strings.LCase(Strings.Mid(str, 9, &H10))
num = 4
Else
num = 0
End If
GoTo Label_0002
End Select
Label_001F:
str = FormsAuthentication.HashPasswordForStoringInConfigFile(sMessage, "MD5")
num = 3
GoTo Label_0002
If (1 <> 0) Then
End If
str = Strings.LCase(str)
num = 2
GoTo Label_0002
End Function
Public Sub domain()
HttpContext.Current.Response.Write(Me.MD5(Strings.LCase(Me.MD5((Me.MD5(("domain.com" & "domain"), &H10) & Me.MD5(Strings.StrReverse(("domain.com" & "domain")), &H20)), &H10)), &H20))
End Sub
反编译出来有很多错误,,我是做c#开发的,,vb.net不是很懂,求高人给修改下
...全文


