Jump to content
Tuts 4 You

[crackme] VicCrkMe #1 by vic4key {CiN1}


Vic

Recommended Posts

Teddy Rogers

The [crackme] tag has been added to your topic title.

Please remember to follow and adhere to the topic title format - thankyou!

[This is an automated reply]

Link to comment

hi

no problem in keygenning.

but your keygenMe have a bug

look at:

00457AE4 => MOVZX ECX,BYTE PTR DS:[ECX+EBX]

this line should be:

MOVZX ECX,BYTE PTR DS:[ECX+EBX-1] // else it will dont start with index 1

am right?

Edited by Raham
Link to comment

Oh no. You was confused. It is not a bug. It saves the real result from the function calculation-size function. An essential for my function need to use.

Can I wait algorithm of you for my crackme? :cupidarrow:

Edited by vic4key
Link to comment

Oh no you. Your file fixed was failed for my algorithm. It not right when to test with real unlock code. =.=

Edited by vic4key
Link to comment

hi Guys

First Key of Original CrackMe (posted by Vic4key,not my fixed one):


××××××××××××××××××××××××××××××

// its 30 character on key ascii 0xD7

Register Key:


User: Raham
Code:513450
Code: 00
Code :476A
Code : AAAAA3
Code: CBBBW62
Code: SnD54

Kind Regards

Edited by Raham
Link to comment
Level: Hard

hard? :cc_confused:

procedure TForm1.Button1Click(Sender: TObject);

var

i,k,n:integer; sn:string;

begin

randomize;

k := 0;

sn := Edit1.Text;

for i := 1 to length(sn) do k := k+ord(sn)*2;

k := k mod 10;

repeat

n:=0;

sn:='';

for i := 1 to random(10) do sn := sn + chr (random(10) + 48);

for i := 1 to length(sn) do n := n + ord(sn)*2 + ord(sn);

until n mod 10 = k;

Edit2.Text:=sn;

end;

Edited by SReg
Link to comment

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...