求高手帮忙看下代码

ayxyyq ayxyyq 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
本人反编译了一段别人的代码如下:

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不是很懂,求高人给修改下
...全文
评论 2
收藏 已收藏
分享
返回顶部
ayxyyq
VB 16,718 成员 110,520 内容