很久没见到这么简单的玩意儿了，不容易。
使用，转载请保持完整性。
;======================================================================
;BootStar v7.33 keygen by arbiter.  Feb.2002.
;Assemble:
;tasm32 /mx /m4 /z keygen.asm
;tlink32 -x -V4.0 -Tpe -aa -c keygen.obj,keygen,,,keygen.def,keygen.res
;======================================================================

.386
.MODEL FLAT, STDCALL
LOCALS
UNICODE    = 0

include E:\TASM5Plus\TASM5Plus\INCLUDE\w32.inc
includelib E:\TASM5Plus\TASM5Plus\LIB\imp32i.lib

IDD_DIALOG        equ      101
EDIT_NAME        equ      1001
EDIT_CODE        equ      1002
BT_ABOUT      equ      1003
BT_EXIT          equ      1004

extrn    wsprintfA    :    PROC
extrn    CharUpperA    :    PROC    
extrn    memset      :    PROC
    
minl    =    10
maxl    =    60
.DATA
defName        db    "arbiter[CCG]", 0
cap        db    "BootStar v7.33 KeyGen by arbiter[CCG]", 0
format        db    "BM1-%s-%s-%s", 0
abouttxt    db    "$^)  ", 13, 10
        db    "Key Generator for BootStar v7.33  ", 13, 10
                db     "@@@ Made by arbiter[CCG] @@@ ", 13, 10, 13, 10
                db    "Hope you'll be satisfied! with  ", 13, 10
                db     "this release from arbiter. ", 13, 10
        db    "to be continue...  ", 0
aboutcap    db    "uh-huh!", 0
insuLen        db    "Name length must equal or greater 10!", 0
.DATA?
hdlg        dd ?
_hInst        dd ?
nlen        dd ?

uName        db 60 dup( ? )
uCode        db 30 dup( ? )
temp        db 30 dup( ? )
part1        db 10 dup( ? )
part2        db 10 dup( ? )
part3        db 10 dup( ? )

.CODE
Start:    pushad
    call    GetModuleHandle, 0
    test    eax, eax
    je    @out
    mov    _hInst, eax
    call    DialogBoxParamA, _hInst, IDD_DIALOG, 0, offset DlgProc, 0
@out:
    popad
    call    ExitProcess, 0
    RET
;----------------------------------------------------------------------
DlgProc    PROC    __hWnd : DWORD, wmsg : UINT, _wParam : WPARAM, _lParam : LPARAM
    uses    ebx, esi, edi
    mov    eax, wmsg
    cmp    eax, WM_CLOSE
    jz    _wmDes
    cmp    eax, WM_COMMAND
    jz    _wmCmd
    cmp    eax, WM_INITDIALOG
    jz    _wmInit
    xor    eax, eax
    RET
;----------------------------------------------------------------------
_wmDes:
    call    EndDialog, hdlg, 0
    RET
;----------------------------------------------------------------------
_wmCmd:
    mov    eax, _wParam
    cmp    ax, EDIT_NAME
    jnz    nochange
    shr    eax, 16
    cmp    ax, EN_CHANGE
    jnz    nochange
    call    Generate
    xor    eax, eax
    RET
nochange:
    cmp    ax, BT_ABOUT        
    jnz    noAbout
    call    MessageBoxA, hdlg, offset abouttxt, offset aboutcap, \
            MB_ICONINFORMATION OR MB_OK OR MB_APPLMODAL     
    jmp    cout
noAbout:
    cmp    ax, BT_EXIT
    jz    _wmDes
cout:
    xor    eax, eax
    RET
;-----------------------------------------------------------------------            
_wmInit:
    mov    eax, __hWnd
    mov    hdlg, eax
    call    GetDlgItem, __hWnd, EDIT_NAME
    call    SendMessageA, eax, EM_SETLIMITTEXT, maxl, 0
    call    SetWindowTextA, __hWnd, offset cap
    call    SetDlgItemTextA, __hWnd, EDIT_NAME, offset defName
    push    1
    pop    eax
    RET
DlgProc    ENDP    
;-----------------------------------------------------------------------
Generate PROC
    call    GetDlgItemtextA, __hWnd, EDIT_NAME, offset uName, maxl + 1
    cmp    eax, minl
    jl    @CharsInsufficient
    mov    nlen, eax
    push    offset uName
    call    CharUpperA
    mov    ecx, nlen
    xor    eax, eax
    xor    edx, edx
    lea    esi, uName
@conti:
    mov    al, byte ptr[esi]
    add    edx, eax
    inc    esi
    dec    ecx
    jnz    @conti
    xchg    dh, dl
    push    dx
    call    memset, offset part1, 0, 10
    add    esp, 12
    pop    dx
    lea    edi, part1
    mov    byte ptr[edi], 2
    mov    word ptr[edi+1], dx
    push    edi
    push    offset temp
    call    Computel
    mov    eax, dword ptr[temp]
    mov    dword ptr[part2], eax
    mov    al, byte ptr[uName]
    mov    byte ptr[part2+4], al  ;finish constructing the 2nd part.
    
    mov    dx, word ptr[uName]
    push    dx
    call    memset, offset part1, 0, 10
    add    esp, 12
    pop    dx
    lea    edi, part1
    mov    byte ptr[edi], 2
    mov    word ptr[edi+1], dx
    push    edi
    push    offset temp
    call    Computel
    mov    eax, dword ptr[temp]
    mov    dword ptr[part3], eax  ;finish constructing the 3rd part.
    
    call    memset, offset part1, 0, 10
    add    esp, 12
    lea    edi, part1
    mov     byte ptr[edi], 1
    mov    eax, nlen
    mov    byte ptr[edi+1], al
    push    edi
    push    offset temp
    call    Computel
    mov    ax, word ptr[temp]
    push    ax
    push    ax
    
    call    memset, offset part1, 0, 10
    add    esp, 12
    pop    ax
    lea    edi, part1
    lea    esi, uName
    mov    word ptr[edi], ax
    mov    al, byte ptr[esi+1]
    inc    edi
    inc    edi
    stosb                          ;be preparing the 1st part...
    call    memset, offset temp, 0, 30
    add    esp, 12
    push    offset part3
    push    offset part2
    push    offset part1
    call    wsprintfA, offset temp, offset format
    add    esp, 20
    
                                    ;now checking out the mid-age buffer length.
    or    ecx, 0FFFFFFFFH
    lea    edi, temp
    xor    al, al
    repnz    scasb
    neg    ecx
    dec    ecx
    xor    edx, edx
    lea    esi, [temp]        ;sum up the temp buf for finalizing the part1.
sum2:    xor    eax, eax
    mov    al, byte ptr[esi]
    add    dx, ax
    inc    esi
    dec    cl
    jnz    sum2
    push    dx
    call    memset, offset temp, 0, 30
    add    esp, 12
    pop    dx
    lea    edi, [part1]
    mov    byte ptr[edi], 1
    mov    byte ptr[edi+1], dl
    push    edi
    push    offset temp
    call    Computel
    call    memset, offset part1, 0, 10
    add    esp, 12
    pop    ax
    lea    edi, [part1]
    mov    word ptr[edi], ax
    mov    ax, word ptr[temp]
    mov    word ptr[edi+2], ax
    mov    al, byte ptr[uName+1]
    mov    byte ptr[edi+4], al            ;finishing constructing 1st part.
    
    call    memset, offset uCode, 0, 30
    add    esp, 12
    push    offset part3
    push    offset part2
    push    offset part1
    call    wsprintfA, offset uCode, offset format
    add    esp, 20
    
    call    SetDlgItemTextA, hdlg, EDIT_CODE, offset uCode
GenOk:    xor    eax, eax
    RET
@CharsInsufficient:
    call    SetDlgItemTextA, hdlg, EDIT_CODE, offset insuLen
    jmp    GenOk
Generate ENDP                                                           
;-----------------------------------------------------------------------
Computel PROC
    push    ebp
    mov    ebp, esp
    push    ebx
    push    edi
    push    esi
    xor    eax, eax
    xor    ebx, ebx
    xor    edx, edx
    mov    esi, [ebp+12]
    mov    edi, [ebp+8]
    mov    bh, byte ptr[esi]
    xor    ecx, ecx
goon:
    inc    esi
    mov    bl, byte ptr[esi]
    inc    cl
    mov    eax, 0A5H
    shl    eax, cl
    xor    bl, cl
    xor    bl, 0A5H
    xor    al, bl
    mov    dl, al
    and    edx, 15
    shr    al, 4
    movzx    eax, al
    mov    al, cctab[eax]
    mov    ah, cctab[edx]
    stosw
    dec    bh
    jnz    goon
    
    pop    esi
    pop    edi
    pop    ebx
    pop    ebp
    RET    8
cctab    db    "0123456789ABCDEF"    
Computel ENDP
;----------------------------------------------------------------------
END Start