XorRanger Posted January 31, 2014 Posted January 31, 2014 Hello All, Another Challenge For You All.Solution: Only Keygens Are Allowed. A Tutorial Would Be An Added Bonus. Level: You Decide. Please Solve. Thanks. Download http://up.ht/1a89iC4 2
DimitarSerg Posted January 31, 2014 Posted January 31, 2014 (edited) Also easy (------------DimitarSergB7-6878A-AA-----------------I am lazy to rip the algo. Edited January 31, 2014 by DimitarSerg 1
XorRanger Posted January 31, 2014 Author Posted January 31, 2014 Also easy ( ------------ DimitarSerg B7-6878A-AA ----------------- I am lazy to rip the algo. Lol . Nice Try.
LordCoder Posted January 31, 2014 Posted January 31, 2014 (edited) It was easy to get the serial but don't know how to rip the algorithm. It's MD5 + Custom. Name: LordCoder//REiSSerial: 3D9-5E3BD-76 Edited January 31, 2014 by LordCoder 2
sama Posted January 31, 2014 Posted January 31, 2014 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 2
XorRanger Posted February 1, 2014 Author Posted February 1, 2014 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.
XorRanger Posted February 1, 2014 Author Posted February 1, 2014 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 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);
sama Posted February 1, 2014 Posted February 1, 2014 Really? I can not imagine that unless the error is up to you as my compilation produces correct key. Thank you for feedbackcheck attachement (translated with google translator-online, sorry) Sol_XorRanger3.rar
XorRanger Posted February 1, 2014 Author Posted February 1, 2014 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. Thanks For Replying .
ragdog Posted February 2, 2014 Posted February 2, 2014 (edited) Thanks ragdog1FB-B4DDC-179 Keygen can i send you But you Keygenme has a small bug Edited February 2, 2014 by ragdog 1
ChOoKi Posted February 3, 2014 Posted February 3, 2014 I am starting to think that XorRanger is doing this on purpose to test others, but again, I could be wrong 1
XorRanger Posted February 3, 2014 Author Posted February 3, 2014 I am starting to think that XorRanger is doing this on purpose to test others, but again, I could be wrong Hehehe ....................
ragdog Posted February 7, 2014 Posted February 7, 2014 think that XorRanger is doing this on purpose to test others I think not with your two tables....
ChOoKi Posted February 13, 2014 Posted February 13, 2014 (edited) ~~~ 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 February 13, 2014 by ChOoKi 5
Dreamer Posted February 13, 2014 Posted February 13, 2014 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
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now