home *** CD-ROM | disk | FTP | other *** search
/ Cracking 2 / Cracking II..iso / Texty / crackme / KEY.ASM < prev    next >
Encoding:
Assembly Source File  |  1999-03-04  |  3.8 KB  |  175 lines
  1. ;
  2. ; Copyright Shadow 1999
  3. ;
  4. .586p
  5. .model flat,stdcall
  6. locals
  7. jumps
  8.  
  9. UNICODE = 0
  10.  
  11.  
  12.  
  13. extrn   GetDlgItemTextA:proc
  14. extrn   _wsprintfA:proc
  15.  
  16.  
  17. DIALOG_1        equ     100
  18. IDC_EDIT1       equ     105
  19. IDC_EDIT2       equ     107
  20.  
  21. include w32.inc
  22.  
  23.  
  24. .data
  25.  
  26. hinstance       dd 0
  27. paint           PAINTSTRUCT <?>
  28. username        db 30 dup(0)
  29. hdc             dd 0
  30. key             db 30 dup(0)
  31. format          db "%lu",0
  32. number          dd 0
  33. temp            dd 0
  34. er        db "too short username!",0
  35. hf              db "Keygen for HF crackme II by Shadow/hf",0
  36. visit           db "http://members.xoom.com/hell_crack",0
  37. .code
  38.         
  39. start:
  40. ;
  41. ; this starts program only if there is no other copies running
  42. ;
  43.         mov     edx,offset visit
  44.         call    FindWindow,0,offset hf
  45.         .if     eax == 0
  46.                 call    GetModuleHandle,0
  47.                 mov     hinstance,eax
  48. ;
  49. ; create modal dialogbox from key.rc (template 100)
  50. ;
  51.                 call    DialogBoxParamA,hinstance,DIALOG_1,0,offset dialogf,0
  52.         .endif
  53.         call    ExitProcess,0
  54.  
  55.  
  56. PUBLIC dialogf
  57. dialogf proc hwnd:DWORD,umsg:DWORD,wparam:DWORD,lparam:DWORD
  58. ;
  59. ; This is basic callback procedure used by gui programs..
  60. ;
  61.         xor     eax,eax
  62.         mov     ax,word ptr umsg
  63.  
  64.         .if     ax == WM_DESTROY
  65.                 call    EndDialog,hwnd,0
  66.         .elseif ax == WM_CLOSE
  67.                 call    EndDialog,hwnd,0
  68.         .elseif ax == WM_COMMAND
  69.                 mov     ax,word ptr wparam
  70. ;
  71. ; Text char(s) entered to dialog?
  72. ; 
  73.                 .if     ax == IDC_EDIT1
  74. ;
  75. ; Read username
  76. ;
  77.                         call    GetDlgItemTextA,hwnd,IDC_EDIT1,offset username,30
  78. ;
  79. ; If it's len > 4, then calculate and print keycode
  80. ;
  81.                         .if     eax > 4
  82.                             call    Calculate,offset username
  83.                             call    _wsprintfA,offset key,offset format,eax
  84.                              call    SetDlgItemTextA,hwnd,IDC_EDIT2,offset key
  85.             .else    
  86. ;
  87. ; no, print message username too short...
  88. ;
  89.                 call    SetDlgItemTextA,hwnd,IDC_EDIT2,offset er
  90.             .endif
  91.                 .endif
  92.         .elseif ax == WM_INITDIALOG
  93.                 ; to do-- add some stuff?
  94.         .elseif ax == WM_PAINT
  95.                 call    BeginPaint,hwnd,offset paint
  96.                 mov     hdc,eax
  97.                 call    EndPaint,hwnd,offset paint
  98.         .endif
  99.         xor     eax,eax
  100.         ret
  101.         
  102.  
  103. dialogf endp
  104.  
  105. Calculate proc pstr1:DWORD
  106.         mov     esi,pstr1
  107.         xor     eax,eax
  108.         mov     number,0
  109.  
  110. ; because I use assembler I almost ripped whole routine from
  111. ; crackme..
  112.  
  113. ;
  114. ; 1 char
  115. ;
  116.         lodsb
  117.         shl     eax,2
  118.         lea     eax,[eax+2*eax]
  119.         add     number,eax
  120.  
  121. ;
  122. ; 2 char
  123. ;
  124.  
  125.         xor     eax,eax
  126.         lodsb
  127.         lea     eax,[eax+4*eax]
  128.         lea     eax,[eax+4*eax]
  129.         add     number,eax
  130.  
  131. ;
  132. ; 3 char
  133. ;
  134.         xor     eax,eax
  135.         lodsb
  136.         add     eax,eax
  137.         add     number,eax
  138.  
  139. ;
  140. ; 4 char
  141. ;
  142.  
  143.         xor     eax,eax
  144.         lodsb
  145.         imul    eax,eax,0bh
  146.         add     number,eax
  147. ;
  148. ; final stage
  149. ;
  150.         call    Strlen,pstr1
  151. ; strlen  = eax
  152.  
  153.         mov     edx,number
  154.         imul    edx,number
  155.         imul    edx
  156.         ret
  157. Calculate endp
  158.  
  159. ;
  160. ; High optimized strlen - size and speed ;)
  161. ;
  162. Strlen proc pstr:DWORD
  163.         xor     al,al           ; scan for '0'
  164.         mov     edi,pstr        ; edi = pointer to buffer to search
  165.         or      ecx,0ffffffffh  ; how many times?
  166.         repnz                   ;
  167.         scasb                   ; repeat while not zero and ecx != 0
  168.         not     ecx             ; invert all bits
  169.         dec     ecx             ; ecx-1
  170.         xchg    eax,ecx         ; eax = strlen
  171.         ret                     ; return
  172. Strlen endp
  173. ends
  174. end start
  175.