Приложение А. Листинг А.1 – Программа шифрования/расшифрования текстовых сообщений с помощью алгоритма ГОСТ 28147-89Листинг А.1 – Программа шифрования/расшифрования текстовых сообщений с помощью алгоритма ГОСТ 28147-89
.386 Sseg segment use16 para stack 'stack' db 256 dup(?) Sseg ends
Dseg segment para public 'data' strng db 'Rocking just to make ya move!$' key dd 0F3FA012Bh, 023FE412Ah, 013F5062Bh, 0D9FA0C9Bh dd 033AA1120h, 0B7FA0182h, 0A3FA0D25h, 083F7035Bh endWithZero dq 0;64 нуля mode db 0;флаг режима: зашифровка = 0, расшифровка = 1 (или любое другое число) last db 0;флаг последнего блока substitute db 4, 1, 3, 11, 0, 10, 5, 2, 7, 12, 6, 14, 8, 9, 15, 13 sblocks db 8 dup(0)
cb dw 0;count blocks, номер, по которому;будет записываться образованный блок в строку dcb dw 0;для decrypt cryptedstring db 256 dup(0) decryptedstring db 256 dup(0) endstr db 13d, 10d, '$';символ конца строки ;для ввода строки Dseg ends
Cseg segment use16 para public 'code' assume cs:Cseg, ds:Dseg, ss:Sseg start proc far ; push ds sub ax, ax push ax ; mov bx, Dseg mov ds, bx ; call main ret start endp main proc near lea dx, ds:[strng];вывод строки,;функция 9 прерывания ДОС 21 mov ah, 09h int 21h
lea dx, ds:[endstr];вывод строки,;функция 9 прерывания ДОС 21 mov ah, 09h int 21h
; ret lea bx, ds:[strng];получить адрес;нашей строки jmp process for_decryption: mov al, 1 mov mode, al;устанавливаем флаг;режима расшифровки lea bx, ds:[cryptedstring] process: xor esi, esi;обнуляем указатель на;строку xor edi, edi;указатель ключа
; maincycle: xor cx, cx lea ax, ds:[key];берем адрес следующей, за строкой, переменной sub ax, bx cmp ax, 8;если на итерации не будет 64 бит, то идем на ветку ;кода, где недостающие биты будут нулями
jl less64 jg next_step
next_step: mov eax, dword ptr [bx+si];занесли;левую часть add si, 4;следующие 4 байта (32 бита) mov edx, dword ptr [bx+si];занесли;правую часть add si, 4;смещение для следующего цикла add bx, 8;смещение для следующего цикла
push ax;сохраняем левую часть в;стек, чтобы освободить регистр для работы ror eax, 16 push ax jmp func ; less64: mov al, 1 mov last, al;флаг, что заменяется;последний блок ; add bx, si xor si, si lea cx, ds:[key] lesstrace: mov al, byte ptr [bx] mov byte ptr endWithZero[si], al inc si inc bx cmp bx, cx jne lesstrace xor cx, cx
;функция func: rol edi, 2 add edx, key[edi] ror edi, 2 ;подстановка ;извлечение push di push bx lea bx, substitute mov eax, edx and dl, 00001111b mov di, dx and di, 00FFh mov dl, substitute[di] mov sblocks[0], dl mov dx, ax shr dl, 4 mov di, dx and di, 00FFh mov dl, substitute[di] mov sblocks[1], dl mov dx, ax and dh, 00001111b xor dl, dl xchg dl, dh mov di, dx mov dh, substitute[di] mov sblocks[2], dh mov dx, ax shr dh, 4 xor dl, dl xchg dl, dh mov di, dx mov dh, substitute[di] mov sblocks[3], dh mov edx, eax shr edx, 16 mov ax, dx and dl, 00001111b mov di, dx and di, 00FFh mov dl, substitute[di] mov sblocks[4], dl mov dx, ax shr dl, 4 mov di, dx and di, 00FFh mov dl, substitute[di] mov sblocks[5], dl mov dx, ax and dh, 00001111b xor dl, dl xchg dl, dh mov di, dx mov dh, substitute[di] mov sblocks[6], dh mov dx, ax shr dh, 4 xor dl, dl xchg dl, dh mov di, dx mov dh, substitute[di] mov sblocks[7], dh pop bx pop di
;замена, склеивание S-блоков mov dl, sblocks[1] rol dl, 4 or dl, sblocks[0] mov dh, sblocks[3] rol dh, 4 or dh, sblocks[2] mov ax, dx mov dl, sblocks[5] rol dl, 4 or dl, sblocks[4] mov dh, sblocks[7] rol dh, 4 or dh, sblocks[6] rol edx, 16 mov dx, ax ;rol edx, 16
rol edx, 11
inc cl
mov al, mode;вспоминаем флаг;режима cmp al, 0; jz cryptmode jmp decryptmode
cryptmode: cmp ch, 3;если идет [0..3];последний цикл применения ключа, идти по подключам в обратном;порядке je creverse_di cmp di, 7;если дошли до;последнего подключа, переходим к первому je creset_di inc di ;inc ch jmp func creset_di: inc ch cmp ch, 3 je func xor di, di
jmp func creverse_di: cmp cl, 23 je func dec di cmp cl, 32 je out_cycle jmp func
decryptmode: cmp ch, 0;если первый проход по;ключу, идем прямо je ddirect_di cmp di, 0 je dset_di dec di cmp cl, 32;завершение 32-х циклов;преобразования jnb out_cycle jmp func dset_di: mov di, 7 inc ch
jmp func ddirect_di: inc di cmp di, 7 ja dset_di cmp cl, 32;завершение 32-х циклов;преобразования jb func
out_cycle: pop ax;восстанавливаем левую;часть из стека rol eax, 16 pop ax xor eax, edx xchg eax, edx
;сохранение блоков в новой строке mov cl, mode cmp cl, 0 jne save_decrypt push si mov si, cb mov dword ptr cryptedstring[si], eax add si, 4 mov dword ptr cryptedstring[si], edx add si, 4 mov cb, si pop si
save_decrypt: push si mov si, dcb mov dword ptr decryptedstring[si], eax add si, 4 mov dword ptr decryptedstring[si], edx add si, 4 mov dcb, si pop si
mov cl, last cmp cl, 0 je maincycle;конец шифровки
mov cl, mode;смена режима после;шифровки cmp cl, 0 je for_decryption
mov si, cb mov byte ptr cryptedstring[si], '$' mov si, dcb mov byte ptr decryptedstring[si], '$'
lea dx, ds:[strng];вывод строки,;функция 9 прерывания ДОС 21 mov ah, 09h int 21h
lea dx, ds:[endstr];вывод строки,;функция 9 прерывания ДОС 21 mov ah, 09h int 21h
lea dx, ds:[cryptedstring];вывод;строки, функция 9 прерывания ДОС 21 mov ah, 09h int 21h
lea dx, ds:[endstr];вывод строки,;функция 9 прерывания ДОС 21 mov ah, 09h int 21h
lea dx, ds:[decryptedstring];вывод;строки, функция 9 прерывания ДОС 21 mov ah, 09h int 21h
ret main endp Cseg ends end start
Примечание: для сборки программы нужно ввести в командной строке следующее: tasm <имя_файла> tlink <имя_файла> /3
|
