шифрование методом перестановки delphi

[300nika]

Нужна программа которая шифрует и расшифровывает методом перестановки
С шифрование вроде работает а расшифровать никак не могу так как ничего в этом не понимаю
помогите исправить программку

вот код шифрования

function TForm1.encode(st,k:string):string;
var i,j:byte;
buf:string;
res:string;
begin
res:='';
while Length(k)<=Length(st) do
begin
buf:=Copy(st,1,Length(k));
delete(st,1,Length(k));
for I := 1 to length(k) do
res:=res+buf[strtoint(k[i])];
end;
if trim(st)<>'' then
begin
while length(st)<Length(k) do st:=st+' ';
for I := 1 to length(k) do res:=res+buf[strtoint(k[i])];
end;
while pos(' ',res)<>0 do delete(res,pos(' ',res),1);
result:=res;
end;

код расшифровки

function TForm1.Decode(st,k:string):string;
var i,j:integer;
buf:string;
res:string;
begin
res:='';
{ while Length(k)<=Length(st) do }
begin
buf:=Copy(st,1,Length(k));
delete(st,1,Length(k));
{for i := 1 to length(k) do
st:=st+buf[strtoint(k[i])]; }
end;
if trim(st)<>'' then
begin
while length(st)<Length(k) do res:=res+' ';
{for I := 1 to length(st) do } {st:=st+buf[strtoint(k[i])]; }
end;
while pos(' ',st)<>0 do delete(st,pos(' ',st),1);
result:=st;

end;

заранее спасибо