Listbox SICHER abspeichern und Laden?

[100nF]

hi, ich habe da mal diesen code gefunden:

Delphi-Quellcode:

function XORCrypt(Password,InputFilePath,OutputFilePath:String):Boolean; 
var aktChar: Integer; 
   InputFile, OutputFile: File of Byte; 
   Buffer:Byte; 
begin 
  Result := False; 

  try 
    aktChar := 1; 

    AssignFile(InputFile,InputFilePath); 
    Reset(InputFile); 

    AssignFile(OutputFile,OutputFilePath); 
    Rewrite(OutputFile); 

    while not Eof(InputFile) do 
    begin 
      if(aktChar > Length(Password)) then aktChar := 1; 
      Read(InputFile,Buffer); 
      Buffer := Buffer xor ord(Password[aktChar]); 
      Write(OutputFile,Buffer); 
      Inc(aktChar); 
      Application.ProcessMessages; 
    end; 
  finally 
    CloseFile(InputFile); 
    CloseFile(OutputFile); 

    Result := True; 
  end; 
end;

leider steht da etwas, dass es nicht besonders sicher ist...was sagt ihr dazu?
nun, es sollte eigentlich schon ziemlich sicher sein, da es vorallem um passwörter geht, die ich verschlüsseln will.

Zitat:

meistens wird bei verschlüsselten daten dann zwar schwachfug rauskommen, aber etwas wirklich vor schreibzugriffen zu schützen ist imho unmöglich...sofern es einer wirklich will

vor schreibzugriffen schützen muss ich ja nicht mehr, wenn die dateien verschlüsselt sind...und ich denke nicht dass irgendwer in einem verschlüsselten text "herumsabotiert"(hoffe ich )

[edit:] ich habe nich den link gefunden zim obigen source: klick mich!