Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
9. Jan 2008
Hallo Hagen,
mit dieser Version funktioniert.
Nun habe ich die "Stringausgabe"-Variante benutzt.
Vielleicht funktionierte die nur nicht...
MfG
xZise
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
8. Jan 2008
Hi Hagen,
weder noch erreichen, dass der WideString dabei bleibt.
MfG
xZise
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
8. Jan 2008
Ich habe doch nie geleugnet, dass bei WideStrings die #0 jedes 2. Byte sind, was ich aber ständig versuche zu zeigen, ist dass am Ende, da zwei Bytes zu viel auftauchen.
Und ich verstehe nicht so richtig, was du mir damit zeigst?
Ich könnte die natürlich in einer Schleife entfernen, oder der Fehler wird direkt eingedämmt.
MfG
xZise
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
8. Jan 2008
Naja, da kommt an sich nur das Verschlüsseln etc. in betracht:
decryptedText := <WideString>; // Eine speicherung in der Variable, damit der Debugger den Inhalt anzeigt
str := EncryptW(<WideString>, <Passwort (WideString)>); // Verschlüsselung (PW + Text sind jetzt Widestrings)
if DecryptW(str, <Passwort (WideString)>, decryptedText) then // Entschlüsslung mit dem Passwort der Zeile drüber,...
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
8. Jan 2008
Hallo Mütze und Hagen,
ich glaube kaum, dass es tatsächlich am debugger liegt, dass er #0 einfügt.
Jap... Aber ich meine, warum sollte er mitten drinne die Anzeige verändern?
Es ist die gleiche Variable vom Typ "WideString", also sollte der Debugger eigentlich selbstständig erkennen, dass es aus Words bzw. WideChars besteht?
Ich meine wenn man sowas macht:
var
myWideString :...
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
8. Jan 2008
Aber wenn ich einen WideString im Debugger beobachte hat es keine #0 im String ?!
Oder ist dieser WideString dann kein Widestring?
MfG
xZise
Ich habe es geradeeben getestet:
TTntEdit (namens e) auf dem Formular, und dann folgende Methode:
procedure TForm1.FormClick(Sender: TObject);
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
7. Jan 2008
Naja ;) Aber ich habe ja nie ein #0 im Widestring?!
MfG
xZise
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
7. Jan 2008
Hallo Hagen ;)
Danke für die kleine Einführung.
Aber es gibt ein kleines Problem:
Und zwar wenn ich mit der WideString-Variante Ver- und wieder entschlüssel:
Ich bekomme zwar den Ursprungstext wieder heraus, aber dieser wird immer wieder durch "#0" aufgeteilt:
decryptedText := <Mein Widestring>
str := EncryptW(decryptedText , WideString(<Mein Password (String)>));
MessageBoxW(0,...
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
6. Jan 2008
Ehm sry wenn ich pushe, aber ich bin etwas verwirrt:
Warum kann ich den ein String nicht binär ver- und wieder entschlüsseln?
Ich mein ein WideString hat eben ein paar "00" zwischen den Zeichen (wenn keine Sonderzeichen verwendet werden).
Und so richtig hat mir das auch nicht geholfen :)
MfG
xZise
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
3. Jan 2008
Also es kann auch binär kodiert sein ;)
BASE64 sagte mir nichts in dem Bezug.
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
1. Jan 2008
Also so funktioniert es leider nicht:
function Encode(const Key: String; const Text: String): String;
var
Salt: Binary;
begin
with TCipher_Rijndael.Create do
try
Mode := cmCBCx;
Salt := RandomBinary(16);
Init(THash_SHA1.KDFx(Key, Salt, Context.KeySize));