Quote:
> Does anyone know where I can find the algorythm for base64
> encoding/decoding?
That would waste two bits of "bandwidth" from every byte - unless you
collapsed your data across byte boundaries.
Here goes:
MaxDigit = how ever many digits you want to allow (for example the
internal storage for an integer is a two digit base 256 number, Longs are
stored internally as four digit base 256 numbers)
Number = the number you want to convert (presumably it is decimal)
Base = 64
Function ConvertToBase$(Base, ByVal Number)
Dim NewNum$, Counter, DigitVal
CONST MaxDigit = 10 '(whatever you want, however keep overflows in mind)
NewNum$ = String$(MaxDigit, 0)
For Z = MaxDigit - 1 to 0 Step -1
Counter = 0
DigitVal = Base^Z
Do While Number => DigitVal
Number = Number - DigitVal
Counter = Counter + 1
Loop
Mid$(NewNum$, MaxDigit - Z, 1) = Chr$(Counter)
Next
' Number should = 0 at this point
' NewNum$ now contains your base x number
ConvertToBase$ = NewNum$
End Function
This routine uses the ASCII codes to represent the ordinal values 0 - 255.
-chris
Base64 algorythm?