Из Паскаля в СИ++. Шифрование текстового файла перестановкой

[desnet]

Шифрование текстовой информации случайной заменой символов. Нужно из Паскаля перевести в С++.

Program Cipher1;
const
txt1='Kurs dollara vozmozhno povisitsya. Menyate rubli na dollari!'#10;
txt2='Siphrovanie textovoy informacii sluchaynoy perestanovkoy simvolov.';
filename='Cipher.txt';
var
I:byte;
C:char;
Line:string[$FF];
CryptTab:array[1..255] of byte;
F:text;
begin
Line:=txt1+txt2;
writeln(line);
Assign(F,Filename);
Rewrite(F);
Close(F);
Reset(F);
Readln(F,Line);
Close(F);
Erase(F);
Writeln(line);
Line:=txt1+txt2;
randomize;
for I:=1 to Length(line) do
CryptTab[I]:= Succ(random(Length(line)));
for I:=1 to Length(line) do begin
C:=Line[I];
Line[I]:=Line[CryptTab[I]];
Line[CryptTab[I]]:=C
end;
Writeln(line);
for I:=Length(line) downto 1 do begin
C:=Line[i];
Line[I]:=Line[CryptTab[I]];
Line[CryptTab[I]]:=C
end;
Writeln(line);
Halt;
end

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Stilet]

А можно узнать принцип шифрования?