1.ESCAPE加密与解密（支持中文）

<%
dim str,str2,str3
str = "asp"
str2 = escape(str) '加密
str3 = UnEscape(str2) '解密

Response.Write("原字符："&str& "
")  
Response.Write("加密后：" &str2&"
")
Response.Write("解密后：" &str3&"
")
%>

<%
Function Base64Encode(ByVal Str)
        dim Xml, Stream, Node, Encode
        Set Xml = Server.CreateObject("Msxml2.DOMDocument")
        Set Stream = Server.CreateObject("ADODB.Stream")
        Set Node = Xml.CreateElement("TmpNode")
        Node.DataType = "bin.base64"
        Stream.Charset = "UTF-8"
        Stream.Type = 2 '0 = AdStateClosed/1 = AdStateOpen
        Stream.Open()
        Stream.WriteText(Str)
        Stream.Position = 0
        Stream.Type = 1 '1=adTypeBinary/2=adTypeText
        Node.NodeTypedValue = Stream.Read(-1) '-1 = AdReadAll
        Stream.Close()
        Encode = Replace(Node.Text, Vblf, "")
        Encode = Replace(Encode, Vbcr, "")
        Base64Encode = Replace(Encode,"77u/","") 'base64编码后，比起.net多了77u/
        Set Node = Nothing
        Set Stream = Nothing
        Set Xml = Nothing
End Function

Function Base64Decode(ByVal Str)
        Dim Val
        With Server.CreateObject("Msxml2.DOMDocument").CreateElement("TmpNode")
                .DataType = "bin.base64"
                .Text = Str
                Val = .NodeTypedValue
        End With
        With Server.CreateObject("ADODB.Stream")
                .Type = 1
                .Open
                .Write Val
                .Position = 0
                .Type = 2
                .Charset = "UTF-8"
                Base64Decode = .ReadText(-1)
        End With
End Function

dim str,encode,newline
newline="
"
str= "asp学习"

encode = base64Encode(str)
response.write "加密前为:" & str & newline
response.write "加密后为:" & encode & newline
response.write "解密后为:" & base64Decode(encode) & newline
%>

ASP常用加密算法

ASP常用加密算法<%
Function Hash(HashType, Target)
On Error Resume Next

Dim PlainText

If IsArray(Target) = True Then PlainText = Target(0) Else PlainText = Target End If

With CreateObject("ADODB.Stream")
.Open
.CharSet = "Windows-1252"
.WriteText PlainText
.Position = 0
.CharSet = "UTF-8"
PlainText = .ReadText
.Close
End With

Set UTF8Encoding = CreateObject("System.Text.UTF8Encoding")
Dim PlainTextToBytes, BytesToHashedBytes, HashedBytesToHex

PlainTextToBytes = UTF8Encoding.GetBytes_4(PlainText)

Select Case HashType
Case "md5": Set Cryptography = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider") '< 64 (collisions found)
Case "ripemd160": Set Cryptography = CreateObject("System.Security.Cryptography.RIPEMD160Managed")
Case "sha1": Set Cryptography = CreateObject("System.Security.Cryptography.SHA1Managed") '< 80 (collision found)
Case "sha256": Set Cryptography = CreateObject("System.Security.Cryptography.SHA256Managed")
Case "sha384": Set Cryptography = CreateObject("System.Security.Cryptography.SHA384Managed")
Case "sha512": Set Cryptography = CreateObject("System.Security.Cryptography.SHA512Managed")
Case "md5HMAC": Set Cryptography = CreateObject("System.Security.Cryptography.HMACMD5")
Case "ripemd160HMAC": Set Cryptography = CreateObject("System.Security.Cryptography.HMACRIPEMD160")
Case "sha1HMAC": Set Cryptography = CreateObject("System.Security.Cryptography.HMACSHA1")
Case "sha256HMAC": Set Cryptography = CreateObject("System.Security.Cryptography.HMACSHA256")
Case "sha384HMAC": Set Cryptography = CreateObject("System.Security.Cryptography.HMACSHA384")
Case "sha512HMAC": Set Cryptography = CreateObject("System.Security.Cryptography.HMACSHA512")
End Select

Cryptography.Initialize()

If IsArray(Target) = True Then Cryptography.Key = UTF8Encoding.GetBytes_4(Target(1))

BytesToHashedBytes = Cryptography.ComputeHash_2((PlainTextToBytes))

For x = 1 To LenB(BytesToHashedBytes)
HashedBytesToHex = HashedBytesToHex & Right("0" & Hex(AscB(MidB(BytesToHashedBytes, x, 1))), 2)
Next

If Err.Number <> 0 Then Response.Write(Err.Description) Else Hash = LCase(HashedBytesToHex)

On Error GoTo 0
End Function

Response.Write(Hash("sha256HMAC","baidu.com"))

%>