Алгоритм шифрования ROT13 на Ассемблере

.386
.model  flat, stdcall
.code
;-----------------------------------------------------------------------
; Функция шифрования строки по алгоритму ROT13
; Copyright (C) ManHunter / PCL
; [url]http://www.manhunter.ru[/url]
;-----------------------------------------------------------------------
; Параметры:
;      lpData - указатель на строку
;      dSize  - длина строки
;-----------------------------------------------------------------------
ROT13   proc     lpData:DWORD, dSize:DWORD
        pusha
 
        ; Длина строки
        mov     ecx, dSize
        or      ecx,ecx
        jz      @loc_ret
 
        ; Указатели на строку
        mov     esi,lpData
        mov     edi,esi
@loc_crypt:
        ; Получить символ из строки
        lodsb
        inc     edi
 
        ; Сохранить бит регистра
        mov     ah,al
        and     ah,20h
 
        ; Символ в верхний регистр
        and     al,0FFh-20h
        cmp     al,'A'
        ; Кодировать не надо
        jb      @no_crypt
        cmp     al,'Z'
        ; Кодировать не надо
        ja      @no_crypt
 
        sub     al,13
        ; Cимвол первой половины алфавита?
        cmp     al,'A'
        jae     @f
        add     al,26
@@:
        ; Восстановить бит регистра
        or      al,ah
        dec     edi
        ; Записать измененный символ
        stosb
@no_crypt:
        ; Следующий символ
        loop    @loc_crypt
@loc_ret:
        popa
        ret
ROT13   endp
end

      .486                      ; create 32 bit code
      .model flat, stdcall      ; 32 bit memory model
      option casemap :none      ; case sensitive
 
      include \masm32\include\dialogs.inc
      include rot13.inc
  ID_TXT = 100
  ID_ROT13 = 101
    
      DialogProc PROTO :DWORD,:DWORD,:DWORD,:DWORD
 
;---------------------------------------------
 
.data?
 
buff    db 500h dup(?)
 
;---------------------------------------------
 
.code
 
start:
      mov hInstance, FUNC(GetModuleHandle,NULL)
        call    main
;        invoke  DialogBoxParam,eax,37,HWND_DESKTOP,DialogProc,0
        invoke  ExitProcess,0
;---------------------------------------------
main proc
 
    Dialog "ROT13 Demo","MS Sans Serif",10, \            ; caption,font,pointsize
            WS_OVERLAPPED or WS_CAPTION or WS_SYSMENU or DS_CENTER or DS_SYSMODAL, \     ; style
            3, \                                            ; control count
            0,0,190,55, \                                 ; x y co-ordinates
            1024                                            ; memory buffer size
 
    DlgEdit WS_VISIBLE or WS_BORDER or WS_TABSTOP or ES_AUTOHSCROLL,5,7,177,13, ID_TXT
    DlgEdit WS_VISIBLE or WS_BORDER or ES_READONLY or ES_AUTOHSCROLL,5,19,177,13, ID_ROT13
    DlgButton "Exit",WS_TABSTOP,135,37,50,15,IDCANCEL
 
    CallModalDialog hInstance,0,DialogProc,NULL
 
    ret
 
main endp
 
;-----------------------------------------------------------------------
; Функция шифрования строки по алгоритму ROT13
; Copyright (C) ManHunter / PCL
; [url]http://www.manhunter.ru[/url]
;-----------------------------------------------------------------------
; Параметры:
;      lpData - указатель на строку
;      dSize  - длина строки
;-----------------------------------------------------------------------
ROT13   proc     lpData:DWORD, dSize:DWORD
        pusha
 
        ; Длина строки
        mov     ecx, dSize
        or      ecx,ecx
        jz      @loc_ret
 
        ; Указатели на строку
        mov     esi,lpData
        mov     edi,esi
@loc_crypt:
        ; Получить символ из строки
        lodsb
        inc     edi
 
        ; Сохранить бит регистра
        mov     ah,al
        and     ah,20h
 
        ; Символ в верхний регистр
        and     al,0FFh-20h
        cmp     al,'A'
        ; Кодировать не надо
        jb      @no_crypt
        cmp     al,'Z'
        ; Кодировать не надо
        ja      @no_crypt
 
        sub     al,13
        ; Cимвол первой половины алфавита?
        cmp     al,'A'
        jae     @f
        add     al,26
@@:
        ; Восстановить бит регистра
        or      al,ah
        dec     edi
        ; Записать измененный символ
        stosb
@no_crypt:
        ; Следующий символ
        loop    @loc_crypt
@loc_ret:
        popa
        ret
ROT13   endp
;---------------------------------------------
 
DialogProc proc hwnddlg,msg,wparam,lparam
        push    ebx 
        push    esi 
        push    edi
        mov eax, msg
        cmp     msg,WM_INITDIALOG
        je      @wminitdialog
        cmp     msg,WM_COMMAND
        je      @wmcommand
        cmp     msg,WM_CLOSE
        je      @wmclose
        xor     eax,eax
        jmp     @finish
@wminitdialog:
        jmp     @wmencode
@wmcommand:
        cmp     wparam,BN_CLICKED shl 16 + IDCANCEL
        je      @wmclose
        cmp     wparam,EN_CHANGE shl 16 + ID_TXT
        je      @wmencode
        jmp     @processed
 
@wmencode:
        invoke  GetDlgItemText,hwnddlg,ID_TXT, ADDR buff,255
        invoke  lstrlen,ADDR buff
        invoke ROT13,ADDR buff,eax
 
        invoke  SetDlgItemText,hwnddlg,ID_ROT13,ADDR buff
        jmp     @processed
 
@wmclose:
        invoke  EndDialog,hwnddlg,0
@processed:
        mov     eax,1
@finish:
        pop     edi 
        pop esi 
        pop ebx
        ret
DialogProc  endp
 
end start