Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by amigage,
25. Nov 2020
Okay, danke für den Hinweis. Dann werde ich mir einmal die Version 6.0 anschauen.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by amigage,
23. Nov 2020
Leider bräuchte ich hier ein wenig Hilfe.
Das Enkodieren und Umwandeln in Base64 fuktioniert soweit.
procedure TForm1.btnEncodeClick(Sender: TObject);
var
Cipher_Mars : TCipher_mars;
Ciphertext: TBytes;
PlainText : Binary;
strEncoded : TFormat_MIME64;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by amigage,
22. Nov 2020
Vielen Dank für den Tipp, ich werde es mir einmal anschauen.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by amigage,
20. Nov 2020
Vielen Dank für die Vorschläge.
Ich habe weitere Tests durchgeführt und kann sagen, dass es nicht an der Base64DecodeStr() Funktion liegt. Diese gibt bei beiden Versionen (2.0 und 2.1) den gleichen RawByteString zurück.
Es liegt also an den DecryptCFB8Bit() Funktionen der Verschlüsselungsarten, respektive EncryptECB().
Denn hier wurden folgende Änderungen vorgenommen:
In der...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by amigage,
18. Nov 2020
Leider hilft auch der Typecast nicht. Das Programm ruft dann zwar die korrekte Base64 Dekodierung auf. Aber die zurückgegebene Zeichenkette ist nur halb korrekt.
Als Beispiel nehmen wir die Zeichenkette "Ein kleines Beispiel".
Die vor Jahren erstellte base64 Zeichenfolge lautet: wkzVX952oBvST6gg4kFA18IaSGsEjjc=
Will ich diese jetzt wieder mit dem richtigen Passwort dekodieren, erhalte ich...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by amigage,
17. Nov 2020
Danke für die schnelle Antwort.
Hier ist der interface Teil.
uses
{$ifdef NEXTGEN_FIXES}
ORawByteString,
{$endif}
Sysutils;
function Base64EncodeStr(const Value: AnsiString): AnsiString; overload;
{ Encode a string into Base64 format }