|
发表于 2009-5-27 22:12:07
|
显示全部楼层
直接用注册表破解
loc_00415E7C: var_FC = GetSetting("clongxue","clongxue","zcm",%x4)
loc_00415E82: var_104 = 8
loc_00415E95: call MSVBVM60.DLL.__vbaVarMove
loc_00415E9B: var_4 = &H18
loc_00415EA2: var_1D0 = 80020004h
loc_00415EAC: var_1D8 = 10
loc_00415EBB: call MSVBVM60.DLL.__vbaChkstk
loc_00415EFF: var_70 = GetSetting("clongxue","clongxue","zcmm",%x4)
loc_00415F05: var_4 = &H19
loc_00415F0C: var_1D0 = "xue"
loc_00415F16: var_1D8 = 8
loc_00415F2D: call InStr(00000000h, "leiw3-mbodr-9ewto-nmbio", var_70, 00000001h)
loc_00415F33: var_1E0 = InStr(00000000h, "leiw3-mbodr-9ewto-nmbio", var_70, 00000001h)
loc_00415F39: var_1E8 = 3
loc_00415F59: call InStr(var_104, 00000000h, var_1D8, var_68, 00000001h)
loc_00415F6E: call And(var_114, var_1E8, InStr(var_104, 00000000h, var_1D8, var_68, 00000001h))
loc_00415F75: call MSVBVM60.DLL.__vbaBoolVarNull(And(var_114, var_1E8, InStr(var_104, 00000000h, var_1D8, var_68, 00000001h)))
loc_00415F8E: movsx edx, word ptr MSVBVM60.DLL.__vbaBoolVarNull(And(var_114, var_1E8, InStr("", 00000000h, var_1D8, var_68, 00000001h)))
If "" <> 0 Then
loc_00415F9D: var_4 = &H1A
loc_00415FF5: Form2.Caption = 004080BCh
loc_00415FFA: var_240 = var_2D8
loc_00416036: GoTo loc_004160D4
End If
实现注册就是读取zcmm项 在常量字符串那里找位置 进行一个And运算 返回值为1(真)时 注册通过 很简单,自己多研究一下 |
|