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).

zusammenfalten · markieren

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!!

s ist ein dynamisches Array und somit intern nur ein Pointer. Mit Move greifst du jetzt auf die Stelle zu wo der Pointer ist (4 Bytes und danach irgendwas ungewisses). Wenn du auf die eigentlichen Daten zugreifen willst verwende s[0]

Wow.... Nach 8 Minuten schon ne Antwort... Ich bin fertig... Und sie funktioniert...
Vielen Dank nochmal!!!