[fossil]

Нашел процедуру для реализации алгоритма TEA:

Код:

type TLong2=array[0.. 1] of longint;
        TLong2x2=array[0.. 1] of TLong2;
const Delta=$9E3779B9;
var key:TLong2x2;
procedure EnCryptRouting(var data);
var y,z,sum:longint; 
      a:byte;
begin
y:=TLong2(data)[0];
z:=TLong2(data)[1];
sum:=0;
for a:=0 to 31 do
begin
inc(sum,Delta);
inc(y,((z shl 4)+key[0,0]) xor (z+sum) xor ((z shr 5)+key[0,1]));
inc(z,((y shl 4)+key[1,0]) xor (y+sum) xor ((y shr 5)+key[1,1]));
end;
TLong2(data)[0]:=y;
TLong2(data)[1]:=z
end;