KeyGenMe2007_A，小年夜用来给算法初学者增强信心！

不懂算法

飘过,丢个注册机模版
;
;不懂算法的keygen模版,欢迎随便修改
;
.386
.model flat,stdcall
option casemap:none

include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\user32.inc
include \masm32\include\comctl32.inc

includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\comctl32.lib

dlgproc proto :DWORD,:DWORD,:DWORD,:DWORD

.const

.data
szName        db        020h dup (0)
szSerial db        010h dup (0)
fmt        db        "%d",0
szErr        db        "错误",0
szErr1        db        "名字长度必须为7",0

.data?
hInstance dd ?

.code
start:
invoke GetModuleHandle,NULL
mov hInstance,eax
invoke DialogBoxParam,eax,101,NULL,offset dlgproc,0
invoke ExitProcess,NULL

dlgproc proc 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,1
        invoke SendMessage,hWnd,WM_SETICON,0,eax
.elseif  eax == WM_COMMAND
        mov  eax,wParam
        .if  eax == 1002
                invoke  GetDlgItemText,hWnd,1000,addr szName,11h
                .if eax!=7
                        invoke MessageBox,NULL,addr szErr1,addr szErr,MB_OK
                        mov eax,FALSE
                        ret
                .endif
                xor eax,eax
                movsx ebx,byte ptr ds:[szName]
                movsx ecx,byte ptr ds:[szName+6]
                imul ebx,ecx
                add eax,ebx
               
                movsx ebx,byte ptr ds:[szName+1]
                movsx ecx,byte ptr ds:[szName+5]
                imul ebx,ecx
                add eax,ebx
               
                movsx ebx,byte ptr ds:[szName+2]
                movsx ecx,byte ptr ds:[szName+4]
                imul ebx,ecx
                add eax,ebx

                imul eax,eax
                movsx ebx,byte ptr ds:[szName+3]
                xor eax,ebx

                .while eax<1000000
                        imul eax,eax
                        cdq
                        xor eax,edx
                        sub eax,edx
                .endw

                invoke wsprintf,addr szName,addr fmt,eax

                mov al,byte ptr ds:[szName+3]
                mov byte ptr ds:[szSerial],al
                mov al,byte ptr ds:[szName+4]
                mov byte ptr ds:[szSerial+1],al
                mov al,byte ptr ds:[szName+5]
                mov byte ptr ds:[szSerial+2],al
                mov al,byte ptr ds:[szName+6]
                mov byte ptr ds:[szSerial+3],al
                mov al,byte ptr ds:[szName]
                mov byte ptr ds:[szSerial+4],al
                mov al,byte ptr ds:[szName+1]
                mov byte ptr ds:[szSerial+5],al
                mov al,byte ptr ds:[szName+2]
                mov byte ptr ds:[szSerial+6],al
                mov byte ptr ds:[szSerial+7],037h
                mov byte ptr ds:[szSerial+8],039h
                mov byte ptr ds:[szSerial+9],0h

                invoke SetDlgItemText,hWnd,1001,addr szSerial

        .endif
.else
        mov  eax,FALSE
        ret
.endif      
mov  eax,TRUE
ret
dlgproc endp

end start

小子贼野

难道是传说中的明码比较？

csks

飘过... ...

wulijin

2007年的最后一天了 赶紧下来试试 不然没机会了
不能拖到08念了

byp100

我想看算法分析啊

vecri

算法分析在另外一个帖子里:
"请大家帮忙看看 KeyGenMe2007_A", 地址
https://www.chinapyg.com/viewthr ... &extra=page%3D1

圣人

下载顶起/:L

bsuc

下回来，练练手吧，谁让咱笨呢

坏づ铥铥

从零开始。谁叫我爱上这个。