Перестановка бит в коде исходного текста.

const mas: array[1..12] of integer = (2,1,6,5,12,7,8,3,10,11,9,4); //индексы перестановки
 
var i,j,n,k,d: integer;
s,s1: string;
c: char;
 
function IntToBin(k: integer): string;
var i: integer;
s: string;
begin
s:='';
for i:=11 downto 0 do
if (k div trunc(exp(i*ln(2))) = 1) then
begin
s:=s+'1';
k:=k-trunc(exp(i*ln(2)));
end
else
s:=s+'0';
result:=s;
end;
 
begin
writeln ('Введите последовательность символов');
readln (s);
n:=length(s);
write('Зашифрованный текст в бинарном виде: ');
for i:=1 to n do
begin
j:=ord(s[i]);
s1:=IntToBin(j);
c:=s1[mas[1]];
for k:=1 to 11 do
s1[mas[k]]:=s1[mas[k+1]];
s1[mas[12]]:=c;
write(s1);
end;
end.

var i,j,n,k,l,m,d: integer;
s,s1,s4,s5,s7: string;  key:array[1..12] of integer;
c: char;     s2,s3,s6:array[1..100] of string;
 
//***********************************************************
//функция перевода в двоичную систему счисления из десятичной
//***********************************************************
function IntToBin(Value: integer): string;
var
  i: integer;
const
  digits: integer = 8;
begin
  result := '';
  for i := 0 to Digits - 1 do
  if Value and (1 shl i) > 0
  then result := '1' + result
  else result := '0' + result;
end;
//***********************************************************
 
//***********************************************************
//функция перевода в десятичную из двоичной сист. счисления
//***********************************************************
function BinToInt(Value: String): LongInt;
var
  I, Size: Integer;
begin
  Result := 0;
  Size := Length(Value);
  I := 1;
  while I <= Size do begin
    if Value[i] = '1' then Result := Result + (1 shl (Size - I));
    Inc(I);
  end;
end;
//***********************************************************
 
 
begin
writeln ('Добрый день,уважаемый юзер!');
writeln ('Что желаете? ');
writeln ('Хотите зашифровать текст ? Нажмите 1.');
writeln ('Хотите расшифровать текст ? Нажмите 2.');
write ('Выбор за вами... : ');
readln(j);
writeln; writeln;
 
if j=1 then begin
writeln ('Введите последовательность символов');
readln(s);
writeln ('Введите ключ для шифровки (12 цифр в диапазоне [1..12]): ');
for i:=1 to 12 do
readln(key[i]);
n:=length(s);
s1:='';
for i:=1 to n do
begin
j:=ord(s[i]);
s1:=s1+IntToBin(j);
end;
 
j:=1;   s2[1]:='';
for i:=1 to length(s1) do
begin
s2[j]:=s2[j]+s1[i];
if i mod 12=0 then begin j:=j+1; s2[j]:=''; end;
end;
writeln('Текст по блокам в бинарном виде (в блоке по 12 бит): ');
for i:=1 to j do
writeln(s2[i]);
 
writeln('Зашифрованый текст по блокам в бинарном виде (в блоке по 12 бит): ');
for i:=1 to j-1 do
begin
s3[i]:='';
for d:=1 to 12 do
begin
s4:=s2[i];
s3[i]:=s3[i]+s4[key[d]];
end;
writeln(s3[i]);
s5:=s5+s3[i];
end;
writeln; writeln;
end
else begin
 
writeln; writeln;
writeln ('Введите ключ для расшифровки (12 цифр в диапазоне [1..12]): ');
for i:=1 to 12 do
readln(key[i]);
 
writeln ('Введите количество блоков(по 12 бит): ');
readln(j);
 
writeln('Введите зашифрованный текст по блокам в бинарном виде (в блоке по 12 бит): ');
for i:=1 to j do
readln(s2[i]);
 
s7:='000000000000'; s5:='';
writeln('Расшифрованый текст по блокам в бинарном виде (в блоке по 12 бит): ');
for i:=1 to 4 do
begin
s3[i]:='';
for d:=1 to 12 do
begin
s4:=s2[i];;
s7[key[d]]:=s4[d];
end;
s3[i]:=s7;
writeln(s3[i]);
s5:=s5+s3[i];
end;
 
 
j:=1;
for i:=1 to length(s5) do
begin
s6[j]:=s6[j]+s5[i];
if i mod 8=0 then begin j:=j+1; s6[j]:=''; end;
end;
 
writeln;
writeln('Расшифрованый текст : ');
for i:=1 to j do
write(chr(BinToInt(s6[i])));
end;
end.