This is my first KeygenMe. It's very old project, but I never posted on the internet. So this is the moment

Description:

Not packed, no cryptos, no hashes, just a little math

Language: Delphi

Rules:

1. Keygenning is the ultimate goal

2. Self-Keygenning and Phishing are more than welcome

3. Tutorials and tips are welcome

4. No patching.

yeah I think is not really for noobs, but it is really easy !!!

I hope to see keygens, source codes (ofcourse if you are not stingy - "close-fisted") and tutorials.

Download:

Mediafire:

http://www.mediafire.com/?wrsasbm6cf5ngs9

Multiupload:

http://www.multiupload.com/190FWQ9IUB

Attachment:

beBoss - KeyGenMe #1.rar

no tutorial (I suck at them), but here's my keygenbeBoss_KeygenMe_solution.rar

no tutorial (I suck at them), but here's my keygenbeBoss_KeygenMe_solution.rar

Good solution, congratulations !

source

procedure TForm1.Button1Click(Sender: TObject);
const n =30;
var
m:Array[1..n] of cardinal;
i: cardinal;
st:string;beginfor i := 1 to n do
m[i] := Random(10);
//=================
m[2]:=6;
m[3]:=2;
m[11]:=9;
m[12]:=3;
m[21]:=6;
m[22]:=4;
m[23]:=5;
m[24]:=2;
m[15]:=7;
m[30]:=2;
//=================
for i:=1 to n do
st:=st+IntToStr(m[i]);
st:=st+Copy(st,0,29);
insert('-', st, 22);
insert('-', st, 40);
Edit1.Text:=(st);
end;
end.

З.Ы. аффтар, пеши исчо

Project1.rar

Edited January 3, 201114 yr by SReg

Good work, SReg.

p.s. Your constants in array, are variables in my keygenme. Maybe you know that. But that's no matter, great job