ClassBase64Class
Remonst
DIMSBASE_64_CHARACTERS 'Conversion -Code
Dimlenstring 'berechnet die Länge der Zeichenfolge
Dimicount 'Zähler
DiMReturnValue'Return -Wert
Dimtempar 'Cache -Zeichen
DIMTempString 'Cache -Zeichenfolge
Dimparamstring 'Parameterzeichenfolge
dimtemhex 'cache cache hexadezimal
dimtemplow 'cache niedrig bit
Dimtempphigh 'Cache High -Bit
dimmod3string '
dimmod4string '
dimtempary '
Dimtempbyteone '
dimtempbytetwo '
DimtempByTheRe '
dimtempbytefour '
DimtempsavebitSone '
dimtempsaveBitstwo '
'*******************************************
'Beginnen Sie Initialisierungsklasse
'*******************************************
privateSubclass_initialize ()
sbase_64_characters = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz0123456789+/" Enden
'*******************************************
"Endinitialisierungsklasse"
**************************************************
'*******************************************
'Zerstöre die Klasse
'*******************************************
PrivateSubclass_terminate ()
sbase_64_characters = "" EndensUb
'*******************************************
'Ende zerstören die Klasse
'*******************************************
'*******************************************
'Beginnen Sie Base64 Codierung der ANSI-codierten Zeichenfolge
'*******************************************
publicFunctioncode (Paramstring)
tempstring = ""
returnValue = ""
Lenstring = len (Paramstring)
iFlenString <1Then
COCDE = returnValue
anders
mod3string = lenstringmod3
'Die Anzahl der Ziffern besteht darin, die Berechnung zu erleichtern
IFMOD3String> 0Then
LENTRING = LENTRING+3-MOD3string
Lenstring = Lenstring-3
Endif