begin

inc(sum,Delta);

inc(y,((z shl 4)+k0) xor (z+sum) xor ((z shr 5)+k1));

inc(z,((y shl 4)+k2) xor (y+sum) xor ((y shr 5)+k3));

end;

end;

procedure DeCrypt(var y,z:longword; k0,k1,k2,k3:longword);

var a,sum:longword;

begin

sum:=Delta shl 5;

for a:=0 to 31 do

begin

dec(z,((y shl 4)+k2) xor (y+sum) xor ((y shr 5)+k3));

dec(y,((z shl 4)+k0) xor (z+sum) xor ((z shr 5)+k1));

dec(sum,Delta);

end;

end;

Рассмотрим листинг на ассемблере (tea_128.asm):

;--------------------------------------------------------;

; BUFFER TO ENCRYPT             -> EDX                    ;

; KEY TO ENCRYPT                -> EAX                    ;

; SIZE OF BUFFER (div 4 = 0)    -> ECX                    ;

;--------------------------------------------------------;

total_encrypt:

    pusha               ; Сохраняем всё в стеке

    mov    esi,eax      ; Кладем в esi – eax

    mov    edi,edx      ; Кладём в edi – edx

work__:

    pusha               ; Сохраняем всё в стеке

    call   Encrypt      ; Шифруем первые 64 бита данных

    popa                ; Восстанавливаем из стека

    add    edi,8        ; Добавляем к edi – 8

    sub    ecx,7        ; Отнимаем от ecx – 7