-------------------------------------------
How to make a keygen for Add/Remove Cleaner
-------------------------------------------

Cracker: stealthFIGHTER

Target: Add/Remove Cleaner v2.3

Tools:	Soft-Ice
	Delphi
	Brain

Where: http://www.distortions.com

Protection: Name/serial

--------------------------------------------------
Sorry for my English, it's not my mother language.
--------------------------------------------------

----------------
===[ Step 1 ]===
----------------

=======================================================================
Run program >> Register >> Fill input boxes >> Go to Soft-Ice and set
breakpoint bpx hmemcpy and go back >> Done - Soft-Ice pops up >> 
12 times press F12 key to be here:
=======================================================================

:00448EE7  call 00403AF8		;Put length of name into EAX
:00448EEC  imul esi, eax, 000003F4	;ESI = EAX * 1012 (1012=3F4 in HEX)
:					;Trace [F10]
:					;till you are
:					;here!
:00448F54  call 00403BB8		;Add first char of name before and after serial
:					;and put 'E' after serial
:00448F5C  mov eax, dword ptr [ebp-04]
:00448F5F  call 004075C8		;Uppercase whole serial
:
:
:
:00448F85  call 00403C08		;Compare our serials
:00448F8A  jne 00449043			;If bad then jump else Thank you..

=======================================================================
At :00448F85 type D EAX and you should see your right serial number. Type
serial number >> Thank you.. >> Restart program >> Not registered >>
Type same name again but in uppercase and type same serial >> After 
restart it's registered.
=======================================================================

--------------------------
===[ Source of keygen ]===
--------------------------

=======================================================================
Procedure TForm1.Keygen;
Var temp : Integer;
    serial : String;
Begin
temp := length(Edit1.Text) * 1012;	{= imul esi, eax, 000003F4}
serial := Edit1.Text[1] + IntToStr(temp) + Edit1.Text[1] + 'E';
Edit2.Text := UpperCase(serial);
End;
=======================================================================
Any comments or mistakes are welcome at: stealthfighter@another.com
=======================================================================