home *** CD-ROM | disk | FTP | other *** search
/ KeyGen Studio 2002 / KeyGen_Studio_2002.iso / Tutorials / CrackMesCbjNet / term3_psycho_arjani.txt < prev    next >
Encoding:
Text File  |  2001-09-21  |  3.7 KB  |  199 lines
  1. Tut for TeRMiNaToR VB Crackme N3
  2.  
  3. Toolz
  4. ------------------------
  5. smartcheck
  6.  
  7. get it at 
  8. www.protools.cjb.net
  9. ------------------------
  10.  
  11. ok open the file with Smartcheck 
  12.  
  13. (I use these options
  14.  
  15. At "Error Detection" check all
  16. At "Advanced" (see Error Detection) check the first 3
  17. at "Reporting" check all except mousemove form ocx)
  18.  
  19. lauch the file (open the file and press F5)
  20.  
  21. you will get some errors just click Acknowledge
  22.  
  23. now click 
  24. Mid (the first one)
  25.  
  26. now click VIEW -> show all events
  27. you will see this
  28.  
  29. Mid
  30. _vbaStrVarVal
  31. Asc returns INTERGER:80            //it gets the Asc code of the letter (wich is 80)
  32. _VbaVaradd                
  33. _VbaVarMove                
  34. _VbaFreeStr
  35.  
  36. click on _VbaVaradd and you will see this
  37.  
  38. - lhs(variant)
  39.   signed short .iVal = 80
  40. - rhs (variant)
  41.   unsigned short .vt = 0
  42.  
  43. so (I will call it B1) B1 = B1 + 80 (B1 = 80)
  44.  
  45. go to the next mid
  46. you will see the same as above but for the second letter ("s")
  47.  
  48. click _VbaVaradd and you will see
  49.  
  50. - lhs(variant)
  51.   signed short .iVal = 115
  52. - rhs (variant)
  53.   unsigned short .vt = 80
  54.  
  55. click on _vbaVarMove for the total
  56.  
  57. - lhs(variant)
  58.   signed short .iVal = 195    //now B1 is 195
  59. - rhs (variant)
  60.   unsigned short .vt = 80    //B1 was 80
  61.  
  62. this will go on until the last letter
  63. so lest go there
  64.  
  65. Mid
  66. _vbaStrVarVal
  67. Asc returns INTERGER:105            //it gets the Asc code of the letter (wich is 80)
  68. _VbaVaradd                
  69. _VbaVarMove                
  70. _VbaFreeStr
  71.  
  72. the of B1 is now 1259
  73.  
  74. scroll down until here
  75.  
  76. Text1.text
  77. Len returns LONG:13        //it get the lenght right before the mulitply :)
  78. _vbaVarMul            //so B1 * 13
  79. _vbaVarMove
  80.  
  81. click _vbaVarMul and you will see
  82.  
  83. - lhs(variant)
  84.   signed short .iVal = 1259
  85. - rhs (variant)
  86.   unsigned short .vt = 13    //our lenght
  87.  
  88. the result "16367"
  89.  
  90. now scroll down until here
  91.  
  92. Text2.text
  93. _vba4var
  94. Mid
  95. Asc returns Integer:49
  96. _vbaVarAdd
  97. _vbaVarMove
  98.  
  99. he i`ve seen that before (see above, TeRMiNaToR CrackMe N░1 and TeRMiNaToR CrackMe N░2 ahhhhhhhhh!)
  100. it does the same so let`s call it B2
  101.  
  102. the total is at the end "148"
  103.  
  104. now scroll down until here
  105.  
  106. Text2.text
  107. Len returns LONG:3        //it get the lenght right before the mulitply :)
  108. _vbaVarMul            //so B2 * 3
  109. _vbaVarMove
  110.  
  111. so the result is "444"
  112.  
  113. now below you will see 
  114.  
  115. Trim
  116. _vbaVarMove
  117. _vbaFreeStr
  118. _vbaFreeObj
  119. _VbaFreeVar        //here wou will see "444"
  120. _VbaVarMul        //but here 16367 * 3 !!!
  121. _vbaVarMove        //result = 49101
  122.  
  123. Str
  124. Trim
  125. _vbaVarMul
  126. _vbaVarMove
  127.  
  128. 3 times, I will explain them quickly
  129.  
  130. #1
  131. 444 * 2 = 888
  132.  
  133. #2
  134. 444 * 3 = 1332
  135.  
  136. #3
  137. 16367 * 2 = 32734
  138.  
  139. then you will see
  140.  
  141. Str
  142. Trim
  143. _vbaVarAdd    //"49101" + "-"                        //490101 = 16367 * 3
  144. _vbaVarAdd    //"49101-" + "888"                    //888 = 444 * 2
  145. _vbaVarAdd    //49101-888" + "-"
  146. _vbaVarAdd    //49101-888-" + "TRN"
  147. _vbaVarAdd    //49101-888-TRN" + "-"
  148. _vbaVarAdd    //49101-888-TRN-" + "1332"                //1332 = 444 * 3
  149. _vbaVarAdd    //49101-888-TRN-1332" + "-"    
  150. _vbaVarAdd    //49101-888-TRN-1332-" + "32734"            //32734 = 16367 * 2
  151. _vbaVarMove    //The result aka your serial "49101-888-TRN-1332-32734"
  152.  
  153. AHHHHHHHH
  154. well you should know where those numbers came from 
  155. if you don`t you MUST read this txt again !
  156.  
  157. ---------------------------------------------------------------------------
  158. Here is my VB6 source for the Keygen
  159.  
  160. (make a button and text1.text, text2.text, text3.text)
  161.  
  162. Dim a, b1, i, b2        //set variables
  163.  
  164. For i = 1 To Len(Text1.Text)
  165. a = Mid(Text1.Text, i, 1)
  166. b1 = b1 + Asc(a)
  167. Next i
  168.  
  169. i = ""
  170. a = ""
  171.  
  172. For i = 1 To Len(Text2.Text)
  173. a = Mid(Text2.Text, i, 1)
  174. b2 = b2 + Asc(a)
  175. Next i
  176.  
  177. a = ""
  178.  
  179. b1 = b1 * Len(Text1.Text)
  180. b2 = b2 * Len(Text2.Text)
  181.  
  182. a = (b1 * 3) & "-"
  183. a = a & (b2 * 2) & "-TRN-"
  184. a = a & (b2 * 3) & "-"
  185. a = a & (b1 * 2)
  186.  
  187. Text3.Text = a
  188.  
  189. ---------------------------------------------------------------------------
  190. My opinion:
  191.  
  192. ahhhhhhhhhhhhhhh
  193. it`s almost the same as TeRMiNaToR CrackMe N░1 and TeRMiNaToR CrackMe N░2
  194. but it`s longer...
  195.  
  196. score = 1 of the 10
  197.  
  198. Psycho Arjani
  199. 2001