Шифрование данных, проблема с ANSI

[little-joni]

Доброго времени суток. Есть задача зашифровать и расшифровать данные методов Вижинера.
Процедуру для шифровки я сделал, а вот как сделать, чтобы расшифровывалось обратно-не могу понять.

Алфавит-маленькие английские буквы.

Реализацию через таблицу не предлагать-не интересно=)

procedure TForm1.Button1Click(Sender: TObject); \\зашифровка данных
var
sx, sy, ql:string;
k, i, j, m, n, ks, md:integer;
c:char;
begin
sx:=edit1.text;
ql:=edit2.Text;
m:=length(sx);
n:=length(ql);
md:=ord('a')-ord('A')+1;
ks:=ord('A')-1;
j:=1;
for i:=1 to m do
begin
k:=(ord(sx[i])-ks+ord(ql[j])-ks)mod md;
if k=0 then k:=k+md;
k:=k+ks;
c:=chr(k); insert(c, sy, 1);
j:=j+1;
if j>n then j:=1;
end;
edit3.Text:=sy;
end;

procedure TForm1.Button3Click(Sender: TObject); //расшифровка
var
ql, sy, sz, c:string;
k, i, j, m, n, ks, md:integer;
begin
ql:=edit2.text;
sy:=edit3.Text;
m:=length(sy);
n:=length(ql);
md:=ord('a')-ord('A')+1;
ks:=ord('A')-1;
j:=1;
for i:=1 to m do
begin
k:=ord(sy[j])-ord(ql[j]); //не могу понять что должно быть тут:mad:
if k=0 then k:=k+md;
k:=k+ks;
c:=chr(k);insert(c, sz, 1);
j:=j+1;
if j>n then j:=1;
end;
edit4.text:=sz;
end;

[GunSmoker]

Формулы смотри:
http://ru.wikipedia.org/wiki/%D0%A8%...B5%D1%80%D0%B0