[Keygenme] XorRanger's KeygenMe 5

[XorRanger]

Hello All,

Here is a Quick KeygenME I Put Together While I Was Bored Today.
Rules

Only Keygens Are Allowed.

No Ripping Of Algos From The KeygenME.

A Tutorial Would Be An Added Bonus.
Language: Delphi
Packer: PeCompact.
Please Do Solve.

Thanks

 

XorRanger's KeygenME #5.rar

[DimitarSerg]

auth: 987654321234

serial: 509132489092

[XorRanger]

auth: 987654321234 serial: 509132489092

@ DimitarSerg, Unfortunately Your Serial Fails.

[DimitarSerg]

 

 

If you cann't copy the serial without spaces that's not my fail

p.s. or use Trim function

p.p.s or maybe it depends upon some system parameters

 

Edited May 10, 2014 by DimitarSerg

[XorRanger]

 

 

 

If you cann't copy the serial without spaces that's not my fail

p.s. or use Trim function

p.p.s or maybe it depends upon some system parameters

 

 

 

Please Make a Keygen Cos Your Serial Still Fails For Me.

Or May Be SomeOne Else Could Try Your Serial

Edited May 10, 2014 by XorRanger

[LordCoder]

DimitarSerg your serial isn't working for me too. Using Windows 7.

Edited May 10, 2014 by LordCoder

[Dreamer]

where is ChOoKi

[ChOoKi]

@LordCoder: Try this for DimitarSerg's AuthKey:

AuthKey:   987654321234
SerialKey: 5192314?9?9?

 

@Dreamer: What did i miss?

AuthKey:   123456789123
SerialKey: 5041329?1?2?

 

"?" can be anything really

Edited May 10, 2014 by ChOoKi

[Dreamer]

@Dreamer: What did i miss?

 

tutorial i think 

[ChOoKi]

@Dreamer: A tut on this one will take forever to make, especially the call with floats

[Dreamer]

ok   

[DimitarSerg]

 

 

 

@LordCoder: Try this for DimitarSerg's AuthKey:

AuthKey:   987654321234
SerialKey: 5192314?9?9?

 

 

For the first time while debugging I saw these values, but for second time debugging the correct keypair was

 

auth: 987654321234
serial: 5091324?9?9?

 

That's why I think the keygenme is a little buggy but I have no interest and time to find where is the bug.

Edited May 10, 2014 by DimitarSerg

[ChOoKi]

@DimitarSerg: Thank GOD for that, i was starting to think my OS is playing up again

@XorRanger: 2 MBs for a bit of math? what version of Delphi are you using there?

[XorRanger]

@ ChOoki, Your Serial Combo is Working Fine. Thanks For it. Still Waiting For Your Keygen Though.

Edited May 10, 2014 by XorRanger

[XorRanger]

@ ChOoki, Your Serial Combo is Working Fine.

Thanks For it.

Still Waiting For Your Keygen Though.

[XorRanger]

@DimitarSerg: Thank GOD for that, i was starting to think my OS is playing up again

@XorRanger: 2 MBs for a bit of math? what version of Delphi are you using there?

Just Switched to XE5 Lately.

[ChOoKi]

Just Switched to XE5 Lately.

 

Maybe you should switch back Here is my solution:

 

Update: Solution has been updated due to a bug in the old one.

solution.7z

Edited May 12, 2014 by ChOoKi

[Nooby]

@ChOoKi

I like your recent solutions, especially that sudoku one. I'm hoping to see one for mine too.

[XorRanger]

Maybe you should switch back Here is my solution:

Nice One ChOoki, I Knew You Could Do it.

How Would You Rate The Difficulty Please?

** Side Question

Is it Possible to Do this in Delphi 7

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

type

  r1 = array of Double;

 

Var

 

 MyArr1: r1;

 

 MyArr1 := r1.Create(x11, x12, x13, b1);

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

Cos it Did Not Compile For Me in Delphi 7  

 

 

[kao]

Assuming x11, x12, x13, x14 are variables:

type

  r1 = array of Double;

Var

 MyArr1: r1;

SetLength(MyArr1,4);

MyArr[0]:=x11;

MyArr[1]:=x12;

MyArr[2]:=x13;

MyArr[3]:=b1;

More at: http://www.delphitools.info/2013/02/18/delphi-array-constructors-performance-or-lack-of/ and http://docwiki.embarcadero.com/RADStudio/XE3/en/Structured_Types#Dynamic_Arrays

 

[XorRanger]

 

Assuming x11, x12, x13, x14 are variables:

type  r1 = array of Double;Var MyArr1: r1;SetLength(MyArr1,4);MyArr[0]:=x11;MyArr[1]:=x12;MyArr[2]:=x13;MyArr[3]:=b1;

More at: http://www.delphitools.info/2013/02/18/delphi-array-constructors-performance-or-lack-of/ and http://docwiki.embarcadero.com/RADStudio/XE3/en/Structured_Types#Dynamic_Arrays

 

Thanks Kao,

I Know it is Possible to do it this Way But I Just Wanted to Confirm if My Above Method or Similar Single Line Assignment Would Work in Delphi 7.

Thanks Once Again.

[ChOoKi]

Update:

 

Original solution had a bug and it has been updated, also a package will be released here soon (Original file, Unpacked file, PDF tutorial (printing disallowed ) + step-by-step Keygenner).

 

@XorRanger: To rate it I'd have to say "Easy" but can be "Tricky" if you rush into coding a keygen for it (as I did).

 

@Nooby: Only if you lend me ONE of the primes for the 511 bits RSA used

Edited May 12, 2014 by ChOoKi

[Nooby]

@ChOoKi two's company, three's a crowd, not the forth.

[ChOoKi]

As promised

Package.7z

[XorRanger]

As promised

ChOoki, is there anything UnKeygennable by You?    

Really Awesome Job Especially With The Tutorial and Explanations.

Keep Blazing.