сайт, с новой версией программы по шифрованию, на моих алгоритмах: http://ykolchurin.narod.ru/

Вот исходники:

function Gpsch_u(n1,n2:longint):longint;
begin
 if n2=0 then inc(n2);
 gpsch_u:=(9*n1+7) mod n2;
end;

function Shifr_u(q,w:shortstring):shortstring;
var k1,k2,k3,k4:longint;
begin
 if (w='')or(q='') then
   begin shifr_u:=q;exit;end;
 k2:=length(w);k4:=length(q);k3:=1;
 for k1:=1 to k4 do
     begin
      q[k1]:=char(ord(q[k1])+ord(w[k3]));
      w[k3]:=Gpsch_u(w[k3],255);
      inc(k3); if k3>k2 then k3:=1;
     end;
 k3:=((k2*(k2+1)) div 2);
 for k1:=1 to k2 do
   k3:=k3+ord(w[k1]);
 k3:=Gpsch_u(k3,255)+Gpsch_u(k3,256);
 for k1:=1 to k4 do
   q[k1]:=char(ord(q[k1])+k3);
 shifr_u:=q;
end;

function NShifr_u(q,w:shortstring):shortstring;
var k1,k2,k3,k4:longint;
begin
 if (w='')or(q='') then
   begin nshifr_u:=q;exit;end;
 k2:=length(w);k4:=length(q);k3:=1;
 for k1:=1 to k4 do
     begin
      q[k1]:=char(ord(q[k1])-ord(w[k3]));
      w[k3]:=Gpsch_u(w[k3],255);
      inc(k3); if k3>k2 then k3:=1;
     end;
 k3:=((k2*(k2+1)) div 2);
 for k1:=1 to k2 do
   k3:=k3+ord(w[k1]);
 k3:=Gpsch_u(k3,255)+Gpsch_u(k3,256);
 for k1:=1 to k4 do
   q[k1]:=char(ord(q[k1])-k3);
 nshifr_u:=q;
end;