VB Pcode破解方法及实例
破解工具：exdec.exe（vb pcode反编译工具） http://guodong.home.sohu.com/exdec.zip
破解对象：风飘雪crackme001 （下载http://duba.126.com)
exdec反编译
Email josephco_@hotmail.com with any errors or problems
This program doesn't have executable code right after it loads


Proc: 402870
40276C: f5 LitI4:                  0x0  0  (....)
402771: 71 FStR4                  local_0098
402774: f5 LitI4:                  0x0  0  (....)
402779: 71 FStR4                  local_009C
40277C: 04 FLdRfVar                local_00A4
40277F: 21 FLdPrThis             
402780: 0f VCallAd                7b3fc360
402783: 19 FStAdFunc              local_00A0
402786: 08 FLdPr                  local_00A0
402789: 0d VCallHresult            7b3fbe88
40278E: 3e FLdZeroAd              local_00A4
402791: 31 FStStr                  local_0090
402794: 1a FFree1Ad                local_00A0
402797: 04 FLdRfVar                local_00A4
40279A: 21 FLdPrThis             
40279B: 0f VCallAd                7b3fc358
40279E: 19 FStAdFunc              local_00A0
4027A1: 08 FLdPr                  local_00A0
4027A4: 0d VCallHresult            7b3fbe88
4027A9: 3e FLdZeroAd              local_00A4
4027AC: 31 FStStr                  local_0094
4027AF: 1a FFree1Ad                local_00A0
4027B2: 6c ILdRf                  local_0090
4027B5: 4a FnLenStr                              ====取输入姓名长度（0090）
4027B6: f5 LitI4:                  0x9  9  (....)
4027BB: d1 LtI4                 
4027BC: 6c ILdRf                  local_0090
4027BF: 4a FnLenStr             
4027C0: f5 LitI4:                  0xb  11  (....)
4027C5: db GtI4                 
4027C6: c4 AndI4                                =====姓名长度要求9-11
4027C7: 6c ILdRf                  local_0094
4027CA: 4a FnLenStr                              ====取输入注册码长度（0094）
4027CB: f5 LitI4:                  0x9  9  (....)
4027D0: d1 LtI4                 
4027D1: c5 OrI4                                  =====注册码长度要求大于等于9
4027D2: 1c BranchF:                4027DA
4027D5: 10 ThisVCallHresult        0
4027DA: f4 LitI2_Byte:            0x1  1  (.)  ===步长1（I2）
4027DC: 04 FLdRfVar                local_008A
4027DF: 6c ILdRf                  local_0090  ====读入姓名（0090）
4027E2: 4a FnLenStr             
4027E3: e4 CI2I4                 
4027E4: Lead3/63 ForI2:            (when done) 402829
4027EA: 27 LitVar_Missing                      ==============循环
4027ED: 6b FLdI2                  local_008A
4027F0: e7 CI4UI1               
4027F1: 6c ILdRf                  local_0090
4027F4: 0b ImpAdCallI2            
4027F9: 23 FStStrNoPop            local_00A4
4027FC: 0b ImpAdCallI2            
402801: e7 CI4UI1               
402802: 71 FStR4                  local_0088
402805: 2f FFree1Str              local_00A4
402808: 35 FFree1Var              local_00C8
40280B: 6c ILdRf                  local_0098
40280E: 6c ILdRf                  local_0088
402811: f5 LitI4:                  0x4  4  (....)
402816: b2 MulI4                                    =====ascii码值乘4
402817: aa AddI4                 
402818: f5 LitI4:                  0x12  18  (....)
40281D: aa AddI4                                    ======加18
40281E: 71 FStR4                  local_0098
402821: 04 FLdRfVar                local_008A
402824: 64 NextI2:                (continue) 4027EA==========循环（I2）
402829: 6c ILdRf                  local_0098
40282C: f5 LitI4:                  0x817fdb0  135790000  (....)
402831: aa AddI4                                    ======加135790000
402832: 71 FStR4                  local_0098
402835: 6c ILdRf                  local_0094 =====读入注册码
402838: 0a ImpAdCallFPR4:                     
40283D: f4 LitI2_Byte:            0x18  24  (.)
40283F: eb CR8I2                 
402840: ab AddR8                                =======加24
402841: e8 CI4R8                 
402842: 71 FStR4                  local_009C
402845: 6c ILdRf                  local_0098
402848: 6c ILdRf                  local_009C
40284B: c7 EqI4                                ====相等则真
40284C: 1c BranchF:                402867
40284F: 1b LitStr:                http://duba.126.com  ====正确注册结果
402852: 21 FLdPrThis             
402853: 0f VCallAd                7b3fc348
402856: 19 FStAdFunc              local_00A0
402859: 08 FLdPr                  local_00A0
40285C: 0d VCallHresult            7b3fbdf0
402861: 1a FFree1Ad                local_00A0
402864: 1e Branch:                40286c
402867: 10 ThisVCallHresult        0
40286C: 13 ExitProcHresult       


Proc: 40272c

402700: 27 LitVar_Missing       
402703: 27 LitVar_Missing       
402706: 27 LitVar_Missing       
402709: f5 LitI4:                  0x0  0  (....)
40270E: 3a LitVarStr:              ( local_0094 )
402713: 4e FStVarCopyObj          local_00A4
402716: 04 FLdRfVar                local_00A4
402719: 0a ImpAdCallFPR4:          
40271E: 36 FFreeVar
402729: Lead1/c8 End             
40272B: 13 ExitProcHresult       


Successfully went through the program!
Now it's up to you to decipher it hehe!

Email josephco_@hotmail.com with any problems or errors