PKeygen #1.asm

.386
    .model flat,stdcall
    option casemap:none

    include         windows.inc
    include         user32.inc
    include         kernel32.inc
    includelib      user32.lib
    includelib      kernel32.lib

    DlgProc         proto           :DWORD,:DWORD,:DWORD,:DWORD

    .data

    Messagepetit  db       "Entrez plus de caracteres !",0
    Messagegrand  db       "Entrez moins de caracteres !",0
    Erreur            db       "ERREUR",0
    About1            db       "About Me",0
    Form              db       "%d",0
    About             BYTE     "Merci D'avoir telecharge Mon Keygen.",13 ,10
                              BYTE     " Je suis Sakiir de Sakiir-Security.",13 ,10
                              BYTE     " Visit : sakiir.hack-free.net.",13 ,10
                              BYTE     "Proresive KeygenMe Keygenned By Sakir-Security ",13 ,10

    .data?
    hinstance       HINSTANCE       ?
    SerialBuffer    db              512 dup(?)
    NameBuffer      db       50 dup(?)
    buffer                  db              512 dup(?)

    LenName                 db              50 dup(?)

    .code
    start:
        invoke GetModuleHandle, NULL
        mov    hinstance,eax

        invoke DialogBoxParam, hinstance, 1001, NULL, addr DlgProc, NULL
        invoke ExitProcess,eax

    DlgProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
            .if uMsg == WM_COMMAND

                    mov     eax,wParam
                    .if eax==1002
                            invoke GetDlgItemText,hWnd,1003,addr NameBuffer,500
                            call Generate
                            invoke SetDlgItemText,hWnd,1005,addr SerialBuffer


                    .elseif eax==1004
                            invoke  SendMessage, hWnd, WM_CLOSE, 0, 0
                    .elseif eax == 1011
                            invoke MessageBox,hWnd,addr About,addr About1,MB_OK + MB_ICONINFORMATION
                    .endif


            .elseif uMsg == WM_CLOSE
                    invoke  EndDialog, hWnd, 0

            .endif

        xor eax,eax
        ret

    DlgProc endp

    Generate proc  hWnd:HWND



    MOV DWORD PTR [LenName], EAX


    cmp DWORD PTR [LenName],2h
    jl NoInput
    cmp DWORD PTR [LenName],32h
    jg Error

    xor eax, eax
    xor ebx, ebx
    xor ecx, ecx
    xor edx, edx

    routine:

    MOV AL,BYTE PTR [ecx+NameBuffer]
    INC ECX
    ADD EBX,EAX
    CMP ECX, DWORD PTR [LenName]
    JNE routine

    invoke wsprintf,addr SerialBuffer,addr Form,ebx
            ret


    NoInput:
            invoke SetDlgItemText,hWnd,1005,addr Messagepetit
                    ret
    Error:
            invoke SetDlgItemText,hWnd,1005,addr Messagepetit
                    Ret
    Generate EndP


    end start