[Keygenme] XorRanger's KeygenMe 1

[XorRanger]

Hello All,

This is My First KeygenMe in Delphi

Solution: Only Keygens Are Allowed.

Language: Delphi

Packer: UPX. Simply Use "upx -d " to Decompress

Cryptos: None. {I Really Hate Cryptos} :winks:

Level: You Decide.

Please Solve. Thanks

Could One Of The Mods Help Me Attach The File. I Am Having Issues Attaching it to The Forum.

 

http://up.ht/1bdwSXM

Edited December 2, 2013 by XorRanger

[SReg]

@XorRanger

kg+src.rar

[sama]

Keygen & srcthanks

Sol_XoRanger_1.rar

Edited December 3, 2013 by sama

[ChOoKi]

Thanks for the challenge.

sol.7z

[XorRanger]

@XorRanger

Awesome Job SReg,

Please One Question?

How Did You Know I Used This Particular Function.

function GetUN: string;const   cnMaxUserNameLen = 254;var   sUserName: string;   dwUserNameLen: DWORD;begin   dwUserNameLen := cnMaxUserNameLen - 1;   SetLength(sUserName, cnMaxUserNameLen);   GetUserName(PChar(sUserName), dwUserNameLen);   SetLength(sUserName, dwUserNameLen);   Result := sUserName;end;function HDD: string;var VolumeName, FileSystemName : array [0..MAX_PATH-1] of Char; VolumeSerialNo : DWord; MaxComponentLength, FileSystemFlags : DWORD;begin GetVolumeInformation(pchar('C:\'), VolumeName, MAX_PATH, @VolumeSerialNo, MaxComponentLength, FileSystemFlags, FileSystemName,MAX_PATH); result := IntToHex(VolumeSerialNo,8);end;

[XorRanger]

Nice One Sama.
Thanks For Attempting.

I Hope One Day One Would Be Able to Code in ASM Like You.

Edited December 3, 2013 by XorRanger

[XorRanger]

@ ChOoki,

I Knew This Would Be a Piece Of Cake For You.

Nice Keygen I Must Confess and Really Funny Of You to ReUse The Chiptune.

Edited December 3, 2013 by XorRanger

[ChOoKi]

Something tells me that XorRanger wont be getting his answers this year . Here are things a fortune teller might say:

CALL <JMP.&advapi32.GetUserNameA>                         ;  GetUserNameA

.....

MOV AL,63

CALL <JMP.&KERNEL32.GetVolumeInformationA>                ;  GetVolumeInformationA

.....

And as an added bonus:

CALL <JMP.&KERNEL32.FindResourceA>                        ;  FindResourceA

ResourceName = "Kernel32"

ResourceType = RT_RCDATA

 

Edited December 6, 2013 by ChOoKi

[XorRanger]

Something tells me that XorRanger wont be getting his answers this year . Here are things a fortune teller might say:

 

Thanks a Lot For Your Answer.