Naja, da kommt an sich nur das Verschlüsseln etc. in betracht:
Delphi-Quellcode:
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, also identisch
begin
fs.
Write(Pointer(str)^, Length(str));
// Speicherung des Strings
end;
1. Abfrage in der ersten Zeile und die zweite Abfrage nachdem er die 3. Zeile durchlaufen ist.
MfG
xZise
[edit=1]Interessant ist, dass die Entschlüsselung als Result dennoch true zurückgibt, obwohl sie eigentlich false ergeben sollte (oder?)[/edit]