核心代码:
Private Sub a()
Dim t123
If qqqqqqqqqq = 1 Then
Dim z
z = 计算解密(oo(1) & oo(2) & oo(3) & oo(4) & oo(5) & oo(6) & oo(7) & oo(8) & oo(9) & oo(10) & oo(11) & oo(12) & oo(13) & oo(14) & oo(15) & oo(16) & oo(17) & oo(18) & oo(19) & oo(20) & oo(21) & oo(22) & oo(23) & oo(24) & oo(25) & oo(26) & oo(27) & oo(28) & oo(29) & oo(30) & oo(31) & oo(32), oo(33) & oo(34) & oo(35) & oo(36) & oo(37))
Dim ykk
ykk = "123qww"
If z = ykk Then t123 = 0
ykk = "asadsadasd"
If z = ykk Then t123 = 1
ykk = "sd121212d"
ykk = "123qww"
If z = ykk Then t123 = 2
ykk = "1212aadc1"
If z = ykk Then t123 = 3
ykk = "uuuuu3333"
If z = ykk Then t123 = 4
ykk = "dee1121212"
If z = ykk Then t123 = 5
ykk = "ss2222222111"
If z = ykk Then t123 = 6
ykk = "21eeee1212"
If z = ykk Then t123 = 7
ykk = "21212"
If z = ykk Then t123 = 8
ykk = "21212a12"
If z = ykk Then t123 = 9 '''''
ykk = "rqqeq0xa1"
If z = ykk Then t123 = 10
ykk = "767567sasas"
If z = ykk Then t123 = 11
ykk = "222ssssss2"
If z = ykk Then t123 = 12
ykk = "ww111111ss"
If z = ykk Then t123 = 13
ykk = "asas12122"
If z = ykk Then t123 = 14
ykk = "21zzzzz12"
If z = ykk Then t123 = 15
ykk = "212sssaaaaa2"
If z = ykk Then t123 = 16
ykk = "ssss1ddd"
If z = ykk Then t123 = 17
ykk = "2dddddd1555"
If z = ykk Then t123 = 18
If t123 = 0 Then a0
If t123 = 1 Then a1
If t123 = 2 Then a2
If t123 = 3 Then a3
If t123 = 4 Then a4
If t123 = 5 Then a5
If t123 = 6 Then a6
If t123 = 7 Then a7
If t123 = 8 Then a8
If t123 = 9 Then a9 '''''
If t123 = 10 Then a10
If t123 = 11 Then a11
If t123 = 12 Then a12
If t123 = 13 Then a13
If t123 = 14 Then a14
If t123 = 15 Then a15
If t123 = 16 Then a16
If t123 = 17 Then a17
If t123 = 18 Then a18
End If
End Sub
Private Sub a0()
End Sub
Private Sub a1()
End Sub
Private Sub a2()
End Sub
Private Sub a3()
End Sub
Private Sub a4()
End Sub
Private Sub a5()
End Sub
Private Sub a6()
End Sub
Private Sub a7()
End Sub
Private Sub a8()
End Sub
Private Sub a9() '''''
If z = rqqeq0xa1 Then Form1.Text1 = "w" & "i" & "n"
End Sub
Private Sub a10()
End Sub
Private Sub a11()
End Sub
Private Sub a12()
End Sub
Private Sub a13()
End Sub
Private Sub a14()
End Sub
Private Sub a15()
End Sub
Private Sub a16()
End Sub
Private Sub a17()
End Sub
Private Sub a18()
End Sub