[KeyGenMe] beBoss - KeyGenMe #1

[beBoss™]

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

[T-rad]

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

[beBoss™]

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

Good solution, congratulations !

[SReg]

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, 2011 by SReg

[beBoss™]

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