| Код |
uses
crt;
const
XORKEY=100;{ключ для шифра}
procedure ShifrXOR(var strText:string;key:byte);
{ф-ция шифрования/дешифрования с помощью операции xor}
var
i,len:byte;{i-счетчик, len-длина строки}
begin
len:=length(strText);{узнаем длину}
for i:=1 to len do
strText[i]:=chr(ord(strText[i]) xor key);{шифруем/дешифруем каждый символ}
end;
var
strText:string;{текст}
begin
clrscr;
writeln('Please enter a text:');
readln(strText);
writeln('Source text:');
writeln(strText);
ShifrXOR(strText,XORKEY);
writeln('Coded text:');
writeln(strText);{печать зашифрованного текста}
ShifrXOR(strText,XORKEY);
writeln('Decoded text:');
writeln(strText);{печать расшифрованного текста}
readln;
end.
|
|
