classbase64class
remconst
Code de conversion de DimsBase_64_Characters
Dimlensstring 'calcule la longueur de la chaîne
compteur Dimicocount
Valeur de dimereturnvalue'raturn
Caractères de cache de dimtempchar '
DimTempstring 'String de cache
chaîne de paramètre de dimparamstring
dimtemhex 'cache cache hexadécimal
dimtemplow 'cache bit
dimtemphigh 'cache haut bit
dimmod3string '
dimmod4string '
dimtempbinaire '
dimtrempbyteone '
dimtempbytetwo '
dimtempbytethree '
dimtrempbytefour '
dimtempsavebitsone '
dimtempsavebitstwo '
'**************************************************
'Commencez la classe d'initialisation
'**************************************************
PRIVATESUBCLASS_INITIALIZE ()
SBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 + /" ENDSUB
'**************************************************
'fin classe d'initialisation'
***************************************************
'**************************************************
'Commencez à détruire la classe
'**************************************************
PRIVATESUBCLASS_TERMINE ()
SBASE_64_CHARACTERS = "" ENDSUB
'**************************************************
'fin de détruire la classe
'**************************************************
'**************************************************
'Commencez la base64 encoding de chaîne codée ANSI
'**************************************************
PublicFunctionCcode (paramstring)
Tempstring = ""
returnvalue = ""
Lenstring = len (paramstring)
iflensstring <1then
Encoder = returnValue
autre
mod3String = LenstringMod3
'Le nombre de chiffres est de faciliter le calcul
ifmod3String> 0ment
Lenstring = Lenstring + 3-mod3string
Lenstring = Lenstring-3
endire