Jump to content
Tuts 4 You

[Keygenme] XorRanger's KeygenMe 3


XorRanger

Recommended Posts

Also easy (

------------

DimitarSerg

B7-6878A-AA

-----------------

I am lazy to rip the algo.

Edited by DimitarSerg
  • Like 1
Link to comment
Share on other sites

It was easy to get the serial but don't know how to rip the algorithm. It's MD5 + Custom.


 


Name: LordCoder//REiS


Serial: 3D9-5E3BD-76


Edited by LordCoder
  • Like 2
Link to comment
Share on other sites

Thanks for keygenme

like last time easy and minor bugs.

MD5 InitvectorsVector 1 == $87654321Vector 2 == $ABCDEFDEVector 3 == $98BADCFEVector 4 == $12345678const  sODD ='E:3D60>?:5!8e£%$1=E>¸913[^';  sEven = '@(*"£%^&*?><~#:;.!$%+-_(!^';implementationuses MD5 ;{$R *.dfm}procedure TForm1.Btn1Click(Sender: TObject);var  i, Sum, iLen, tmp, X:DWORD;  sName,Serial, sTemp, sHash:string;begin  Serial := '';  sName := Edit1.Text;  iLen := Length(sName);  if (iLen < 5) or (iLen >26) then    Edit2.Text := 'NameLength 5...26'  else  begin    x:= iLen shr 1;    if Odd(iLen)then    begin      for i := 1 to iLen do      begin        tmp := Ord(sName[i]) xor Ord(sODD[i]);        sTemp := IntToStr(tmp);        Serial:= Serial + sTemp;      end;    end    else    begin      for i := 1 to X do      begin        tmp := Ord(sName[i]) xor Ord(sEven[i]);        sTemp := IntToStr(tmp);        Serial:= Serial + sTemp;      end;    end;    sTemp := Serial;    Serial := IntToHex(StrToInt(Copy(Serial,1,3)),0)+ '-';    sHash := Copy(StrMD5(sTemp),2,5);    sTemp := '-' + IntToHex(StrToInt(Copy(sTemp,Length(sTemp)-2,3)),0);    Edit2.Text := Serial + sHash + sTemp;  end;end;

 

I was also lazy to rip the algo :prop:

  • Like 2
Link to comment
Share on other sites

It was easy to get the serial but don't know how to rip the algorithm. It's MD5 + Custom.

 

Name: LordCoder//REiS

Serial: 3D9-5E3BD-76

 

Glad to See Your Result. Good Job.

Link to comment
Share on other sites

Thanks for keygenme

like last time easy and minor bugs.

MD5 InitvectorsVector 1 == $87654321Vector 2 == $ABCDEFDEVector 3 == $98BADCFEVector 4 == $12345678const  sODD ='E:3D60>?:5!8e£%$1=E>¸913[^';  sEven = '@(*"£%^&*?><~#:;.!$%+-_(!^';implementationuses MD5 ;{$R *.dfm}procedure TForm1.Btn1Click(Sender: TObject);var  i, Sum, iLen, tmp, X:DWORD;  sName,Serial, sTemp, sHash:string;begin  Serial := '';  sName := Edit1.Text;  iLen := Length(sName);  if (iLen < 5) or (iLen >26) then    Edit2.Text := 'NameLength 5...26'  else  begin    x:= iLen shr 1;    if Odd(iLen)then    begin      for i := 1 to iLen do      begin        tmp := Ord(sName[i]) xor Ord(sODD[i]);        sTemp := IntToStr(tmp);        Serial:= Serial + sTemp;      end;    end    else    begin      for i := 1 to X do      begin        tmp := Ord(sName[i]) xor Ord(sEven[i]);        sTemp := IntToStr(tmp);        Serial:= Serial + sTemp;      end;    end;    sTemp := Serial;    Serial := IntToHex(StrToInt(Copy(Serial,1,3)),0)+ '-';    sHash := Copy(StrMD5(sTemp),2,5);    sTemp := '-' + IntToHex(StrToInt(Copy(sTemp,Length(sTemp)-2,3)),0);    Edit2.Text := Serial + sHash + sTemp;  end;end;

 

I was also lazy to rip the algo :prop:

 

Good Job, Sama, But Unfortunately Your Keygen Generates Wrong Results When I Compiled it. Plz Check it Again.

 

Hint : Error is in sHash Value.

 

// sHash := Copy(StrMD5(sTemp),2,5);

Link to comment
Share on other sites

Really?

I can not imagine that unless the error is up to you as my compilation produces correct key.

 

Thank you for feedback

check attachement

 

(translated with google translator-online, sorry)

 

Wow, The Compiled Result in The Attachment Produces Correct Result.  :scratch:

Thanks For Replying . :smilie3:

 

Link to comment
Share on other sites

Thanks


 


ragdog


1FB-B4DDC-179


 


Keygen can i send you


 


But you Keygenme has a small bug


Edited by ragdog
  • Like 1
Link to comment
Share on other sites

I am starting to think that XorRanger is doing this on purpose to test others, but again, I could be wrong :ltongue:

Hehehe .................... :smilie3:

Link to comment
Share on other sites

~~~ updated ~~~


 


Packeged (kgm + kgm unpacked + kg + tutorial). Hope someone finds it useful.


 


P.S: More tutorials on other targets will come soon.


package.7z

Edited by ChOoKi
  • Like 5
Link to comment
Share on other sites

thx ChOoKi waiting i see all people just solve keygenmes and no one making tutorials on how to i am sure some people will like to see tutorials  


Link to comment
Share on other sites

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