Forum: Algorithmen, Datenstrukturen und Klassendesign
by hhcm,
9. Feb 2017
Da muss man erst mal drauf kommen. Danke.
Bei kurzen Base64 Kodierten Strings funktioniert das hervorragend.
Bei größeren irgendwie nicht mehr.
"Ubz6l2+TFt80EWAf6CTr/Xocpgn9UhOhSvlGMqQsML1LxieEE7bWqB5Y6HAwaC0NSA50swrGHxKs/UOGPS1SJA=="
sollte
"KG6PVF3PSMLN6NARMAP6QJHL7V5BZJQJ7VJBHIKK7FDDFJBMGC6UXRRHQQJ3NVVIDZMOQ4BQNAWQ2SAOOSZQVRQ7CKWP2Q4GHUWVEJA="
Forum: Algorithmen, Datenstrukturen und Klassendesign
by hhcm,
9. Feb 2017
tmp := 'DngfhpghKu8=';
aBytes := TBytes(TIdDECoderMime.DecodeBytes(tmp));
result := Base32Encode(aBytes, Length(aBytes));
// Result = '2DS5GALYRLGAC==='
Kommt noch verwirrenderes Zeug bei raus.
Die Byte Implementation ist
Forum: Algorithmen, Datenstrukturen und Klassendesign
by hhcm,
9. Feb 2017
Das mache ich ja. (Sorry vergessen zu erwähnen)
In Java
base32encode(base64decode("DngfhpghKu8=")) = "BZ4B7BUYEEVO6==="
In Delphi
base32encode(TIdDecoderMIME.DecodeString("DngfhpghKu8=")) = "BZ4B6PZ7EEVO6==="
Forum: Algorithmen, Datenstrukturen und Klassendesign
by hhcm,
9. Feb 2017
Schon ausprobiert, gleiches Ergebnis.
Base32 in Delphi selbst finde ich leider ebenfalls nicht.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by hhcm,
9. Feb 2017
Hallo zusammen,
ich stehe gerade ein wenig auf dem Schlauch. In einer JAVA Anwendung wird ein Base64 String in einen Base32 String konvertiert und ich komme in Delphi einfach nicht auf das gleiche Ergebnis.
In JAVA wird "DngfhpghKu8=" zu "BZ4B7BUYEEVO6==="
Diverse Online-Tools zeigen mir das gleiche Ergebnis.
In Delphi komme ich mit Diversen im Netz gefundenen Funktionen nicht mal...