classbase64class
レムコンスト
dimsbase_64_charactersの変換コード
dimlenString '文字列の長さを計算します
Dimicount 'カウンター
DimreturnValue'Return値
dimtempcharのキャッシュ文字
dimtempstring 'キャッシュ文字列
dimparamstring 'パラメーター文字列
dimtemhex 'キャッシュキャッシュ16進数
Dimtemplow 'キャッシュ低いビット
dimtemphigh 'キャッシュハイビット
dimmod3string '
dimmod4string '
dimtempbinary '
dimtempbyteone '
dimtempbytetwo '
dimtempbytethree」
dimtempbytefour '
dimtempsavebitsone '
dimtempsavebitstwo '
'*****************************************
'初期化クラスを開始します
'*****************************************
privatesubclass_initialize（）
sbase_64_characters = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz0123456789+/" endub
'*****************************************
「初期化クラスの終了」
*************************************************
'*****************************************
'クラスを破壊し始めます
'*****************************************
privatesubclass_terminate（）
sbase_64_characters = "" endub
'*****************************************
'クラスを破壊します
'*****************************************
'*****************************************
'ANSIエンコード文字列のBase64エンコードを開始します
'*****************************************
publicFunctionEncode（Paramstring）
TempString = ""
returnValue = ""
lenstring = len（paramstring）
iflenstring <1then
encode = returnValue
それ以外
mod3string = lenstringmod3
「数字の数は、計算を容易にすることです
ifmod3string> 0then
lenstring = lenstring+3-mod3string
lenstring = lenstring-3
endif