Dateien verschlüsselt abspeichern

[Mavarik]

Zitat von gothic_mike:

versuchs mal mit DataFile von hier: http://www.degisy.com/download.php
ganz unten auf der Seite...

Delphi-Quellcode:

  P := pBuf;
  if( FCodeKey <> '' )then
  for I := 0 to BufLen - 1 do
  begin
   P^ := Byte(FCodeKey[1 + ((I - 1) mod Length(FCodeKey))]) xor P^;
   inc(P);
  end;

Ist so irgendwie das gleiche was ich geschrieben hatte.. Nur mit viel Stream overhead für alle Copy/Paste programmierer...

Frank