Jump to content
Tuts 4 You

[keygenme] keyGenMe


tarequl.hassan

Recommended Posts

The [keygenme] 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

var
i,j:Cardinal;
dwBuf:DWORD;
szName,Key,P1:string;
const Fix = 'IP-POWERARC';
begin
szName := Edit1.Text;
if (length(szName) < 2) or (length(szName) > 30) then
begin
edit2.text := 'Length of Name between 2..30';
end else
begin
j := 1;
P1 := '';
dwBuf := $1403;
for i := 1 to Length(szName) do
begin
dwBuf := (dwBuf + ord(szName[i])) mod $0FF;
dwBuf := dwBuf xor ord(Fix[j]);
inc(j);
if j > 11 then
j := 1;
P1 := P1 + IntToHex(dwBuf,2);
end;
P1 := '1403' + P1 ;
i:= Length(P1);
j := (i shr 2) or (($FFFFFFFF * (i shr 31)) shl (31 - 2));
i:= 1;
while i < 5 do
begin
Key := Key + P1[j*i]+P1[j*i-1];
inc(i);
end;
Edit2.Text := Key;
end;
end;

to easy

Link to comment
tarequl.hassan

Hi.

So Easy.

@DE!

you keygen seems have some bug, for example give it: "3431" as user it give us: "043 B78B" but answer is "0430B78B"

KinD Regards

Thank you @DE. It was not that hard, was it?

Link to comment
tarequl.hassan

Hi.

So Easy.

@DE!

you keygen seems have some bug, for example give it: "3431" as user it give us: "043 B78B" but answer is "0430B78B"

KinD Regards

Hi.

So Easy.

@DE!

you keygen seems have some bug, for example give it: "3431" as user it give us: "043 B78B" but answer is "0430B78B"

KinD Regards

Reham thank you for your try, But where is the source code?

Link to comment
tarequl.hassan

var
i,j:Cardinal;
dwBuf:DWORD;
szName,Key,P1:string;
const Fix = 'IP-POWERARC';
begin
szName := Edit1.Text;
if (length(szName) < 2) or (length(szName) > 30) then
begin
edit2.text := 'Length of Name between 2..30';
end else
begin
j := 1;
P1 := '';
dwBuf := $1403;
for i := 1 to Length(szName) do
begin
dwBuf := (dwBuf + ord(szName[i])) mod $0FF;
dwBuf := dwBuf xor ord(Fix[j]);
inc(j);
if j > 11 then
j := 1;
P1 := P1 + IntToHex(dwBuf,2);
end;
P1 := '1403' + P1 ;
i:= Length(P1);
j := (i shr 2) or (($FFFFFFFF * (i shr 31)) shl (31 - 2));
i:= 1;
while i < 5 do
begin
Key := Key + P1[j*i]+P1[j*i-1];
inc(i);
end;
Edit2.Text := Key;
end;
end;

to easy


var
i,j:Cardinal;
dwBuf:DWORD;
szName,Key,P1:string;
const Fix = 'IP-POWERARC';
begin
szName := Edit1.Text;
if (length(szName) < 2) or (length(szName) > 30) then
begin
edit2.text := 'Length of Name between 2..30';
end else
begin
j := 1;
P1 := '';
dwBuf := $1403;
for i := 1 to Length(szName) do
begin
dwBuf := (dwBuf + ord(szName[i])) mod $0FF;
dwBuf := dwBuf xor ord(Fix[j]);
inc(j);
if j > 11 then
j := 1;
P1 := P1 + IntToHex(dwBuf,2);
end;
P1 := '1403' + P1 ;
i:= Length(P1);
j := (i shr 2) or (($FFFFFFFF * (i shr 31)) shl (31 - 2));
i:= 1;
while i < 5 do
begin
Key := Key + P1[j*i]+P1[j*i-1];
inc(i);
end;
Edit2.Text := Key;
end;
end;

to easy

SAMA thank you. Could you please upload the keygen?

Link to comment

Thank you @DE. It was not that hard, was it?

Not really, but the IP-POWERARC... hmmm.. Algo looks familiar now.. doh.gif

Edited by DE!
Link to comment
  • 3 weeks later...

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