[keygenme] keyGenMe

[tarequl.hassan]

Just KeyGen WITH SOURCE CODE IS ALLOWED

http://www.mediafire...5ddzgnqtxwt06np

KeyGenMe by tarequl.rar

Edited February 8, 2012 by tarequl.hassan

[DE!]

Solution with source in Lazarus/Free Pascal

Thanks Raham for pointing the bug out. The format string was wrong...

Fixed it and uploaded a new keygen + source

KeyGenMe2.rar

Edited February 8, 2012 by DE!

[Teddy Rogers]

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]

[Raham]

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

Keygen.rar

Edited February 8, 2012 by Raham

[sama]

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

[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?

[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?

[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?

[DE!]

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

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

Edited February 9, 2012 by DE!

[GrindStone]

Just try to melting my frozen brain. Hope it still work normally...

Solution is keygen with source compiled with Lazarus/Free Pascal.

Thanks for the challenge mate.

Solution for KeyGenMe by tarequl.rar

[DeadAndGone]

@GrindStone

Good to see ya here!

Edited March 1, 2012 by Silence