Шифрование - Turbo Pascal
Формулировка задачи:
нужно создать программный код (программу) шифрования. Исходная информация должна вводиться с клавиатуры или считываться из файла, зашифрованная информация должна сохраняться в файле *.txt. напишите программу полностью пожалуйста.
Решение задачи: «Шифрование»
textual
Листинг программы
{Шифр простая перестановка}
Var S : String;
i : Byte;
ch : Char;
Begin
Readln(S);
If Odd(Length(S)) then S:=S+' ';
For i:=1 to Length(S)-1 do
If Odd(i) then
Begin
Ch:=S[i];
S[i]:=S[i+1];
S[i+1]:=Ch;
End;
Writeln(S);
End.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д