申请加入[PYG]破文3

N-klen · 发表于 2005-9-3 17:31:13

【破文标题】 <<Access 2000解密v2.1.1>>算法分析+注册机

【使用工具】 PEiD,P32Dasm1.6,WinXP

【破文作者】 N-klen[BCG]

【软件名称】 Access 2000解密v2.1.1

【编译方式】 P-CODE

【软件简介】提取Access 2000密码的东东

【破解过程】
用P32Dasm载入!
先找到关键的比较部分:

Form1 4.2 Command1.Click() ----
000057A4: 08 FLdPr param_8
000057A7: 89 MemLdI2
000057AA: F4 LitI2_Byte: 5 0x5
000057AC: DA GtI2 >
000057AD: 1C BranchF 000057E3
000057B0: 27 LitVar_Missing
000057B3: 27 LitVar_Missing
000057B6: 3A LitVarStr: "注???
000057BB: 4E FStVarCopyObj var_C4
000057BE: 04 FLdRfVar var_C4
000057C1: F5 LitI4: 0 0x0
000057C6: 3A LitVarStr: "您???豬豑?用户！"
000057CB: 4E FStVarCopyObj var_A4
000057CE: 04 FLdRfVar var_A4
000057D1: 0A ImpAdCallFPR4 MsgBox()
000057D6: 36 FFreeVar var_A4 var_C4 var_E4 var_104
000057E1: FCC8 End End
000057E3: loc_000057AD ;此处是关键
000057E3: 27 LitVar_Missing
000057E6: 0B ImpAdCallI2 FreeFile()
000057EB: 08 FLdPr param_8
000057EE: 8E MemStI2
000057F1: 35 FFree1Var var_A4
000057F4: 76 ImpAdLdI4
000057F7: 08 FLdPr param_8
000057FA: 89 MemLdI2
000057FD: F4 LitI2_Byte: 255 0xFF (True)
000057FF: FE5D OpenFile
00005803: 08 FLdPr param_8
00005806: 89 MemLdI2
00005809: F5 LitI4: 1314 0x522
0000580E: 08 FLdPr param_8
00005811: 06 MemLdRfVar param_34
00005814: F5 LitI4: 4 0x4
00005819: FC76 GetRec4
0000581B: 04 FLdRfVar var_10C
0000581E: 21 FLdPrThis
0000581F: 0F VCallAd
00005822: 19 FStAdFunc var_108
00005825: 08 FLdPr var_108
00005828: 0D VCallHresult TextBox.Get_Text();取文本框的数据
0000582D: 6C ILdRf var_10C
00005830: 08 FLdPr param_8
00005833: 8A MemLdStr
00005836: F5 LitI4: 987654321 0x3ADE68B1;将取得的数据XOR987654321
0000583B: FB13 XorI4
0000583D: FBFE CStrI4
0000583F: 23 FStStrNoPop var_110
00005842: FB30 EqStr = ;处理后的数据比较
00005844: 32 FFreeStr var_10C var_110
0000584B: 1A FFree1Ad var_108
0000584E: 1C BranchF 000058A5 ;不相等则跳走,出错!
00005851: F4 LitI2_Byte: 255 0xFF (True)
00005853: 7A ImpAdStI2 param_6
00005856: 27 LitVar_Missing
00005859: 25 PopAdLdVar
0000585A: 27 LitVar_Missing
0000585D: 25 PopAdLdVar
0000585E: 05 ImpAdLdRf
00005861: 24 NewIfNullPr
00005864: 0D VCallHresult Form._Show(Modal As Variant, OwnerForm As Variant)
00005869: 05 ImpAdLdRf
0000586C: 24 NewIfNullPr
0000586F: 0D VCallHresult Form._Hide()
00005874: F4 LitI2_Byte: 0 0x0 (False)
00005876: 05 ImpAdLdRf
00005879: 24 NewIfNullPr
0000587C: 0F VCallAd
0000587F: 19 FStAdFunc var_108
00005882: 08 FLdPr var_108
00005885: 0D VCallHresult CommandButton.Set_Visible()
0000588A: 1A FFree1Ad var_108
0000588D: 08 FLdPr param_8
00005890: 89 MemLdI2
00005893: F5 LitI4: 1024 0x400
00005898: 05 ImpAdLdRf
0000589B: F5 LitI4: 2 0x2
000058A0: FC78 PutRec4
000058A2: 1E Branch 000058D6
000058A5: loc_0000584E
000058A5: 27 LitVar_Missing
000058A8: 27 LitVar_Missing
000058AB: 3A LitVarStr: "注???
000058B0: 4E FStVarCopyObj var_C4
000058B3: 04 FLdRfVar var_C4
000058B6: F5 LitI4: 0 0x0
000058BB: 3A LitVarStr: "注册册ā??误???????！"
000058C0: 4E FStVarCopyObj var_A4
000058C3: 04 FLdRfVar var_A4
000058C6: 0A ImpAdCallFPR4 MsgBox()
000058CB: 36 FFreeVar var_A4 var_C4 var_E4 var_104
000058D6: loc_000058A2
000058D6: 08 FLdPr param_8
000058D9: 89 MemLdI2
000058DC: FD3D Close
000058DE: 08 FLdPr param_8
000058E1: 89 MemLdI2
000058E4: F4 LitI2_Byte: 1 0x1
000058E6: A9 AddI2 +
000058E7: 08 FLdPr param_8
000058EA: 8E MemStI2
000058ED: 13 ExitProcHresult
再找机器码处理部分!
Form1 4.4 Form.Load() ----
000051B0: 1B LitStr: "c:"
000051B3: 43 FStStrCopy var_8C
000051B6: F5 LitI4: 255 0xFF
000051BB: 0B ImpAdCallI2 Space$()
000051C0: 31 FStStr var_90
000051C3: F5 LitI4: 255 0xFF
000051C8: 0B ImpAdCallI2 Space$()
000051CD: 31 FStStr var_A0
000051D0: 6C ILdRf var_A0
000051D3: 4A FnLenStr Len()
000051D4: 6C ILdRf var_A0
000051D7: 04 FLdRfVar var_D4
000051DA: 34 CStr2Ansi
000051DB: 6C ILdRf var_D4
000051DE: 04 FLdRfVar var_B4
000051E1: FC22 CI4Var
000051E3: 59 PopTmpLdAdStr var_C0
000051E6: 04 FLdRfVar var_98
000051E9: 04 FLdRfVar var_94
000051EC: 6C ILdRf var_90
000051EF: 4A FnLenStr Len()
000051F0: 6C ILdRf var_90
000051F3: 04 FLdRfVar var_BC
000051F6: 34 CStr2Ansi
000051F7: 6C ILdRf var_BC
000051FA: 6C ILdRf var_8C
000051FD: 04 FLdRfVar var_B8
00005200: 34 CStr2Ansi
00005201: 6C ILdRf var_B8
00005204: 5E ImpAdCallI4 KERNEL32.GetVolumeInformationA ;取WINDOWS版本号
00005209: 71 FStR4 var_D8
0000520C: 3C SetLastSystemError
0000520D: 6C ILdRf var_B8
00005210: 04 FLdRfVar var_8C
00005213: FC58 CStr2Uni
00005215: 6C ILdRf var_BC
00005218: 04 FLdRfVar var_90
0000521B: FC58 CStr2Uni
0000521D: 6C ILdRf var_C0
00005220: FD69 CVarI4 var_D0
00005224: FD00 FStVarCopy
00005228: 6C ILdRf var_D4
0000522B: 04 FLdRfVar var_A0
0000522E: FC58 CStr2Uni
00005230: 6C ILdRf var_D8
00005233: 71 FStR4 var_88
00005236: 32 FFreeStr var_B8 var_BC var_D4
0000523F: 6C ILdRf var_94
00005242: FBFE CStrI4
00005244: 23 FStStrNoPop var_B8
00005247: 21 FLdPrThis
00005248: 0F VCallAd
0000524B: 19 FStAdFunc var_DC
0000524E: 08 FLdPr var_DC
00005251: 0D VCallHresult TextBox.Set_Text() ;以上代码是取得操作系统的版本号得到机器码
00005256: 2F FFree1Str var_B8 ;再去掉点和空格
00005259: 1A FFree1Ad var_DC ;将版本号放到机器码文本框
0000525C: 6C ILdRf var_94
0000525F: F5 LitI4: 123456789 0x75BCD15 ;机器码XOR123456789
00005264: FB13 XorI4
00005266: F5 LitI4: 888888888 0x34FB5E38 ;再XOR888888888
0000526B: FB13 XorI4
0000526D: 08 FLdPr param_8
00005270: 8F MemStI4
00005273: 27 LitVar_Missing
00005276: 0B ImpAdCallI2 FreeFile()
0000527B: 08 FLdPr param_8
0000527E: 8E MemStI2
00005281: 35 FFree1Var var_EC
00005284: 76 ImpAdLdI4
00005287: 08 FLdPr param_8
0000528A: 89 MemLdI2
0000528D: F4 LitI2_Byte: 255 0xFF (True)
0000528F: FE5D OpenFile
00005293: 08 FLdPr param_8
00005296: 89 MemLdI2
00005299: F5 LitI4: 1314 0x522
0000529E: 08 FLdPr param_8
000052A1: 06 MemLdRfVar param_34
000052A4: F5 LitI4: 4 0x4
000052A9: FC78 PutRec4
000052AB: 08 FLdPr param_8
000052AE: 89 MemLdI2
000052B1: FD3D Close
000052B3: 13 ExitProcHresult

复制代码

【写注册机】
因为XOR算法是可逆的,所以注册算法就是:
机器码 XOR 123456789 XOR 888888888 XOR 987654321
很简单!
Private Sub Command1_Click()
Dim a, b, c
a = Text1.Text
If Len(a) > 0 Then
a = a Xor 123456789
a = a Xor 888888888
a = a Xor 987654321
b = CStr(a)
Text2.Text = b
Else
MsgBox "请输入机器码"
End If
End Sub

		自动登录	找回密码
密码			加入我们