Guten Tag erstmal,
ich bin im Begriff eine transparente XOR-Verschlüsselung zu basteln. Das agnze ist eine Ableitung von TStream und damit (meiner Meiung nach) gut zu verwenden. Klappt auch alles so weit, bis auf das der ganze Kram abstürzt, wenn vollgendes aufgerufen wird:
(Bei move gibt es eine Zugriffsverletzung).
Delphi-Quellcode:
var
I: Integer;
s : array of byte;
begin
setlength(s, count+1);
move(Buffer,s, Count);
for I := 0 to Count -1 do
begin
s[i] := s[i] xor (ord(PW[((FStream.Position-Count+I) mod length(PW))+1]));
end;
result := FStream.Write(s, count);
end;
Ich hab erhlich gesagt keine Ahnung, was ich tun soll, bzw. wo das Problem liegt. Verzeicht mir meine Wenige Erfahrung mit Pointern und direktem Speicherzugriff
Danke im Voraus!!