                      ͻ
                        Tutorial for magenta crackme #3 
                      ͼ



Ŀ
1.Intro 


The third crackme from the collection : this time, only a valid serial enables the 'OK' button.

The protection is almost the same that in the previous crackme, so this will be a fast tutorial.



Ŀ
2. Let's go 


Open the crackme with Smartcheck, etc...

Go to the 'Program result' window, click on '[+] Text2_Change' to expand it then go to the
last line of the listing :

<-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><->
Val(String:"123456") returns double:123456 	-> entered_serial
Val(String:"301300") returns double:503	 	-> correct_serial
Command1.enabled <- False			-> button NOT enabled
<-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><->

name   : TSCube
serial : 301300



Ŀ
3. The keygen


as I said, the protection is almost the same, but this time the ASCII values are not substracted
to create a part of the serial. 
Select 'View -> Show All Events' and let's see how the first part of the serial is generated :


<-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><->
Asc(String:"C") returns integer:67
[...]
Asc(String:"u") returns integer:117
_vbaVarMove(...)
_vbaFreeStr(...)
_vbaVarTstGt(VARIANT:Integer:67,VARIANT:Integer:117) returns DWORD:0	-> 117 >= 67 ?
_vbaVarMul(VARIANT:Integer:117,VARIANT:Integer:2) returns DWORD:63F328	-> 234 = 117*2
_vbaVarAdd(VARIANT:Integer:234,VARIANT:Integer:67) returns DWORD:63F318	-> 301 = 234+67
_vbaVarMove(...)
Str(VARIANT:Integer:301)
LTrim(VARIANT:String: "301")
<-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><->

This time, instead of substracting the 2 values (if the second one is bigger that the first one),
the second value is multiplied by 2 and the first value is added to the result.

Look at the keygen for more details.



    ________     _______     _______
   /__   __/\   /  ____/\   /  ____/\
   \_/  /\_\/  /  /\___\/  /  /\___\/
    /  / /    /  /_/_     /  / / 
   /  / /    /____  /\   /  / /
  /  / /     \___/ / /  /  / /
 /  / /     ____/ / /  /  /_/_
/  / /     /_____/ /  /______/\
\__\/      \_____\/   \______\/ 25/07/2000

www.tscube.cjb.net


