Eigenen DateiTypen für mein Programm!

[Corpsman]

Oh je,

soll keine Beleidigung sein, aber du hast mal 0 Ahnung.

Aber weil wir hier alle nett und freundlich sind, und ich auch mal klein angefangen hab will ich dir das ganze mal ausschreiben. Ich empfehle dir aber dringend es auch zu verstehn.

Delphi-Quellcode:

Var f:Tfilestream;
    daten:String;
    i:Integer;
    b:byte;
    Key:Byte;
begin
  f := Tfilestream.create(Dateiname,fmopenwrite or fmcreate);
  f.write(length(daten),sizeof(integer));
  Key := 123; // das ist der Key mit dem du verschlüsselst, im Prinzip egal was, hauptsache du weist es beim laden..
  for i := 1 to length(Daten) do 
    b := ord(Daten[i]);
    b := b xor Key;
    (* 
    // Wenn du es noch ein wenig besser machen willst dann nimmst du diesen Kommentar auch noch mit rein
    // Allerdings must dann beim Decodieren ein wenig aufpassen, also erst mal ohne Testen
    //
    Key := (Key + 15 ) mod 256; // Verändern des Keys damit Gleiche Zeichen im Schlüssel unterschiedlich aussehen
    //*)
    f.write(b,sizeof(b));
  f.free;
end;