ASP 로 작 성 된 암호 화 및 복호화 클래스

class Base64Class 　　rem Const  　　dim sBASE_64_CHARACTERS'전화 코드  　　dim lenString '문자열 의 길 이 를 계산 합 니 다.  　　dim iCount '카운터  　　dim returnValue '반환 값  　　dim tempChar'캐 시 문자  　　dim tempString'캐 시 문자열  　　dim paramString '매개 변수 문자열  　　dim temHex'캐 시 캐 시 16 진수  　　dim tempLow'캐 시 낮은 비트  　　dim tempHigh'캐 시 높 은 위치  　　dim mod3String'  　　dim mod4String'  　　dim tempBinary'  　　dim tempByteOne'  　　dim tempByteTwo'  　　dim tempByteThree'  　　dim tempByteFour'  　　dim tempSaveBitsOne'  　　dim tempSaveBitsTwo'  '***********************************************'begin 초기 화 클래스  　　'********************************************  　　private sub Class_Initialize()  　　sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub  　　'********************************************  'end 초기 화 클래스 ' 　　********************************************  　　'********************************************  'begin 소각 류  　　'********************************************  　　Private Sub Class_Terminate()  　　sBASE_64_CHARACTERS="" end sub  　　'********************************************  end 소각 류  　　'******************************************** 　　'********************************************  'begin'은 Ansi 인 코딩 문자열 을 Base 64 인 코딩 합 니 다.  　　'********************************************  　　public function Encode(paramString)  　　tempString=""  　　returnValue=""  　　lenString=len(paramString)  　　if lenString<1 then  　　Encode=returnValue  　　else  　　mod3String=lenString mod 3  '자리수 보충 은 계산 하기 편 하도록 하 는 거 예요.  　　if mod3String>0 then  　　lenString=lenString+3-mod3String  　　lenString=lenString-3  　　end if