home *** CD-ROM | disk | FTP | other *** search
/ KeyGen Studio 2002 / KeyGen_Studio_2002.iso / Tutorials / CrackMesCbjNet / term5_psycho_arjani.txt < prev    next >
Encoding:
Text File  |  2001-09-21  |  3.6 KB  |  188 lines
  1. Tut for TeRMiNaToR VB Crackme N1
  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. Integer (1) --> LONG(1)
  25.  
  26. now click VIEW -> show all events
  27. you will see this
  28.  
  29. Text1.text
  30. Integer (1) --> LONG(1)                   //gets the first letter of our name
  31. Mid                        //it will use mid to do this(see above)
  32. _vbaVarMove returns DWORD:63F394
  33. _vbaFreeObject
  34. SysFreeString
  35. _VbaStrVarVal returns DWORD:510FA0    //if you click on it you see letter (P) at your right
  36. Asc returns INTERGER:80            //it gets the Asc code of the letter (wich is 80)
  37. _VbavarMove
  38. _VbaFreestr
  39. _VbaVarAdd                //he interresting !
  40.  
  41. click on _VbaVarAdd and you will see (at the right)
  42.  
  43. - lhs(variant)
  44.   signed short .iVal = 80
  45. - rhs (variant)
  46.   unsigned short .vt = 0
  47.  
  48. it means variant (let`s call it A) + 80
  49. so A = 80 here
  50.  
  51. now like below
  52.  
  53. Integer (2) --> LONG(2)
  54. Mid
  55. _vbaVarMove returns DWORD:63F394
  56. _vbaFreeObject
  57. SysFreeString
  58. _VbaStrVarVal returns DWORD:510FB4
  59. Asc returns INTERGER:115
  60. _VbavarMove
  61. _VbaFreestr
  62. _VbaVarAdd
  63. _VbaVarMove
  64.  
  65. click on _VbaVarAdd and you will see:
  66.  
  67. - lhs(variant)
  68.   signed short .iVal = 115
  69. - rhs (variant)
  70.   unsigned short .vt = 80
  71.  
  72. so A + 115
  73.  
  74. click on _VbaVarMove and you will see
  75.  
  76. - lhs(variant)
  77.   signed short .iVal = 195
  78. - rhs (variant)
  79.   unsigned short .vt = 80
  80.  
  81. A was 80, now it is 195
  82.  
  83. ok this goes on until the last letter so let`s go there
  84.  
  85. Integer (13) --> LONG(13)
  86. Mid
  87. _vbaVarMove returns DWORD:63F394
  88. _vbaFreeObject
  89. SysFreeString
  90. _VbaStrVarVal returns DWORD:510FA0
  91. Asc returns INTERGER:105
  92. _VbavarMove
  93. _VbaFreestr
  94. _VbaVarAdd
  95. _VbaVarMove
  96.  
  97. click on VbaVar move for the total of A (it`s 1259)
  98.  
  99. now only 2 lines down you see
  100.  
  101. LTrim
  102. _VbaVarMove
  103. _vbaFreeVar
  104. _vbaVarMul        //means mulitpli
  105. _vbaMove
  106.  
  107. clisc on _vbaVarMul and you will see
  108.  
  109. - lhs(variant)
  110.   signed short .iVal = 1259
  111. - rhs (variant)
  112.   unsigned short .vt = 3
  113.  
  114. so 3 * A = B (he why not ?)
  115. click on _vbaVarMove for the result (it`s 3777)
  116.  
  117. now two lines down you will see
  118.  
  119. LTrim
  120. _VbaVarMove
  121. SysFreeStrin
  122. _vbaVarAdd
  123. _vbaVarAdd
  124. _vbaVarAdd
  125. _vbaMove
  126.  
  127. mmm looks VERY nice
  128. click on the FIRST _vbaVarAdd and you will see
  129.  
  130. - lhs(variant)
  131.   unsigned short * .bstrVal = 00402800
  132.     = "TRN-"
  133. - rhs (variant)
  134.   unsigned short * .bstrVal = 00510F7C
  135.     = "1259"
  136.  
  137. so the first part of the serial is now "TRN-1259"
  138.  
  139. SECOND _vbaVarAdd
  140.  
  141. - lhs(variant)
  142.   unsigned short * .bstrVal = 0051FfDC
  143.     = "TRN-1259"
  144. - rhs (variant)
  145.   unsigned short * .bstrVal = 00402810
  146.     = "-"
  147.  
  148. so the serial is now "TRN-1259-"
  149.  
  150. THIRD _vbaVarAdd
  151.  
  152. - lhs(variant)
  153.   unsigned short * .bstrVal = 00411760
  154.     = "TRN-1259-"
  155. - rhs (variant)
  156.   unsigned short * .bstrVal = 00510FC8
  157.     = "3777"
  158.  
  159. so our serial is "TRN-1259-3777" (for the name "Psycho Arjani")
  160.  
  161. check it and...
  162. IT WORKS !!!!!!!!!!!!!
  163.  
  164. -------------------------------------------------------------------------------------------------
  165. KeyGen
  166.  
  167. this is VB6 source for making a keygen (skip this if you can`t work with VB)
  168.  
  169. Dim a, b, i
  170.  
  171. For i = 1 To Len(Text1.Text)
  172. a = Mid(Text1.Text, i, 1)        'takes letter for letter
  173. b = b + Asc(a)                         'b = Ascii code of the letter + b
  174. Next i
  175.  
  176. a = b * 3                          'a = total * 3
  177. Label1.Caption = "TRN-" & b & "-" & a    'label1.caption = "TRN-1259-3777" (for my name)
  178.  
  179. --------------------------------------------------------------------------------------------------
  180.  
  181. Rating
  182.  
  183. 1 of the 10
  184.  
  185. it`s really easy so I can`t give any higher
  186.  
  187. Psycho Arjani
  188. 2001