好久沒來,貼個安全衛士序號產生器(masm6.0) (10千字)

看雪資料發表於2001-12-05

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

includelib      \MASM32\LIB\masm32.lib
includelib      \MASM32\LIB\user32.lib
includelib      \MASM32\LIB\kernel32.lib
includelib      \MASM32\LIB\comctl32.lib
includelib      \MASM32\LIB\comdlg32.lib


DLG_MAIN        equ    100
IDGEN          equ    10
Edit1          equ    11
Edit2          equ    12


_ProcDlgMain    PROTO    :DWORD,:DWORD,:DWORD,:DWORD
_Math          PROTO    :DWORD,:DWORD,:DWORD
BlowFish_En        PROTO    :DWORD,:DWORD
BlowFish_Fun    PROTO    :DWORD
BlowFish_Init  PROTO    :DWORD,:DWORD

.data?
hInstance      dd      ?

        .data
szhex  dd  0
jqhlen  dd 0
szID        db 20 dup(0)
szText      db 9 dup(0)
fudian1 dd 3fdca138h,406d9168h,415c6944h,42c60000h
zhong  dd 0
sn      dd 0
tem    dd 0
ftem    dd 0
ftem1  dd 1
ftem2  dd 0
fa      dd 0
fb      dd 0
fc      dd 0
fd      dd 0
sztxt  db 20 dup (0)
sztxt1  db 20 dup (0)

          .code
          gao          proc
                    mov edx,tem
                    imul edx, 08088405h
                    inc edx
                    mov tem,edx
                    mul edx
                    mov eax, edx
                    ret
        gao          endp


jsaqws      proc uses eax ebx ecx edx esi edi
                    mov eax,szhex
                    mov ecx,013dh
                    cdq
            idiv ecx
                    mov tem,edx
                    mov eax,0104ah
                    call  gao
                    mov esi,eax
                    mov eax,016c6h
                    call  gao
                    add  esi,eax
                    mov  zhong,esi
                    fild  dword ptr zhong
                    lea  eax,fudian1
                    fmul  dword ptr [eax]
                    fstp dword ptr ftem
                    fild  ftem1
                    fld  ftem
                    fprem
                    fstp dword ptr ftem2
                    fld  ftem
                    fld  ftem2
                    fsub
                    lea  eax,fudian1
                    fmul  dword ptr [eax]
                    fstp dword ptr ftem
                    fild  ftem1
                    fld  ftem
                    fprem
                    fstp dword ptr ftem2
                    fld  ftem
                    fld  ftem2
                    fsub
                    fist dword ptr fa
                    finit
                    mov eax,szhex
                    mov ecx,011h
                    cdq
                idiv ecx
                    xor  edx,013h
                    mov zhong,edx
                    fild  dword ptr zhong
                    lea  eax,fudian1
                    add  eax,4
                    fmul  dword ptr [eax]
                    fstp dword ptr ftem
                    fild  ftem1
                    fld  ftem
                    fprem
                    fstp dword ptr ftem2
                    fld  ftem
                    fld  ftem2
                    fsub
                    fist dword ptr tem
                    finit
                    mov  eax,0f77h
                    call gao
                    mov  esi,eax
                    mov  eax,021e1h
                    call gao
                    add  esi,eax
                    mov eax,017h
                    call gao
                    xor  esi,eax
                    mov  fb,esi
                    fld  dword ptr fudian1
                    lea  eax,fudian1
                    add  eax,4
                    fadd dword ptr [eax]
                    add  eax,4
                    fadd dword ptr [eax]
                    mov eax,szhex
                    mov ecx,0fh
                    cdq
                idiv ecx
                    xor  edx,0dh
                    mov  ftem,edx
                    fild dword ptr ftem
                    faddp st(1), st
                    fstp dword ptr ftem
                    fild  ftem1
                    fld  ftem
                    fprem
                    fstp dword ptr ftem2
                    fld  ftem
                    fld  ftem2
                    fsub
                    fist dword ptr tem
                    finit
                    mov  eax,0f8bh
                    call gao
                    mov esi,edx
                    mov  eax,01c69h
                    call gao
                    add esi,edx
                    mov eax,0e59h
                    call gao
                    add esi,edx
                    mov eax,0defh
                    call gao
                    add esi,edx
                    mov eax,02172h
                    call gao
                    add esi,edx
                    mov fc,esi
                    lea eax,fudian1
                    add eax,12
                    fld dword ptr [eax]
                    lea eax,fudian1
                    fmul dword ptr [eax]
                    fstp dword ptr ftem
                    fild  ftem1
                    fld  ftem
                    fprem
                    fstp dword ptr ftem2
                    fld  ftem
                    fld  ftem2
                    fsub
                    fist dword ptr ftem
                    mov  eax,szhex
                    mov  ecx,ftem
                    cdq
                    idiv ecx
                    mov  edi,edx
                    mov eax,0b4h
                    call gao
                    mov  zhong,eax
                    fild zhong
                    fsin
                    mov  zhong,100
                    fild zhong
                    fmul
                    fstp dword ptr ftem
                    fild  ftem1
                    fld  ftem
                    fprem
                    fstp dword ptr ftem2
                    fld  ftem
                    fld  ftem2
                    fsub
                    fist dword ptr ftem
                    mov  esi,ftem
                    finit
                    mov ftem,edi
                    fild ftem
                    lea  eax,fudian1
                    add  eax,8
                    fmul  dword ptr [eax]
                    fstp dword ptr ftem
                    fild  ftem1
                    fld  ftem
                    fprem
                    fstp dword ptr ftem2
                    fld  ftem
                    fld  ftem2
                    fsub
                    fist dword ptr ftem
                    add  esi,ftem
                    mov  tem,esi
                    mov  eax,0f4fh
                    call gao
                    mov esi,eax
                    mov  eax,1dd1h
                    call gao
                    add esi,eax
                    add esi,fa
                    add esi,fb
                    add esi,fc
                    lea edi,sztxt1
                    mov eax,esi
                    xor ebx,ebx
            es002:  mov ecx,10
                    cdq
                    idiv ecx
                    add edx,030h
                    mov [edi],edx
                    inc edi
                    inc ebx
                    cmp  eax,0
                    jz  es003
                    jmp es002
            es003:  lea esi,sztxt1
                    add esi,ebx
                    dec esi
                    lea edx,sztxt
            es001:  mov al,[esi]
                    mov [edx],al
                    dec esi
                    inc edx
                    dec ebx
                    jnz es001
                    ret

                    ret
        jsaqws      endp

        _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_COMMAND
                mov  eax,wParam
                and  eax,0ffffh
                .if    eax==IDGEN
        invoke  GetDlgItemText,hWnd,Edit1,offset szID,50
        mov    jqhlen,eax
                mov    esi,offset szID
        mov    edi,eax
                xor    eax,eax
      cs008:  imul    eax,10
                mov    bl,[esi]
                cmp    bl,030h
                jl      c010
                cmp    bl,039h
                jg      c010
                sub    bl,030h
                and    ebx,0ffh
                add    eax,ebx
                inc    esi
                dec    edi
                jnz    cs008
                mov    szhex,eax
                invoke  jsaqws
                invoke  SetDlgItemText,hWnd,Edit2,offset sztxt
    c010:    mov    eax,FALSE
                        ret
                .elseif eax==IDCLOSE
                        invoke  EndDialog,hWnd,NULL
                .endif
        .else
                mov    eax,FALSE
                ret
        .endif
        mov    eax,TRUE
        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   
;資原始檔
#define WS_VISIBLE          0x10000000L
#define WS_CAPTION          0x00C00000L
#define WS_SYSMENU          0x00080000L
#define WS_THICKFRAME      0x00040000L
#define WS_POPUP            0x80000000L
#define DS_MODALFRAME      0x80L
#define SS_LEFT            0x00000000L
#define SS_CENTER          0x00000001L
#define ES_LEFT            0x0000L
#define BS_PUSHBUTTON      0x00000000L
#define          IDGEN      10
#define IDCLOSE        8
#define          DLG_MAIN  100
#define          EDIT1      11
#define          EDIT2      12
IDI_ICON1 ICON "smenu.ico"
DLG_MAIN    DIALOGEX    100,150,150,80
STYLE        DS_MODALFRAME|WS_POPUP|WS_VISIBLE|WS_CAPTION|WS_SYSMENU|WS_THICKFRAME
CAPTION        "美萍安全衛士序號產生器"
FONT        9,"宋體"
BEGIN
CONTROL        "機器號:",-1,"Static",SS_LEFT,05,14,30,17
CONTROL        "註冊碼:"  ,-2,"Static",SS_LEFT,05,41,40,17
CONTROL        "製作-=Funyliang[CNCG]/CYL=-本軟體純屬研究之用,請勿用於非法途徑"  ,-2,"Static",SS_CENTER,05,60,140,17
CONTROL        ""    ,11,"Edit",ES_LEFT,35,13,70,10
CONTROL        ""    ,12,"Edit",ES_LEFT,35,40,70,10
CONTROL        "算號",IDGEN,"BUTTON",BS_PUSHBUTTON,110,11,35,15
CONTROL        "退出",IDCLOSE,"BUTTON",BS_PUSHBUTTON,110,37,35,15
END

相關文章