downloadbrowsegeeko's El cripto

Download crackme2.zip, 199 kb (password: crackmes.de)
Browse contents of crackme2.zip

Enter the response key to see the 'good guy' message.
create a key gen
write a tutorial

Difficulty: 1 - Very easy, for newbies
Platform: Windows
Language: Borland Delphi

Published: 28. Aug, 2006
Downloads: 1021

Rating

Waiting for at least 3 votes
(we have only 2).

Rate this crackme:

Send a message to geeko »

View profile of geeko »

Solutions

Solution by HMX0101, published 04. oct, 2006; download (22 kb), password: crackmes.de or browse.

HMX0101 has not rated this crackme yet.

Submit your solution »

Discussion and comments

l0calh0st
29. Aug 2006		Should have used text box instead of label to make it user friendly for using keygen:)
AlexeyG
29. Aug 2006		anyone who managed to get to the place where we read the text from the textbox, could you give me a tip on this here or in PM?
l0calh0st
29. Aug 2006		Ok i created a keygen

http://l0calh0st.byethost16.com/files/crackmes/keygen_geeko_kgme.rar
AlexeyG
29. Aug 2006		Here is my keygen + Delphi source:
http://alexeyg.denduvel.nl/solutions/solution_geeko_el_cripto.zip
geeko
Author
30. Aug 2006		good job. thanks guys. but what about a tut?
Alexey, edx:=edx and $FF; does change something! coz EDX is a 32 bits register (not 8), remember?
AlexeyG
30. Aug 2006		But from edx and ecx we only use dl and dl, as I belive(may be wrong). This is why I left this comment.
HMX0101
30. Aug 2006		My keygen source (delphi):

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var s: string;
i, i1, a, b, c: integer;
begin
Write('Enter crypted string: '); readln(s);
if length(s) >= 1 then
begin
i1:= 2;
for i:= 1 to length(s)-1 do
begin
if not odd(i1) then
begin
c:= ord(s[i1-1]) and $F0;
a:= (ord(s[i1-1]) and $F) + (ord(s[i1]) and $F0);
s[i1-1]:= chr(ord(a));
b:= (ord(s[i1]) and $F) + c;
s[i1]:= chr(ord(byte((b))));
end
else
begin
c:= ord(s[i1-1]) and $F;
a:= (ord(s[i1-1]) and $F0) + (ord(s[i1]) and $F);
s[i1-1]:= chr(ord(a));
b:= (ord(s[i1]) and $F0) + c;
s[i1]:= chr(ord(byte(b)));
end;
inc(i1);
end;
Writeln('Serial : ', s);
Writeln(#10#13, 'Enjoy it!');
end;
Readln;
end.

Great crackme, geeko :)
geeko
Author
31. Aug 2006		who dares to write the tut on how did u find it?
geeko
Author
07. Sep 2006		Hey!
Who is not so lazy, to write tuto?

You may leave your comment, thoughts and discuss this crackme with other reversers here.
Acting childish will not be tolerated.
HTML and such will be left as-is, so don't try.