用asp寫個簡單的加密和解密的類，在這個類中簡單的實現了一個加密和解密。目的是和大家分享一下。這個類的破解非常簡單。看看我的注釋就知道是怎么回事了。下次編寫一個java的加密和解密的類。

　　class Base64Class

　　rem Const

　　dim sBASE_64_CHARACTERS轉化碼

　　dim lenString 計算字符串的長度

　　dim iCount 計數器

　　dim returnValue 返回值

　　dim tempChar緩存字符

　　dim tempString緩存字符串

　　dim paramString 參數字符串

　　dim temHex緩存緩存十六進制

　　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=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz09+/endsub

　　********************************************

　　end初始化類

　　********************************************

　　********************************************

　　begin銷毀類

　　********************************************

　　Private Sub Class_Terminate()

　　sBASE_64_CHARACTERS= end sub

　　********************************************

　　end銷毀類

　　********************************************

　　********************************************

　　begin將Ansi編碼的字符串進行Base64編碼

　　********************************************

　　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

　　******************************begin

　　for iCount=1 to lenString step 4

　　tempString = Mid(paramString, iCount, 4)

　　tempByteOne = InStr(sBASE_64_CHARACTERS, Mid(tempString, 1, 1))-1

　　tempByteTwo = InStr(sBASE_64_CHARACTERS, Mid(tempString, 2, 1))-1

　　tempByteThree = InStr(sBASE_64_CHARACTERS, Mid(tempString, 3,1))- 1

　　tempByteFour = InStr(sBASE_64_CHARACTERS, Mid(tempString, 4, 1))-1

　　tempByteOne = Chr(((tempByteTwo And 48) 16) Or (tempByteOne *4)And &HFF) tempByteTwo = & Chr(((tempByteThree And 60)4) Or (tempByteTwo * 16) And &HFF)

　　tempByteThree = Chr((((tempByteThree And 3) * 64) And &HFF)Or(tempByteFour And 63))

　　tempString=tempByteOne & tempByteTwo & tempByteThree

　　returnValue=returnValue & tempString

　　next

　　******************************end

　　處理最后剩余的幾個字符

　　if mod4String > 0 then

　　tempString=center(center(paramString,4),mod4String)

　　returnValue = returnValue & tempString

　　end if

　　Decode=returnValue

　　end if

　　end if

　　end function

　　********************************************

　　end將Base64編碼字符串轉換成Ansi編碼的字符串

　　********************************************

　　作者：CSDN pxjianke