Шифрование текста

[Lepricon69]

мне нужно написать программу которая шифрует текст потом его дешифрует. Это я знаю как сделать, но в задание есть подвох!.

в поле вписывается слово потом это же слово записывается в таблицу построчно, вводится порядок столбцов и они по этой нумерации выстраиваются и при нажатии клавиши необходимо по столбцам вписать это получившиеся слово

Пример:

Слово:
Сообщение

Таблица:
С О О
Б Щ Е
Н И И

Нумерация столбцов: 231

получилось:
О С О
Е Б Щ
И Н И

и получившееся слово: О Е И С Б Н О Щ И


а потом в обратном порядке

[Serge_Bliznykov]

Не увидел в Вашем сообщении вопроса. В этом и заключается "подвох"? Или какой подвох имеется в виду? То, что число букв в сообщении может быть не кратно числу столбцов?

И не забудьте указать, на каком языке программирования программируете.. впрочем, после того, как Вы выложите свои наработки, это будет видно...

[dmitriegorovih]

procedure TForm1.Button2Click(Sender: TObject);
var
n,n2:integer;
t,t1,t2,t3,co:Tstringlist;
s,s2,s3,s1:string;
begin
t:=Tstringlist.Create;
t1:=Tstringlist.Create;
t2:=Tstringlist.Create;
t3:=Tstringlist.Create;
co:=Tstringlist.Create;
for n:=1 to (length(edit1.Text) div 3) do begin
if edit1.Text[((n*3)-2)]<>'' then begin
s:=edit1.Text[((n*3)-2)];
end;
if edit1.Text[((n*3)-1)]<>'' then begin
s2:=edit1.Text[((n*3)-1)];
end;
if edit1.Text[(n*3)]<>'' then begin
s3:=edit1.Text[(n*3)];
end;
t.Add(s+s2+s3);
end;
if (length(edit1.Text) mod 3)<>0 then begin
n2:=(length(edit1.Text))-((length(edit1.Text) div 3)*3);
s:='';
for n:=0 to n2-1 do begin
s:=edit1.Text[((length(edit1.Text))-n)]+s;
end;
t.Add(s);
end;
listbox1.Items:=Tstrings(t);
for n:=0 to t.Count-1 do begin
s:=t.Strings[n];
t1.Add(s[1]);
t2.Add(s[2]);
t3.Add(s[3]);
end;
for n:=0 to t.Count-1 do begin
co.Add(t3.Strings[n]+t1.Strings[n]+t2.Strings[n]);
end;
listbox1.Items:=Tstrings(co);
s1:='';
s2:='';
s3:='';
for n:=0 to t.Count-1 do begin
s:=co.Strings[n];
s1:=s1+s[1];
s2:=s2+s[2];
s3:=s3+s[3];
end;
showmessage(s1+s2+s3);
freeandnil(t);
freeandnil(t1);
freeandnil(t2);
freeandnil(t3);
freeandnil(co);
end;

Подработаете главное направление дать а всё остальное суета )))))

[Lepricon69]

спасибо я с этим справился, но не совсем все понял можешь скинуть мне пример такой дешифровки и если не трудно объясни как включить нумерацию столбцов что возможно было менять их местами