Ja das geht auch, dann aber so
Delphi-Quellcode:
procedure CryptBuffer(var Buffer; Count: Integer; Key: Cardinal);
var
I: Integer;
begin
RandSeed := Key;
for I := 0 to Count -1 do
TByteArray(Buffer)[I] := TByteArray(Buffer)[I] xor Random(256);
end;
Wie gesagt: es ist unsicher, weil Random() selber als Schlüsselstrom unsicher ist, und weil RandSeed := Key == Cardinal == 2^32 viel zu wenig resitent gegen Brute Force Angriffe ist.
Gruß Hagen