| Program: | Tres2000 CrackMe#4 |
| Tools: | Soft-Ice, Delphi |
| Url: | Tres2000 |
| Skill: | 2/10 |
| Author: | stealthFIGHTER |
| Essay: |
| ============================================================================================ Run CrackMe >>enter dummy password (I entered: ABCDEFGHIJKLMNO) >>Push "Check" button >>Wrong code! message. Go to Soft-Ice and type bpx hmemcpy >>go back and push "Check" button again >>Soft-Ice pops-up >> disable the breakpoint. Now we will trace into the CrackMe code >>press F11 key to get to the caller >>then press 11 times F12 key to get to the CrackMe code. You will see: ============================================================================================ : : CALL 00403B70 CMP BYTE PTR [EBP-00FE], 54 ______; Compare 2nd char with 'T' (T in hex = 54) JZ 00458F6D _____________________; If they are not same >wrong message : : CMP BYTE PTR [EBP-00F9], 72 ______; Compare 7th char with 'r' : : CMP BYTE PTR [EBP-00FD], 65 ______; Compare 3rd char with 'e' : : CMP BYTE PTR [EBP-00FB], 73 ______; Compare 5th char with 's' : : CMP BYTE PTR [EBP-00FA], 73 ______; Compare 6th char with 's' : : CMP BYTE PTR [EBP-00F7], 59 ______; Compare 9th char with 'Y' : : CMP BYTE PTR [EBP-00F4], 32 ______; Compare 12th char with '2' : : CMP BYTE PTR [EBP-00F5], 4B ______; Compare 11th char with 'K' : : ============================================================================================ So I've changed the chars of my dummy serial (ABCDEFGHIJKLMNO) to match the CrackMe. I've got this: ATeDssrHYJK2MNO. Then I pushed button >>Right! message. So the default password for the CrackMe is: xTexssrxYxK2 , where the 'x' can be any character or a number. ============================================================================================ |
| Source code for the keygen: |
| procedure TForm1.Button1Click(Sender: TObject); var i1, i2, i3, i4 : ShortInt; begin i1 := random(10);______{ Generate 1st number } i2 := random(10);______{ Generate 4th number } i3 := random(10);______{ Generate 8th number } i4 := random(10);______{ Generate 10th number } Edit1.Text := inttostr(i1) + 'T' + 'e' + inttostr(i2) + 'ssr' + inttostr(i3) + 'Y' + inttostr(i4) + 'K2';______{ Final password } end; |
If you will need a whole source code or a keygen - mail me and I will send it to you. |