Курсовая работа: Использование современных симметрических DES и асимметрических RSA алгоритмов шифрования

ish_text:=ish_text+'0';

tmp := ish_text;

vihod_text:= Raskodirovat(ish_text);

for i:=1 to 8 do

vihod_text[i] := chr(ord(vihod_text[i]) xor ord(vektor[i]));

vektor := tmp;

for i:=1 to 8 do

begin

bykva:=byte(vihod_text[i]);

write(vihod_f,bykva);

end;

end;

end;

end.

unit DES_unit;

interface

type odnom_1_64=array[1..64] of byte;

type odnom_1_56=array[1..56] of byte;

type odnom_1_48=array[1..48] of byte;

type odnom_1_32=array[1..32] of byte;

type dvym_1_17_1_32=array[1..17,1..32] of byte;

type dvym_1_17_1_28=array[1..17,1..28] of byte;

type dvym_1_16_1_48=array[1..16,1..48] of byte;//16 подключей

procedure Perestanovka_IP (var Klju4_64_posle_IP: odnom_1_64);

procedure Perestanovka_E (n:integer; Tekst_32_do_E: dvym_1_17_1_32; va