classbase64class
remconst
Dimsbase_64_characters의 변환 코드
DimlenString '은 문자열의 길이를 계산합니다
Dimicount '카운터
DimreturnValue'return 값
DimTempChar '캐시 문자
dimtempstring '캐시 문자열
DimparamString '매개 변수 문자열
DimtemHex '캐시 캐시 육각형
DimtemPlow '캐시 낮은 비트
Dimtemphigh '캐시 높은 비트
Dimmod3string '
Dimmod4string '
dimtempbinary '
DimtempByteone '
DimtempBytetwo '
DimtempBytethree '
DimtempBytefour '
dimtempsavebitsone '
dimtempsavebitstwo '
'********************************************************
'초기화 클래스를 시작하십시오
'********************************************************
privatesubclass_initialize ()
sbase_64_characters = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz0123456789+/"endub
'********************************************************
'종료 초기화 클래스'
*************************************************
'********************************************************
'수업을 파괴하십시오
'********************************************************
privatesubclass_terminate ()
sbase_64_characters = ""EndSub
'********************************************************
'끝을 파괴하십시오
'********************************************************
'********************************************************
'Ansi-Encoded String의 인코딩을 시작하십시오
'********************************************************
PublicFunctionEncode (Paramstring)
tempstring = ""
returnValue = ""
lenstring = len (paramstring)
iflenstring <1then
encode = returnValue입니다
또 다른
mod3string = lenstringmod3
'숫자 수는 계산을 용이하게하는 것입니다
ifmod3string> 0then
LenString = lenstring+3-mod3string
Lenstring = Lenstring-3
endif