Reverse Code Engineering RCE CD +sandman 2000/ReverseCodeEngineeringRceCdsandman2000.iso/RCE/Quantico/km/hexdec.asm.txt

Text File | 2000-05-25 | 7.5 KB | 224 lines

.model  tiny

.386

        org 100h

.data

GroupLogo       db 13,10
                db '                     . a . n . e . w . b . r . e . e . d .',13,10
                db '                                                                ',13,10
                db '                                                         ▓',13,10
                db '                                                    ▄▀ ▀▒█▀ ▀▄▄',13,10
                db '    ░      ▄▄   ▄▄                                ▄▀▄█▄        █             ░',13,10
                db '         ▄▀▄ █▀▀▄ █ ▄▄    ▄▄▄▄▄▄     ▄▄    ▄▄▄▄ ▄▄▀▄▀ █ ▄█   ▄█ ▀▄  ▄▄▄▄',13,10
                db '    ░   █ ██ ▄███ █▀▄ █▄▀▀▄▄▄ ▄▄▀▀▀▀▀▄▄▀█▀▀▄▄▄ █▌ █▀  █ ██▄█████▀ ▀▀ ▄▄▄▀▄   ░',13,10
                db ' ░▒▒▒▓▓█ █▓███▓██ ▄██ ▀▄██████ ▀█▄▄▄█▀  ▄██████  ██ ▄█▀ ██  ██▌   ▄██████ █▓▒░░',13,10
                db '      █ █▓█▀ █▒██▀█▓█ ▄██▀ ██    ███   ▄██▀ ██  ███▄▀  ███ ███   ▄██▀ ██  █  ░',13,10
                db '    ▒ █ █▒█  ██▀ S█▓█ ██▄▄█▀   ▄█████  ██▄▄█▀   ███  ▄ ███ ████  ██▄▄█▀  ▐▌  ▒',13,10
                db '    ▓ ▀▄ ▀   ▀   a█▒█ ▀██▓▓▒░ ▀█▀  ▀██ ▀███▓▓▒░ ■▀██▀  █▀RV▀██▀▀ ▀███▓▓▒ █   ▓',13,10
                db '        ▀■--─────C▀██ ──────────────────────────────────────────────---■▀',13,10
                db '                                 ',13,10,'$'



IntroMsgOne     db 13,10,'   [■]   HexDecChar Editor - Key Generator by Quantico  [■]',13,10
                db '',13,10
                db 13,10,'   Enter a name        : ','$'


ErrorMsg        db 13,10,'                     Need 10-20 digits, try again...',13,10,'$'

ShowCodeMsg     db 13,10,'                     Registration number : '

CodeBuffer      db 10 dup(0),13,10,'$'

NameBuffer      db 18h, 19h dup(0)

DataTableOne    db 34h,0A0h,0D5h,00h,0F7h,24h,5Dh,5Ch,0Ah,8Ch,10h,0D6h,9Eh,0B5h,9Ch,66h,00h,24h,6Fh,20h,44h,4Dh,0D4h,63h,4Dh,0A2h,0F0h,10h,27h

Convert_Digs     db '0123456789ABCDEF'

namelength      db 0

.code

.startup

main    proc    near
        mov     ah, 09h                       ;
        lea     edx, GroupLogo                ;
        int     21h                           ; show group logo

        mov     ah, 09h                       ;
        lea     edx, IntroMsgOne              ;
        int     21h                           ; show intro and ask for input

        mov     bx, 140Ah
        lea     edi, NameBuffer               ;
        call    getstr                        ; read user input
        jc      @error                        ;
        xor     eax, eax                      ; clear eax
        call    keygen                        ; create serial number

        mov     ah, 09h                       ;
        lea     dx, ShowCodeMsg               ;
        int     21h                           ; print serial number
        jmp     @exit                         ; finished, quit
@error:
        mov     ah, 09h
        lea     dx, ErrorMsg
        int     21h
@exit:
        mov     al, 00h                       ;
        mov     ah, 4Ch                       ;
        int     21h                           ; terminate program
main    endp

keygen  proc    near
        xor     esi, esi
        mov     ebx, 00000001h
        mov     edx, ebx
        mov     edi, ebx
@more:
        mov     ecx, ebx
        dec     ecx
        and     ecx, 8000000Fh
        jns      @GO
        dec     ecx
        or      ecx, 0FFFFFFF0h
        inc     ecx
@GO:
        lea     eax, dword ptr [ebx+edi]
        push    ecx
        mov     ecx, 00000112h
        cdq
        idiv    ecx
        pop     ecx
        mov     al, byte ptr [edx+DataTableOne]
        lea     edx, namebuffer+2
        mov     dl, byte ptr [edx+ebx-01]
        xor     al, dl
        and     eax, 000000FFh
        shl     eax, cl
        add     esi, eax
        inc     ebx
        dec     [namelength]
        jne     @more
        mov     eax, esi

    xor    edx, edx
    mov    ecx, 0000000Ah
    lea    edi, CodeBuffer
    call    convert_num
    ret
keygen    endp



; get string from user
; input :
;       edi = pointer to buffer
;       bl  = min length
;       bh  = max length
; output :
;    CF error, cx number of bytes read
getstr  proc    near
        push    dx                            ; save dx
        mov     dx, di                        ;
        mov     ah, 0Ah                       ;
        int     021h                          ; get user input

        movsx   ecx, byte ptr [edi + 1]       ; get number of digits

        mov     byte ptr [edi + ecx + 2], 00h

        cmp     cl, bh                        ; check maximum
        jg      @@0
        cmp     cl, bl                        ; check minimum
        jl      @@0
        mov     [namelength], cl              ; store length
    xor    ch, ch
        clc                                   ; clear CF
        jmp     @@1
@@0:
        stc                                   ; set CF (carry flag)
@@1:
        pop     dx                            ; restore dx
    ret
getstr  endp

Convert_Num proc near
        pushf
    pushAD

        sub     esp, 4
        mov     ebp,esp

        cld
        mov     esi, edi
        push    esi

;--- loop for each digit

        sub     bh, bh
        mov     dword ptr [ebp], eax               ;save low word
        mov     dword ptr [ebp+4], edx             ;save high word
        sub     esi, esi                          ;count digits

Connum1:
        inc     esi
        mov     eax, dword ptr [ebp+4]             ;high word of value
        sub     edx, edx                          ;clear for divide
        sub    ebx, ebx
        div     ecx                              ;divide, DX gets remainder
        mov     dword ptr [ebp+4],eax             ;save quotient (new high word)

        mov     eax, dword ptr [ebp]               ;low word of value
        div     ecx                              ;divide, DX gets remainder
                                                ;  (the digit)
        mov     dword ptr [ebp], eax               ;save quotient (new low word)

        mov     bl, dl
        mov     al, byte ptr [Convert_Digs+ebx]  ;get the digit
        stosb                                   ;store

        cmp     dword ptr [ebp], 0                ;check if low word zero
        jne     Connum1                         ;jump if not
        cmp     dword ptr [ebp+4], 0              ;check if high word zero
        jne     Connum1                         ;jump if not

        sub     al, al
        stosb                                   ;store the terminator

;--- reverse digits

        pop     ecx                              ;restore start of string
        xchg    ecx, esi
        shr     ecx, 1                           ;number of reverses
        jz      Connum3                         ;jump if none

        xchg    edi, esi
        sub     esi, 2                           ;point to last digit

Connum2 :
        mov     al, byte ptr [edi]               ;load front character
        xchg    al, byte ptr [esi]               ;swap with end character
        stosb                                   ;store new front character
        dec     esi                              ;back up
        loopd   Connum2                         ;loop back for each digit

;--- finished

Connum3  :
        add     esp, 4

    popad
        popf
        ret
 endp           ;Convert_Num

end    main