Алгоритм шифрования "перестановка с ключом"

[ddj]

Привет всем!
Нужна помощь в решении одной вроде бы несложной задачки, если кто может помочь, буду весьма благодарен.

Суть алгоритма:

1. Есть исходное сообщение и ключ, по которому его шифруем.
2. Далее сообщение забивается в некую матрицу, длина строки которой равна длине ключа
2. Ключ нужно упорядочить по алфавиту (можно просто упорядочить по возрастанию номера символов ключа через ord)
3. Одновременно переставляются столбцы матрицы, которые соответствуют каждому символу ключа.

Проиллюстрируем:

| к | л | ю | ч ++++++| к | л | ч | ю
--------------+++++++--------------
| с | о | о | б ++++++ |с | о | б | о
--------------+++=>++--------------
| щ | е | н | и ++++++|щ | е | и | н
-------------- ++++++ -------------
| е |___|__|__++++++ |е |
-------------- ++++++

т.е. был ключ "ключ", его упорядочили, он стал "клчю"
был шифруемый текст "сообщение", стал "собощеине"

Нужен алгоритм шифрования/дешифрования на Delphi

P. S. Ну очень надо!!! Вы же сами когда-то были студентами!!!

[Stilet]

А что именно не получается? Разбивка на матрицу или сортировка?

P.S. а как назад такое расшифровать?

[ddj]

Сортирвать ключ я смог, а вот как переставить в соответствии с этим символы сообщения, что-то не соображу. Может, есть мысли или решение готовое?

"а как назад такое расшифровать?" - если б я знал...

[Stilet]

если б я знал...

Ха!. Красавчик
Вот пример на скорую руку:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type             TCrtfoxGrid=class(Grids.TCustomGrid);
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
     procedure SortGrid(grid:TStringGrid;column:integer=0;fromrow:integer=0);

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var key,mess:string;i,rw,cl:integer;
begin
 key:='ключ';
 mess:='Сообщение';
 StringGrid1.ColCount:=length(key)+1;
 for i:=1 to length(key) do
  StringGrid1.Cells[i-1,0]:=key[i];
 rw:=1;cl:=0;
 for i:=1 to length(mess) do begin
  StringGrid1.Cells[cl,rw]:=mess[i];
  if cl=length(key)-1 then cl:=0 else inc(cl);
  if cl=0 then inc(rw);
 end;
end;
 
//**************************************************************************
procedure SortGrid;
var k,i:integer;
begin
 for i:=fromrow+1 to grid.RowCount-1 do begin
   for k:=fromrow+1 to grid.RowCount-1 do begin
    if grid.Cells[k,column]<grid.Cells[k-1,column] then
      TCrtfoxGrid(grid).MoveColumn(k,k-1);
   end;
 end;
end;
//**************************************************************************

procedure TForm1.Button1Click(Sender: TObject);
begin
 SortGrid(StringGrid1,0,0);
end;

end.

[ddj]

Сообщение от Stilet

Ха!. Красавчик
Вот пример на скорую руку:
.....

На гридах работает прикольно, спасибо за пример.

Но мне нужно немного другое: прога должна просто переставлять символы в сообщении по ключу, а матрицу отображать не надо. Т.е. по указанному в начале алгоритму составить процедуру шифрования и дешифрования текста.

Я никак не соображу, как это все до ума довести... Работает только сортировка ключа, вот она:

function Sort (key: String): String;
var i, lenKey: Integer;
    temp : String;
begin
  temp := key;
  LenKey:= Length(Key);
  for i:= 1 to LenKey do
   if Ord(Key[i]) > Ord(Key[i+1]) then
    begin
      temp[i] := Key[i];
      Key[i] := Key[i+1];
      Key[i+1] := temp[i];
    end;
    Result := Key;
end;

А как быть дальше, вот в чем баааальшой вопрос. Может, для кого-то это все элементарно, если да, поделитесь опытом, что ли...