Listbox SICHER abspeichern und Laden?

[100nF]

hi leute,

eine listbox kann man ja mit listbox1.items.savetofile abspeichern, nur kann man die datei dann ganz einfach öffnen und abändern. das will ich nicht. ich möchte die listbox irgendwie so abspeichern, dass sie beim nächsten laden GANZ SICHER wieder so angezeigt wird, wie sie gespeichert wurde.

ich hoffe es ist nicht ganz unmöglich...
ich hatte schon die idee, die datei schreibgeschützt zu machen, aber das ist ja auch nicht wirklich sicher...

wüsste vielleicht einer von euch eine andere lösung?

wenn ja, wäre ich sehr dankbar!!

P.S. das gleiche will ich später noch mit einer listview machen, wäre gut wenns auch funktionieren würde. aber zuerst mal zu der listbox...

gruss
urbanbruhin

[Aenogym]

hi,

speicher die items der listbox und verschlüssele die datei danach. vor dem laden einfach wieder entschlüsseln. dass jemand die verschlüsselte datei abändert, ist dann etwas unwahrscheinlicher.

aenogym

[alcaeus]

Hallo urbanbruhin,

dann nimm den umstaendlicheren Weg und speichere die Listbox indirekt ueber eine Collection. In der Codelib gibts auch was dazu: klick. Wenn du dann noch den RC4-Streamdekorierer einbaust, hast du die Datei RC4-Verschluesselt und das wars mit dem aendern ;)

Greetz
alcaeus

[100nF]

hallo,

vielen dank für die antworten :-D

ich werde mir das mal genauer anschauen mit dem verschlüsseln...

MFG
urbanbruhin

[glkgereon]

aber letztendlich kann ich es IMMER ändern.

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

[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 :mrgreen: )

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

[100nF]

ich habe gerade den FileCrypter von luckie heruntergeladen. ich werde morgen mal den source betrachten, vielleicht hilft mir das weiter...

dieser ist schon sicherer als der code vom vorherigen beitrag oder??

bis morgen...