Шифровка

[venomdanger]

Помогите пожалуйста! нужен программный код, ну иди хотя бы метод решение шифровки данных в виде файлов методом перестановок на основе двух ключевых слов. а если есть исходник, то вообще будет шикарно! Срочно нужна помощь! Заранее огромное спасибо!
Открытый текст: "ШИФРОВАНИЕ_ПЕРЕСТАНОВКОЙ".
Матрица из четырех столбцов.
Ключи: k1= 5-3-1-2-4-6; k2= 4-2-3-1.
1 И Е _ П
2 Е Р Е С
3 О В А Н запись по стpокам в соответствии
4 Т А Н О с ключом k1
5 Ш И Ф Р
6 В К О Й чтение по столбцам в соответствии
k1/k2 1 2 3 4 с ключом k2
Рис.3
Шифртекст: "ПСНОРЙЕРВАИК_ЕАНФОИЕОТШВ".

вот вся инфа что у меня есть(

[venomdanger]

вот есть часть кода
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, ExtCtrls, Grids;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
LabeledEdit3: TLabeledEdit;
LabeledEdit4: TLabeledEdit;
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

type
m1=array[1..255,1..2] of integer;

var
Form1: TForm1;
s1,s2:string;
mas1,mas2:m1;

implementation

{ TForm1 }

procedure sort(s:string;var st1:string);
var
k:integer;
i:integer;
changed:boolean;
buf:char;
stcol1:integer;
begin
st1:=s;
stcol1:=length(st1);
repeat
changed:=FALSE;
for k:=1 to stcol1-1 do
if st1[k] > st1[k+1] then
begin
buf := st1[k];
st1[k] := st1[k+1];
st1[k+1] := buf;
changed := TRUE;
end;
until not changed;
end;

procedure soot(st1,st2:string; var q:m1);
var
i,j:integer;
begin
for i:=1 to length(st1) do
q[i,1]:=i;
for i:=1 to length(st1) do
begin
j:=1;
while st1[i]<>st2[j] do
inc(j);
q[i,2]:=j;
st2[j]:=#0;
end;
end;

Procedure change1;
Begin

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Sort(form1.LabeledEdit3.Text,s1);
Sort(form1.LabeledEdit4.Text,s2);
soot(form1.LabeledEdit3.Text,s1,mas 1);
soot(form1.LabeledEdit4.Text,s2,mas 2);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin

end;

initialization
{$I unit1.lrs}

end.