Jump to content
Tuts 4 You

[KeyGenMe] beBoss - KeyGenMe #1


beBoss™

Recommended Posts

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

  • Like 1
Link to comment

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 by SReg
Link to comment

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 :P

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