Forum: Algorithmen, Datenstrukturen und Klassendesign
by Kytrix,
26. Aug 2012
ok sry habs selbst gefunden musste das data set mit
dataset.SaveToFile(ExtractFilePath(ParamStr(0))+'DB2.xml',dfbinary);
als Binary speichern
danke trotzdem =) !
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Kytrix,
26. Aug 2012
Ich nutze XE2 wie behebe ich den jetzt das problem ? ich weiß nicht wo ich ansetzen soll
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Kytrix,
25. Aug 2012
es wird immer die hälfte der länge des verschlüsselten und strings richtig entschllüsselt
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Kytrix,
25. Aug 2012
function HexStringToStr(s : string):string;
begin
if s = '' then
Result := ''
else
begin
if Odd(length(s)) then
s := '0'+s;
SetLength(Result, Length(s) div 2);
HexToBin(Pchar(s), PChar(Result), Length(Result));
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Kytrix,
25. Aug 2012
Es handelt sich bei dem "Text" der verschlüsselt wird und dann verschlüsselt abgespeichert wird um einen einzigen String abgesehen davon und um auf die eigentliche frage zu antworten: nein kann ich nicht bzw. wie soll ich das sicherstellen ?
schonmal ein danke im voraus =)
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Kytrix,
25. Aug 2012
Hallo ich verschlüssele einen String den ich dann in eine TStringList schreibe welche wiederum als datei gespeichert wird. Wennn ich nun aus dieser datei wieder entschlüsseln möchte so bekomme ich nicht das richtige ergebnis.
An der ver-/entschlüsselung kann es nicht liegen, denn:
Test:='hallo';
temp.Add(Encrypt(Test,w)); //temp=Tstringlist;
test:= Encrypt(Test,w);
...