Цитата:
Сообщение от kargo
Как найти алгоритм xor?
|
А подробней, что именно вы хотите найти? Стандартный алгоритм шифрования в линейке находить не надо, он хорошо известен...
для C4
delphi Код:
var
k: integer;
begin
for k:=size-1 downto 1 do
pck[k]:=pck[k] xor key[k and 7] xor pck[k-1];
if size<>0 then pck[0]:=pck[0] xor key[0];
IncAsInteger(key, 0, size);
end.
для > C4
delphi Код:
var
k: integer;
begin
for k:=size-1 downto 1 do
pck[k]:=pck[k] xor key[k and 15] xor pck[k-1];
if size<>0 then pck[0]:=pck[0] xor key[0];
IncAsInteger(key, 8, size);
end.