FAR 3.X注册机 (4千字) 算法分析 -pc6资讯

您的位置：首页 → 精文荟萃 → 破解文章 → FAR 3.X注册机 (4千字) 算法分析

FAR 3.X注册机 (4千字) 算法分析 时间：2004/10/15 0:54:00来源：本站整理作者：蓝点我要评论(0): 　

.386
.model flat,stdcall
option casemap:none
include windows.inc
include user32.inc
include kernel32.inc
include comctl32.inc
include comdlg32.inc
include masm32.inc

includelib masm32.lib
includelib user32.lib
includelib kernel32.lib
includelib comctl32.lib
includelib comdlg32.lib

DLG_MAIN equ 100
IDGEN equ 10
Edit1 equ 11
Edit2 equ 12
Edit3 equ 13
BFLEFT EQU BFHIGH
BFRIGHT EQU BFLOW
IDABOUT EQU 17
STATIC1 equ 14
STATIC2 equ 15
STATIC3     equ 16
IDI_ICO equ 101

_ProcDlgMain PROTO :DWORD,:DWORD,:DWORD,:DWORD

.data?
hInstance dd ?

.data
STRABOUT1 DB "任何问题，提议，请联系",0
STRABOUT2 DB "firingme@sina.com",0
STRDEF1 DB "仅以此献给我们可爱的CCG",0
STRDEF2 DB " 祝愿它蒸蒸日上！",0
szOK DB "OK",0
szABOUT DB "ABOUT",0
szID DB 10 DUP(0)
NAMEERR DB "名字,Email长度不能为0",0
szName db 100 dup(0)
szEmail db 100 dup(0)
szSn db "FAR22-%s-00000-%s",0
szTemp1 db 10 dup (0)
szTemp2 db 10 dup (0)
szAAA db "AAAAA",0
szLast db 100 dup (0)
magicnum dw 0
NameLen dd 0
EmailLen dd 0
Num dd 0
.code
;消息处理函数
_ProcDlgMain proc uses ebx edi esi edx ecx,hWnd:DWORD,wMsg:DWORD,wParam:DWORD,lParam:DWORD
mov eax,wMsg
.if eax==WM_CLOSE
invoke EndDialog,hWnd,NULL
.ELSEif eax==WM_INITDIALOG
invoke LoadIcon,hInstance,IDI_ICO
    invoke   SendMessage,hWnd,WM_SETICON,ICON_BIG,EAX
    MOV EAX,FALSE
    RET

.elseif eax==WM_COMMAND
mov eax,wParam
and eax,0ffffh
.if eax==IDGEN
      invoke GetDlgItem,hWnd,Edit2
      invoke SetFocus,EAX
      invoke GetDlgItemText,hWnd,Edit1,offset szName,100
      mov NameLen,eax
      .if eax==0
        jmp @ERR
      .endif
      invoke GetDlgItemText,hWnd,Edit2,offset szEmail,100
      mov EmailLen,eax
      .if eax==0
        jmp @ERR
      .endif
      MOV ECX,NameLen
      add EmailLen,ecx
      mov esi,offset szName
      MOV EdI,OFFSET szEmail
      add edi,eax
      rep movsb
      mov ecx,EmailLen
      mov esi,offset szEmail
      mov edi,offset szTemp1
      xor eax,eax
      xor ebx,ebx
  @@1:
      lodsb
      .if (eax>40h)&&(eax<5bh)
        stosb
        inc ebx
        .if ebx==5
        jmp @@3
        .endif
      .endif
      loop @@1
      mov esi,offset szAAA
      mov ecx,5
      sub ecx,ebx
    rep movsb
  @@3:
    mov byte ptr [edi],0
      mov magicnum,13820
      mov ecx,5
      xor eax,eax
      mov esi,offset szTemp1
  @@2:
    lodsb
      sub ax,41h
      imul ax,10
      add magicnum,ax
      loop @@2
      mov ax,magicnum
      cwd
      invoke dwtoa,eax,offset szTemp2
      invoke wsprintf,offset szLast,offset szSn,offset szTemp1,offset szTemp2
      invoke SetDlgItemText,hWnd,Edit3,offset szLast
      mov eax,FALSE
ret
  @ERR:
      invoke SetDlgItemText,hWnd,Edit2,NULL
      invoke SendDlgItemMessage,hWnd,Edit1,EM_SETREADONLY,TRUE,NULL
      invoke SendDlgItemMessage,hWnd,Edit2,EM_SETREADONLY,TRUE,NULL
invoke SetDlgItemText,hWnd,STATIC1,offset NAMEERR
      invoke SetDlgItemText,hWnd,STATIC2,NULL
      invoke SetDlgItemText,hWnd,IDABOUT,OFFSET szOK
      MOV EAX,FALSE
      RET


.elseif eax==IDABOUT
    invoke GetDlgItemText,hWnd,IDABOUT,OFFSET szID,5
      MOVZX EAX,BYTE PTR [szID]
      .IF EAX==79 ;此时显示的是OK
          invoke GetDlgItem,hWnd,Edit1
        invoke SetFocus,eax
          invoke SendDlgItemMessage,hWnd,Edit1,EM_SETREADONLY,FALSE,NULL
          invoke SendDlgItemMessage,hWnd,Edit2,EM_SETREADONLY,FALSE,NULL
          invoke SetDlgItemText,hWnd,STATIC1,offset STRDEF1
          invoke SetDlgItemText,hWnd,STATIC2,offset STRDEF2
          invoke SetDlgItemText,hWnd,IDABOUT,offset szABOUT
          MOV EAX,FALSE
          RET
      .ELSE
      invoke GetDlgItem,hWnd,Edit2
      invoke SetFocus,eax
      invoke SendDlgItemMessage,hWnd,Edit1,EM_SETREADONLY,TRUE,NULL
      invoke SendDlgItemMessage,hWnd,Edit2,EM_SETREADONLY,TRUE,NULL
      invoke SetDlgItemText,hWnd,STATIC1,offset STRABOUT1
      invoke SetDlgItemText,hWnd,STATIC2,offset STRABOUT2
      invoke SetDlgItemText,hWnd,IDABOUT,offset szOK
      MOV EAX,FALSE
      RET
      .ENDIF
      .endif
.else
mov eax,FALSE
ret
.endif

mov eax,FALSE
RET
_ProcDlgMain endp

;主程序
start:
invoke InitCommonControls
invoke GetModuleHandle,NULL
mov hInstance,eax
invoke DialogBoxParam,hInstance,DLG_MAIN,NULL,offset _ProcDlgMain,0
invoke ExitProcess,NULL
end start

end

文章评论

查看所有0条评论>>

热门文章 去除winrar注册框方法