Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
4. Feb 2010
Base32 > Binär > Hex
also Base32Decode und danach vermutlich BinToHex ... es könnte eventuell noch passieren, daß zwischendurch die Bytereihenfolge gedreht werden muß
PS: Man könnte auch beides in ein einheitliches Binärformat bringen?
( Base32Decode und HexToBin )
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
3. Feb 2010
Nein, die = geben an, wieviele "zusättzlich" reinkodierte Zeichen nicht mit zum Ursprungsstring gehören.
Diese sind nicht dafür da, um die 8er-Gruppen zu bilden.
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
3. Feb 2010
function Base32Decode(source: String): String;
...
begin
result := '';
while length(source) >= 8 do begin
Ein Bug ist erstmal hier, somit kann der Decoder nut mit String umgehen, welche auch Uncodiert nur vielefache von 5 Zeichen ergeben. (also encodiert 8 Zeichen)
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
3. Feb 2010
Hatte auf die Schnelle keinen "kleinen" Decoder gefunden,
aber wenn du eine kleine Version hast, dann könnte man notfalls mal schauen, was nicht geht.
Auch wenn es nicht so aufwändig ist, wäre es dennoch einfacher was Fertiges zu reparieren.
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
2. Feb 2010
Hast du mal soeine nichtfunktionierende Implementation, welche die ansonsten gefällt, zur Hand?
Und Base32 ist nicht gleich Base32 ... gibt da ja unterschiedliche Zeichensätze
z.B.:
A..Z 2..7 =
oder
0..9 A..H K..N P R..Z =