我又来个CM没啥难度的

JuncoJet 发表于 2019-2-27 00:41

独行雨中 发表于 2019-2-27 19:42

https://www.52pojie.cn/forum.php?mod=image&aid=1391632&size=300x300&key=a4d03092a51c2c31&nocache=yes&type=贴图错误，请阅读“贴图帮助”。https://www.52pojie.cn/forum.php?mod=image&aid=1391633&size=300x300&key=c950f3cd6c176f14&nocache=yes&type=贴图错误，请阅读“贴图帮助”。

JuncoJet 发表于 2019-2-27 00:43

用 Inkscape 画图，没啥画就随便画个窗口玩玩，顺便写了个CM。

linsnow7272 发表于 2019-2-27 17:42

我找不到入口哈哈

byh3025 发表于 2019-2-27 21:02

独行雨中发表于 2019-2-27 19:42
https://www.52pojie.cn/forum.php?mod=image&aid=1391632&size=300x300&key=a4d03092a51c2c31&nocache=yes ...

看大神的提示是VB P-CODE的，可我用vb的专用反汇编却汇编不了

梦游枪手 发表于 2019-2-27 21:52

密码是hfnos.....才怪，字符ascii码-当前位置就是了。h的位置是0，f是1，以此类推

梦游枪手 发表于 2019-2-27 21:56

byh3025 发表于 2019-2-27 21:02
看大神的提示是VB P-CODE的，可我用vb的专用反汇编却汇编不了

需要先脱壳，不过我也不能用WKT调试，只能用vbdecomplier看下代码了{:1_909:}

linsnow7272 发表于 2019-2-28 06:08

byh3025 发表于 2019-2-27 21:02
看大神的提示是VB P-CODE的，可我用vb的专用反汇编却汇编不了
用esp定律脫
硬件斷后咝? 刪除分析模塊儲存後再修復

Private Sub Image2_Click() '420F38
'Data Table: 4207D4
Dim var_C0 As Double
loc_420EB0: On Error Goto loc_420F0C
loc_420EC1: If (global_68 = "hfnos") Then
loc_420EC9: var_B4 = 1 'Variant
loc_420ECD: End If
loc_420EE3: var_C0 = Val(CStr((var_B4 / global_52)))
loc_420EF5: Me.Image4.Visible = True
loc_420F08: If (var_B4 > 0) Then
loc_420F0B: Exit Sub
loc_420F0C: ' Referenced from: 420EB0
loc_420F0C: End If
loc_420F18: Me.Timer1.Enabled = True
loc_420F2C: Me.Image3.Visible = True
loc_420F34: Exit Sub
End Sub

變數好多頭暈.....

linsnow7272 发表于 2019-2-28 06:18

梦游枪手发表于 2019-2-27 21:52
密码是hfnos.....才怪，字符ascii码-当前位置就是了。h的位置是0，f是1，以此类推

看不懂意思

页: [1]

吾爱破解 - 52pojie.cn's Archiver

我又来个CM没啥难度的