Цитата:
|
Сообщение от malekskv
Желательно, самый простой.
|
RC4.
От NSА не спасет, а вот от обычных пользователей вполне.
П.С.: описание и пример кода см. на педивикии.
На делфи где-то так: (ели память не подводит
)
Код:
for i:= 0 to 255 do
begin
S[i]:= i;
end;
j:= 0;
for i:= 0 to 255 do
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;
i:=0;
for m:=1 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[m]:=ord(P[m]) xor ord(K);
end;
Key - ключ + ВИ(очень важный параметр, по сути от него будет зависить криптостойкость);
Р[m] - m-й символ открытого текста.
С[m] - m-й знак шифртекста.
N- длина сообщения.
S: само собой понятно array of byte;