Jump to content
Tuts 4 You

[KeygenMe] DellDell P-CODE numbers Easy


delldell

Recommended Posts

DellDell P-CODE numbers

5pwsw.png

try 2 make a keygen or

just post your Name and serial so I can check it

Only with the right serial is going to show the right message

if is not the right serial is not gonna show the message

I have to say that I put

strings that do nothing so keep this in mind

when you search for strings

please consider that I just tested on Xp

if not work on other OS put it in the Recycle Bin

Have fun Thank you

DellDell P-CODE numbers.rar

Edited by delldell
Link to comment
Share on other sites

This is the first time i deal with pcode, because look at vp-decompiler i see that code is so short :D but i still can not crack this keygenme, even patch it.

First is your commandclick

rivate Sub Command1_Click() '409E38

'Data Table: 406BAC

loc_4096CC: On Error Resume Next

loc_4096F3: var_F8 = LCase(CVar(Me.t2.Text))

loc_4096FC: var_C4 = CStr(var_F8)

If (0 = &HFF) Then '40971C

loc_409719: var_D0 = "serial correct"

End If

Well, obviously 0 can not equal 0xFF, so the serial correct is not appear.

Far from that, i see Call var_Click(), in var_Click(), i see 2 functions 40912C() and 408BE0()

40912C(): seem is checksum of name, but convert to long value, then multi with 1234.56 which is round of 12346 - string in decompiler

408BE0(): Does something with timer, i think timer does not affect serial, so i skip it.

Some more is IsDebuggerPresent.

Can i have some ideal to solve this one :)

My n/s: Lovemagic/11345670 - ofcourse it does not work.

Link to comment
Share on other sites

@ Sama

Excellent Good job6e0z1f.png

@ kakamail

P-code is little diferent I put some strings just 2 redirect the atention like that isdebuggerpresent

vbdecompiler I try to put variables and strange names to try to fool the vbdecompiler

the timer is important just wait to time out the time if you disable timer the is going to fail

try to put small names and just pay atention to the Opcodes

remember that some strings to nothing like I said just to redirect the atention of the riverser

P32Dasm is a VB PCode Decompiler. It can generate String, Numbers, Objects

@ ChOoKi

Fantastic! good Work

20gn02c.png

Thank you very much

Link to comment
Share on other sites

P32Dasm does not work on my computer, it tells me that .ocx is missing/can not registered. I google to find the answer for this ocx-register problem, but can not find it yet.

And i don't understand your answer much. The fool vb-decompiler (vbd) mean that all my quote is wrong 0_o? And what does this mean? "P32Dasm is a VB PCode Decompiler"? P32 is better or just also fail like vbd?

Link to comment
Share on other sites

@ kakamail

the opcodes and funcions are very important

in p32dasm you can view the opcodes and functions

I dont know if p32dasm works on other OS than XP

http://ricardonarvaja.info/WEB/OTROS/HERRAMIENTAS/L-M-N-O-P/p32dasm.zip

now I will put an example: ( hope is not Boring hehehehehe)

VB6 Application detected ... PCode-small tut by delldell -Form1 1.1 Command1.Click() ----
000019E0: F4 LitI2_Byte: 3 0x3 <<<<<< we add 3 to variable
000019E2: 70 FStI2 var_86
000019E5: 6B FLdI2 var_86
000019E8: F4 LitI2_Byte: 2 0x2 <<<< number 2
000019EA: B1 MulI2 * <<<<<< multiply 3 * 2= result is 6
000019EB: 70 FStI2 var_88
000019EE: 6B FLdI2 var_88
000019F1: F4 LitI2_Byte: 4 0x4 <<<<< number 4
000019F3: A9 AddI2 + <<<<<< we add 4 + 6 =result is 10
000019F4: 70 FStI2 var_88
000019F7: 6B FLdI2 var_88
000019FA: EB CR8I2 Int(number)
000019FB: F4 LitI2_Byte: 2 0x2 <<< number 2
000019FD: EB CR8I2 Int(number)
000019FE: B6 DivR8 / <<<<<<< we divide 10 / 2 = result is 5
000019FF: E5 CI2R8
00001A00: 70 FStI2 var_88
00001A03: 6B FLdI2 var_88
00001A06: F4 LitI2_Byte: 10 0xA <<< number 10
00001A08: A9 AddI2 + <<<<< then we add 10 + 5 = result 15
00001A09: 70 FStI2 var_88
00001A0C: 04 FLdRfVar var_90
00001A0F: 21 FLdPrThis
00001A10: 0F VCallAd
00001A13: 19 FStAdFunc var_8C
00001A16: 08 FLdPr var_8C
00001A19: 0D VCallHresult TextBox.Get_Text() <<< text Box
00001A1E: 6C ILdRf var_90
00001A21: FC33 CR8Str
00001A23: 6B FLdI2 var_88
00001A26: EB CR8I2 Int(number)
00001A27: C8 EqR4 = <<<<< now when we get to compare the result
00001A28: 2F FFree1Str var_90 <<<<<<< we have 2 options 1 is that we already
00001A2B: 1A FFree1Ad var_8C <<<<<<<< know the result so we can patch 1t
00001A2E: 1C BranchF 00001A5D <<<<<<< here we can patch opcode 1c for 1D
00001A31: 27 LitVar_Missing
00001A34: 27 LitVar_Missing
00001A37: 27 LitVar_Missing
00001A3A: F5 LitI4: 0 0x0
00001A3F: 3A LitVarStr: "FANTASTIC WORK" <<<< now we always jump to god boy
00001A44: 4E FStVarCopyObj var_B0
00001A47: 04 FLdRfVar var_B0
00001A4A: 0A ImpAdCallFPR4 MsgBox() <<< call to the messageBox god boy
00001A4F: 36 FFreeVar var_B0 var_D0 var_F0 var_110
00001A5A: 1E Branch 00001A86
00001A5D: loc_00001A2E
00001A5D: 27 LitVar_Missing
00001A60: 27 LitVar_Missing
00001A63: 27 LitVar_Missing
00001A66: F5 LitI4: 0 0x0
00001A6B: 3A LitVarStr: "SORRY INCORRECT" <<<< if dont change opcode 1C BAd boy
00001A70: 4E FStVarCopyObj var_B0
00001A73: 04 FLdRfVar var_B0
00001A76: 0A ImpAdCallFPR4 MsgBox() <<<< call to the messagebox bad boy
00001A7B: 36 FFreeVar var_B0 var_D0 var_F0 var_110
00001A86: loc_00001A5A
00001A86: 13 ExitProcHresult <<<<< end sub ExitFile processed OK.

so we can see that the opcodes and functions so this is very good because

with this we can make a easy kegenme or wherever we like to do we can see

the operators to make the mathematics and operations

Private Sub Command1_Click()Dim delldell As Integer
Dim result As Integerdelldell = 3result = delldell * 2
result = result + 4
result = result / 2
result = result + 10If Text1.Text = result Then
MsgBox "FANTASTIC WORK"
Else
MsgBox "SORRY INCORRECT"
End IfEnd Sub

the source code of this example so you can see that the information

that we get from the p32dasm is very importan

=========

nowe if you want experiment with my program

 how to patch DellDell P-CODE numbers
00009565: 1C BranchF 000095B7 <<<< PATCH this 1C TO 1D
000095C8: FD95 ExitProcCb

we can patch the program to acept all the serials just change the opcode 1C TO 1D in the address

thank you very much

  • Like 2
Link to comment
Share on other sites

@kakamail @delldell P32Dasm seems to run ok in wow64 under Win 7 64bit. I used the version delldell linked. No error msgs anyway. I didn't try every feature of the program though. For opening and breaking down the topic's target, it works without error messages. VB6 run time DLL is the only dependency listed. If you are getting an error maybe there is a problem with the folder you are running it from; too long of a full path directory name can cause problems older apps. Trying running from a folder higher in the top levels of the root directory. There are several OCX files in a folder the zip file delldell linked. Try using that version if you have not tried it.

Link to comment
Share on other sites

I download from its homepage. And also delldell's link. Both have same error.

The folder OCX has all ocx file, but no luck, still tell me that it's missing, as i said, i tried register it but it said i can not register.

My Os is SP2, since i remove my Visual Basic, all vb program has not worked as usual, when i install vb again, they work perfectly! (With the tool by Lena151 in her tut1, i just copy 1 missing DLL file to right folder and it works, no need to re-install VB) But i have to uninstall and remove vb from my computer because of lacking space! The WTK debugger does not work on my computer, not issue of vb but i don't know why.

Link to comment
Share on other sites

You should just need the runtime files with the common control files. There are only a few files placed in the system path. Install runtime first, then common controls. This should register them to the correct version in your system path. You will probably need to reboot afterward.

VB6 runtime. VB6 core dll files. ..http://www.microsoft.com/en-us/download/details.aspx?id=24417

VB6 common control comctl32 ocx ..http://www.microsoft.com/en-us/download/details.aspx?id=10019

edit: here are the files/sizes that will be installed, updated and registered with the system.

Asycfilt.dll 2.40.4275.1 144 KB (147,728 bytes)

Comcat.dll 4.71.1460.1 21.7 KB (22,288 bytes)

Msvbvm60.dll 6.0.97.82 1.32 MB (1,386,496 bytes)

Oleaut32.dll 2.40.4275.1 584 KB (598,288 bytes)

Olepro32.dll 5.0.4275.1 160 KB (164,112 bytes)

Stdole2.tlb 2.40.4275.1 17.5 KB (17,920 bytes)

Date Time Version Size File name

------------------------------------------------------

18-Aug-2003 20:25 6.0.81.6 1,344,512 Comctl32.ocx

02-Nov-2004 00:16 6.1.97.86 1,064,208 Mscomctl.ocx

Edited by redblkjck
  • Like 1
Link to comment
Share on other sites

Hi,

I want to thank to redblkjck for helping me with those files. P32Dasm now works well on my computer :) I will try this keygenme base on help of delldell, thank you too.

Link to comment
Share on other sites

  • 3 weeks later...
  • 1 month later...

@ kakamail

the opcodes and funcions are very important

in p32dasm you can view the opcodes and functions

I dont know if p32dasm works on other OS than XP

http://ricardonarvaj...O-P/p32dasm.zip

now I will put an example: ( hope is not Boring hehehehehe)

VB6 Application detected ... PCode-small tut by delldell -Form1 1.1 Command1.Click() ----
000019E0: F4 LitI2_Byte: 3 0x3 <<<<<< we add 3 to variable
000019E2: 70 FStI2 var_86
000019E5: 6B FLdI2 var_86
000019E8: F4 LitI2_Byte: 2 0x2 <<<< number 2
000019EA: B1 MulI2 * <<<<<< multiply 3 * 2= result is 6
000019EB: 70 FStI2 var_88
000019EE: 6B FLdI2 var_88
000019F1: F4 LitI2_Byte: 4 0x4 <<<<< number 4
000019F3: A9 AddI2 + <<<<<< we add 4 + 6 =result is 10
000019F4: 70 FStI2 var_88
000019F7: 6B FLdI2 var_88
000019FA: EB CR8I2 Int(number)
000019FB: F4 LitI2_Byte: 2 0x2 <<< number 2
000019FD: EB CR8I2 Int(number)
000019FE: B6 DivR8 / <<<<<<< we divide 10 / 2 = result is 5
000019FF: E5 CI2R8
00001A00: 70 FStI2 var_88
00001A03: 6B FLdI2 var_88
00001A06: F4 LitI2_Byte: 10 0xA <<< number 10
00001A08: A9 AddI2 + <<<<< then we add 10 + 5 = result 15
00001A09: 70 FStI2 var_88
00001A0C: 04 FLdRfVar var_90
00001A0F: 21 FLdPrThis
00001A10: 0F VCallAd
00001A13: 19 FStAdFunc var_8C
00001A16: 08 FLdPr var_8C
00001A19: 0D VCallHresult TextBox.Get_Text() <<< text Box
00001A1E: 6C ILdRf var_90
00001A21: FC33 CR8Str
00001A23: 6B FLdI2 var_88
00001A26: EB CR8I2 Int(number)
00001A27: C8 EqR4 = <<<<< now when we get to compare the result
00001A28: 2F FFree1Str var_90 <<<<<<< we have 2 options 1 is that we already
00001A2B: 1A FFree1Ad var_8C <<<<<<<< know the result so we can patch 1t
00001A2E: 1C BranchF 00001A5D <<<<<<< here we can patch opcode 1c for 1D
00001A31: 27 LitVar_Missing
00001A34: 27 LitVar_Missing
00001A37: 27 LitVar_Missing
00001A3A: F5 LitI4: 0 0x0
00001A3F: 3A LitVarStr: "FANTASTIC WORK" <<<< now we always jump to god boy
00001A44: 4E FStVarCopyObj var_B0
00001A47: 04 FLdRfVar var_B0
00001A4A: 0A ImpAdCallFPR4 MsgBox() <<< call to the messageBox god boy
00001A4F: 36 FFreeVar var_B0 var_D0 var_F0 var_110
00001A5A: 1E Branch 00001A86
00001A5D: loc_00001A2E
00001A5D: 27 LitVar_Missing
00001A60: 27 LitVar_Missing
00001A63: 27 LitVar_Missing
00001A66: F5 LitI4: 0 0x0
00001A6B: 3A LitVarStr: "SORRY INCORRECT" <<<< if dont change opcode 1C BAd boy
00001A70: 4E FStVarCopyObj var_B0
00001A73: 04 FLdRfVar var_B0
00001A76: 0A ImpAdCallFPR4 MsgBox() <<<< call to the messagebox bad boy
00001A7B: 36 FFreeVar var_B0 var_D0 var_F0 var_110
00001A86: loc_00001A5A
00001A86: 13 ExitProcHresult <<<<< end sub ExitFile processed OK.

so we can see that the opcodes and functions so this is very good because

with this we can make a easy kegenme or wherever we like to do we can see

the operators to make the mathematics and operations

Private Sub Command1_Click()Dim delldell As Integer
Dim result As Integerdelldell = 3result = delldell * 2
result = result + 4
result = result / 2
result = result + 10If Text1.Text = result Then
MsgBox "FANTASTIC WORK"
Else
MsgBox "SORRY INCORRECT"
End IfEnd Sub

the source code of this example so you can see that the information

that we get from the p32dasm is very importan

=========

nowe if you want experiment with my program

 how to patch DellDell P-CODE numbers
00009565: 1C BranchF 000095B7 <<<< PATCH this 1C TO 1D
000095C8: FD95 ExitProcCb

we can patch the program to acept all the serials just change the opcode 1C TO 1D in the address

thank you very much

Why problem downloading?

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...