Classbase64Class
Remconst
DIMSBASE_64_CHARACTERS 'CODE
DimlenString 'вычисляет длину строки
DIMICOUNT 'Счетчик
dimreturnvalue'tround value
Dimtempchar 'Кэш символов
DimTempString 'Кэш Строка
DimParamString 'String String
DimTemHex 'Cacch Cache Hexadecimal
DimTemplow 'Cache Low Bit
Dimtemphigh 'Cache High Bit
dimmod3string '
Dimmod4string '
Dimtempbinary '
DimtempbyteOne '
dimtempbytetwo '
dimtempbytethree '
Dimtempbytefour '
Dimtempsavebitsone '
dimtempsavebitstwo '
'************************************************
'Начните класс инициализации
'************************************************
privatesubclass_initialize ()
sbase_64_characters = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz0123456789+/" endsub
'************************************************
'Конечный класс инициализации'
*********************************************
'************************************************
'Begin Drouse Class
'************************************************
Privatesubclass_mterminate ()
sbase_64_characters = "" endsub
'************************************************
'End Discount Class
'************************************************
'************************************************
'BEGIN BASE64 Кодирование ANSI-кодированной строки
'************************************************
publicfunctionencode (paramstring)
tempstring = ""
returnValue = ""
Lensstring = Len (Paramstring)
iflenstring <1then
Encode = returnValue
еще
mod3string = lenstringmod3
'Количество цифр состоит в том, чтобы облегчить расчет
ifmod3string> 0then
Лиза = лиза+3-мод3 стр
Лиза = лизами-3
эндиф