ASP服务器端加密组件 1.01

安装方法：
　　下载后，在服务器上注册此组件：regsvc32 Encryptv1.dll 或运行run.bat文件进行注册。
开发语言：
　　C/C++
  
Security对象：
(一)创建对象
　　set enObj = server.CreateObject("Hnusoft.Security")
(二)属性：
1、Skey
　　加密时所设置的Key。
2、EncryptText
　　加密后的密文。加密时，EncryptText作为输出，解密时EncryptText作为输入。
3、DestText
　　解密后的明文。加密时DestText作为输入，解密时DestText作为输出。
4、Version
　　得到组件的版本号。
5、About
　　关于我们。
  
(三)方法
1、setDestText
　　句法： enObj.setDestText(strDest), 其中strDest是要加密的明文。
2、getDestText
　　句法：enObj.getDestText(), 得到解密后的明文。
3、setSkey
　　句法：enObj.setSkey(strKey)，其中，strKey为要设置的加密、解密时的Key。
4、getSkey
　　句法：enObj.getSkey()，得到加密、解密时的Key。
5、setEncryptText
　　句法：enObj.setEncryptText(strEncyprt)，其中，strEncrypt为要解密的密文。
6、getEncryptText
　　句法：enObj.getEncryptText(),得到加密后的密文。
7、Encrypt
　　句法：enObj.Encrypt(),加密操作，并且返回加密后的字符串。
8、Decrypt
　　句法：enObj.Decrypt(),解密操作，并且返回解密后的字符串。
9、EncryptByDestAndKey
　　句法：enObj.EncryptByDestAndKey(strDest, strKey),加密操作，其中：strDest为要加密的字符串，strKey为加密Key。
10、EncryptByDest
　　句法：enObj.EncryptByDest(strDest), 加密操作，其中：strDest为要加密的字符串。
11、EncryptByKey
　　句法：enObj.EncryptByKey(strKey),加密操作，其中：strKey为加密的Key。
12、DecryptByKey
　　句法：enObj.DecryptByKey(strKey),解密操作，其中：strKey为要解密的key。
13、DecryptByEn
　　句法：enObj.DecryptByEn(strEnstr),解密操作，其中：srrEnstr为解密的字符串。
14、DecryptByEncryptAndKey
　　句法：enObj.DecryptByEncryptAndKey(strEnstr, strKey),解密操作，其中：strEnstr为要解密的字符串，strKey为解密所用的Key。
  
  
(四)加密范例
范例一：
<%
dim str,s
'创建对象
set obj = Server.CreateObject("Hnusoft.Security")
'加密部分
obj.sKey = "myprikey"
obj.DestText = "hnusofttest"
s = obj.Encrypt()
response.write(s)
'解密部分
obj.EncryptText = "ade1167379883e7405e6c9e2f6e2388533fd87151f4a3fef54773fe8fa8916916c1d6aa4e559f8fe"
obj.sKey = "myprikey"
str = obj.Decrypt()
response.write(str)
%>
输出结果：
ade1167379883e7405e6c9e2f6e2388533fd87151f4a3fef54773fe8fa8916916c1d6aa4e559f8fe
hnusofttest

范例二：
<%
dim str,s
'创建对象
set obj = Server.CreateObject("Hnusoft.Security")
'加密部分
obj.setSkey("myprikey")
obj.setDestText("hnusofttest")
s = obj.Encrypt()
response.write(s)
response.write("<br>")
'解密部分
obj.setEncryptText("ade1167379883e7405e6c9e2f6e2388533fd87151f4a3fef54773fe8fa8916916c1d6aa4e559f8fe")
obj.setSkey("myprikey")
str = obj.Decrypt()
response.write(str)
%>
输出结果：
ade1167379883e7405e6c9e2f6e2388533fd87151f4a3fef54773fe8fa8916916c1d6aa4e559f8fe
hnusofttest  
范例三：
<%
dim str,s
'创建对象
set obj = Server.CreateObject("Hnusoft.Security")
'加密部分
s = obj.EncryptByDestAndKey("desttest", "mykey")
response.write(s)
response.write("<br>")
'解密部分
obj.DecryptByEncryptAndKey "9a656df04e28a98c08e1742ac59049576f7855bb714454b7e786703481eed9afc94beceaaf0447fc" ,"mykey"
str = obj.Decrypt()
response.write(str)
%>
输出结果：
9a656df04e28a98c08e1742ac59049576f7855bb714454b7e786703481eed9afc94beceaaf0447fc
desttest