Die eigentliche Funktion ist doch trivial:
Delphi-Quellcode:
procedure crypt(var data: array of word; datalen: integer);
var
i: integer;
begin
testrandom;
for i:=0 to datalen div 2 do data[i] := data[i] xor nextrand;
end;
Ohne die Funktionen testrandom und nextrand wird Dir das aber wahrscheinlich nicht viel weiterhelfen.
