[Visual Basic .NET] 纯文本查看 复制代码
Private Sub Button1_Click(sender As Object, e As EventArgs)
Dim num As Integer = 0
Do
IL_02:
Dim arg_09_0 As Integer = 15
While True
Dim expr_0A As Integer = arg_09_0 Xor 814828136
Dim num2 As UInteger = CUInt(expr_0A)
' The following expression was wrapped in a checked-statement
Dim num3 As Integer
num3 += 1
arg_09_0 = 11
Dim arg_1E1_0 As Object = 1
Continue While
Select Case expr_0A Mod 17
Case 0
GoTo IL_02
Case 1
Dim num3 As Integer
Me.b(num, num3) = False
Dim num4 As UInteger = num2
Dim array As UInteger() = New UInteger(5 - 1) {}
array(0) = 411U
array(1) = 4294967191U + array(0)
array(2) = 832U - array(1) - array(0)
array(3) = 310U + array(2) + array(1) - array(0)
array(4) = 4294966671U + array(3) - array(2) + array(1) + array(0)
Dim num5 As UInteger = num4 / array(4)
arg_09_0 = CInt((num5 - 2743528U))
Dim arg_486_0 As Object = 1
Continue While
Case 2
Dim num3 As Integer
Me.b(num, num3) = True
arg_09_0 = 10
Dim arg_640_0 As Object = 1
Continue While
Case 3
Dim array As UInteger()
Dim num6 As UInteger
' The following expression was wrapped in a checked-statement
num += 1
num6 = num2
array = New UInteger(5 - 1) {}
array(0) = 255U
array(1) = 14U + array(0)
array(2) = 4294966877U + array(1) + array(0)
array(3) = 632U + array(2) - array(1) - array(0)
array(4) = 301U + array(3) - array(2) - array(1) + array(0)
Dim num7 As UInteger = num6 / array(4)
arg_09_0 = CInt((num7 - 2062843U))
Dim arg_335_0 As Object = 1
Continue While
Case 4
Interaction.MsgBox(ChrW(27880) & ChrW(20876) & ChrW(25104) & ChrW(21151), MsgBoxStyle.Information, ChrW(24685) & ChrW(21916))
Dim num8 As UInteger = num2
Dim array As UInteger() = New UInteger(4 - 1) {}
array(0) = 382U
array(1) = 4294967253U + array(0)
array(2) = 103U - array(1) + array(0)
array(3) = 210U - array(2) - array(1) + array(0)
Dim num9 As UInteger = num8 / array(3)
arg_09_0 = CInt((num9 - 7615216U))
Dim arg_55B_0 As Object = 1
Continue While
Case 5
Interaction.MsgBox(ChrW(27880) & ChrW(20876) & ChrW(22833) & ChrW(36133), MsgBoxStyle.Information, ChrW(32487) & ChrW(32493) & ChrW(21162) & ChrW(21147))
arg_09_0 = 2
Dim arg_D6_0 As Object = 1
Continue While
Case 6
Return
Case 7
Dim num3 As Integer
Dim pixel As Color = Me.bit.GetPixel(num, num3)
arg_09_0 = 12
Dim arg_1B2_0 As Object = 1
Continue While
Case 8
Case 9
Dim num3 As Integer
arg_09_0 = CInt(((If((num3 <= 250), 494443U, 494423U)) Xor num2 / 1648U))
Dim arg_124_0 As Object = 1
Continue While
Case 10
Dim pixel As Color
arg_09_0 = CInt(((If((Operators.CompareString(pixel.Name, "ff000000", False) <> 0), 510587U, 510588U)) Xor num2 / 1596U))
Dim arg_23C_0 As Object = 1
Continue While
Case 11
arg_09_0 = CInt(((If((num > 250), 424395U, 424394U)) Xor num2 / 1920U))
Dim arg_383_0 As Object = 1
Continue While
Case 12
arg_09_0 = CInt(((If((Me.Reg1() And Me.Reg2()), 467239U, 467238U)) Xor num2 / 1744U))
Dim arg_179_0 As Object = 1
Continue While
Case 13
Dim num3 As Integer = 0
arg_09_0 = 9
Dim arg_99_0 As Object = 1
Continue While
Case 14
Dim num10 As UInteger = num2 / 1900U
arg_09_0 = CInt((num10 - 428854U))
Dim arg_599_0 As Object = 1
Continue While
Case 15
Dim num11 As UInteger = num2 / 1884U
arg_09_0 = CInt((num11 - 432489U))
Dim arg_5D7_0 As Object = 1
Continue While
Case 16
ProjectData.EndApp()
arg_09_0 = 8
Dim arg_607_0 As Object = 1
Continue While
End Select
Exit While
End While
Loop While 1 Is Nothing
End Sub
没看懂这代码在干啥 | 
[复制链接]
发表于 2022-12-24 12:37
发表于 2022-12-26 12:12
|
发表于 2022-12-27 09:30
发表于 2022-12-25 15:33
