classbase64class
remconst
Kode konversi DIMSBASE_64_CHARACTERS
Dimlenstring 'menghitung panjang string
Counter Dimicount
Nilai DiMreturnValue'Return
Karakter cache dimtempchar
string cache dimtempring '
string parameter DiMParamString '
Dimtemhex 'cache cache hexadecimal
DiMtemplow 'cache rendah bit
DiMtemphigh 'Cache High Bit
dimmod3string '
dimmod4string '
dimtempbinary '
dimtempbyteOne '
dimtempbytetwo '
DIMTEMPBYTETHREE '
DIMTEMPBYTEFOUR '
dimtempsvebitone '
DIMTEMPSAVEBITSTWO '
'********************************************
'Mulailah kelas inisialisasi
'********************************************
privatesubclass_initialize ()
SBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSUVWXYZ0123456789+/" ENDUB
'********************************************
'Akhir Kelas Inisialisasi'
*************************************************
'********************************************
'Mulailah hancurkan kelas
'********************************************
Privatesubclass_terminate ()
sbase_64_characters = "" endsub
'********************************************
'Akhir kelas hancurkan
'********************************************
'********************************************
'Mulai base64 Pengkodean string ansi-enkode
'********************************************
publicFunctionEncode (paramString)
Tempsstring = ""
returnValue = ""
lenstring = len (paramString)
Iflenstring <1then
Encode = returnValue
kalau tidak
mod3string = lenstringmod3
'Jumlah digit adalah untuk memfasilitasi perhitungan
ifmod3string> 0then
Lenstring = Lenstring+3-Mod3String
Lenstring = Lenstring-3
endif