Delphi-Quellcode:
procedure CryptStream(Stream: TStream; Key: Cardinal);
var
Buffer: array[0..511] of Byte;
Bytes,I,Position: Integer;
begin
RandSeed := Key;
Position := Stream.Position;
repeat
Bytes := Stream.Read(Buffer, SizeOf(Buffer));
for I := 0 to Bytes -1 do
Buffer[I] := Buffer[I] xor Random(256);
Stream.Position := Position;
Stream.Write(Buffer, Bytes);
Inc(Position, Bytes);
until Bytes = 0;
end;
Das ist definitiv eine einfache Verschlüsselung die fast genauso unsicher ist wie überhaupt nicht zu verschlüsseln. Aber das ist was du wolltest.
Gruß Hagen