Есть готовая программа шифрования методом Гаммирования.

[CelestianWolf]

Она написана не мной. Поэтому когда препод начал задавать вопросы я запнулся на парочке моментов. Скажите что выполняют
procedure transformation (var s,s1:string);
var i:integer;
res:char;
begin
s1:='';
m:=32;
for i:=1 to length (s) do
begin
if ((ord (s[i])=$A) or (ord (s[i])=$D) ) then
s1:=s1+s[i]
else
begin
res:=code (s[i]);
s1:=s1+res;
end;
end;
end;

можно и в общих чертах

[scorpion091190]

А ты можешь исходник скинуть?