classBase64Class
Remconst
رمز تحويل DIMSBASE_64_CHARACTERS
يحسب dimlenstring طول السلسلة
عداد Dimicount
Dimreturnvalue'return قيمة
أحرف ذاكرة التخزين المؤقت DimTempchar
سلسلة ذاكرة التخزين المؤقت DimTempstring
سلسلة المعلمة dimparamstring '
dimtemhex 'ذاكرة التخزين المؤقت
DimTemplow 'ذاكرة التخزين المؤقت منخفضة بت
dimtemphigh 'ذاكرة التخزين المؤقت عالية قليلا
dimmod3string '
dimmod4string '
dimtembbinary '
dimtempbyteone
dimtempbytetwo
dimtempbytethree '
dimtempbytefour
dimtempsavebitsone
dimtempsavebitstwo
'**************************************************
ابدأ فئة التهيئة
'**************************************************
privatesubclass_initialize ()
SBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+/" Endsub
'**************************************************
"فئة تهيئة النهاية"
***************************************************
'**************************************************
ابدأ في تدمير الفصل
'**************************************************
privatesubclass_terminate ()
sbase_64_characters = "" endsub
'**************************************************
"نهاية تدمير الفصل
'**************************************************
'**************************************************
ابدأ في ترميز سلسلة ANSI-ENCODED
'**************************************************
PublicFunctionEncode (ParamString)
TempString = ""
ReturnValue = ""
lenstring = len (paramstring)
iflenstring <1th
encode = returnValue
آخر
mod3string = lenstringMod3
'عدد الأرقام هو تسهيل الحساب
Ifmod3string> 0then
lenstring = lenstring+3-mod3string
Lenstring = Lenstring-3
Endif