Шифр гаммирования

[velya1337]

Помогите создать программу которая шифрует текст шифром гаммирования.
На форме нужно 2 едита и 2 кнопки. В первый эдит вводится текст который в зашифрованном виде выводится во второй эдит при нажатии на кнопку и дешифруется при нажатии на вторую кнопку и выводится в эдит1

 

[EEvgrafov]

Там же все просто. На форму компоненты накидать а кода полно в поиске.
Не знаю как тут код выделять...

Вот пример из сети.

procedure proc_encr(s_source,s_gamma:String;Var s_rez:String);
Var i,j:Integer;
begin
s_Rez:='';
i:=1;
While i<=Length(s_Source) do
begin
For j:=1 to Length(s_gamma) do
s_rez:=s_rez+chr(ord(s_source[i+j-1]) xor ord(s_gamma[j]));
i:=i+Length(s_gamma);
end;
end;

s_source - что нужно закодировать.
s_gamma - как не странно - гамма.
s_rez - результат

 

[Deathrider]

работает