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

begin

for i:=1 to 8 do

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

vihod_text:= Kodirovat(ish_text);

vektor := vihod_text;

for i:=1 to 8 do

begin

bykva:=byte(vihod_text[i]);

write(vihod_f,bykva);

end;

ish_text := '';

end;

end;

if(Length(ish_text) <> 0) then

begin

while length(ish_text)<8 do

ish_text:=ish_text+'0';

for i:=1 to 8 do

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

vihod_text := Kodirovat(ish_text);

for i:=1 to 8 do

begin

bykva:=byte(vihod_text[i]);

write(vihod_f,bykva);

end;

end;

end;

procedure Raswifrovanie_CBC(nazv_ish_f:string;nazv_vih_f:string;vektor:string);

var