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

velya1337

Король флуда
Дней с нами
2.134
Розыгрыши
4
Сообщения
580
Репутация
11
Реакции
199
Telegram
lamoda_skidon
Помогите создать программу которая шифрует текст шифром гаммирования.
На форме нужно 2 едита и 2 кнопки. В первый эдит вводится текст который в зашифрованном виде выводится во второй эдит при нажатии на кнопку и дешифруется при нажатии на вторую кнопку и выводится в эдит1
 
Там же все просто. На форму компоненты накидать а кода полно в поиске.
Не знаю как тут код выделять...

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

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 - результат
 
работает