[malekskv]

Сообщение от Konrad

RC4.

От NSА не спасет, а вот от обычных пользователей вполне.

П.С.: описание и пример кода см. на педивикии.

На делфи где-то так: (ели память не подводит )

Код:

for i:= 0 to 255
begin
  S[i]:= i;
end;

j:= 0;
for i:= 0 to 255
begin
j:= (j + S[i] + ord(Key[i mod L])) mod 256; 
t:=S[i];
S[i]:=S[j];
S[j]:=t;
end;

j:= 0;
for i:=0 to N do
begin
i:= (i + 1) mod 256;
j = (j + S[i]) mod 256;
t:=S[i];
S[i]:=S[j];
S[j]:=t;
K= S[(S[i] + S[j]) mod 256];

C[i]:=ord(P[i]) xor ord(K);
end;

Key - ключ + ВИ(очень важный параметр, по сути от него будет зависить криптостойкость);
Р[i] - i-й символ открытого текста.
С[i] - i-й знак шифртекста.

Будем разбираться) спасибо