Also ich muss mich entschuldigen falls die überschrift nicht informationsreicher ist nur habe ich keine andere überschrift gefunden ,
und ich weiß es gibt schon so einen ähnlichen Theard nur hat dieser mir nicht weiter geholfen

Ich habe folgendes Problem: Ich will für mein Programm einen Eigenen Dateitypen erstellen eine Variable vom Typ String ins Hex umwandeln und das dann in diesen Dateitypen abspeichern also ungefähr sowas:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var YEK : MEINTYP ;
var KEY : String ;
begin
Try
YEK := MEINTYP.Create(X ORT);
KEY := StrToHex('I-ein Key');

YEK.WriteString(KEY);
Finally
YEK.Free
end;
end;

end.

und diese Hex möchte ich dann als Serial benutzen


habt ihr vorschläge ? Ich danke im Vorraus

so wie ich das sehe, suchst du Klassen und/oder Objekte.

versuchs doch mal mit class() oder record als Typ

rollstuhlfahrer

PS: wenn du in eine Datei speichern willst, dann nimm doch einfach ein Record

Der Dateityp an sich ist ja ein schwammiger Begriff.

Die Frage ist was genau du mit deiner Umwandlung in Hex bezwecken willst.

ich würde etwas in der Art

markieren

Delphi-Quellcode:

Var f:Tfilestream;
    daten:String;
    i:Integer;
begin
  f := Tfilestream.create(Dateiname,fmopenwrite or fmcreate);
  f.write(length(daten),sizeof(integer));
  for i := 1 to length(Daten) do
    f.write(daten[i],sizeof(byte));
  f.free;
end;

ausprobieren.

Ich will mit der umwandlung in Hex die sicherheit des Keys erhöhen

ok das schaffst du damit definitiv nicht.

Speichere den Schlüssel selbst verschlüsselt ab.

ICh verschlüssel ihn doch indem ich ihn in Hex umwandle oder nicht???

Nein, damit nicht

den der PC stellt intern sowieso alles in hex dar

Ein Verschl+sseln wäre es wenn du sagen wir mal das ganze mittels xor speicherst

also

markieren

Delphi-Quellcode:

var key,b:Byte;
Daten:String;
begin
key := 123;

Schleife über daten
  b := ord{ oder odd }(Daten[i]);
  f.write(b xor key,sizeof(b));
..

was muss ich bei (Daten[i]); ergänzen????

Schleife über daten ... was muss ich GENAU da machen??? also wirte...... oder was wird da gemacht??

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.

zusammenfalten · markieren

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;

Ok vielen vielen Dank ich habs mir angeschaut und auch einigermaßen verstanden

doch muss der Variable daten nicht i-was zugewiesen werden???