可逆加密组件



====================== 使用方法 ============================================



Dim objEncrypt

Set objEncrypt = Server.CreateObject(\"myEncrypt.clsEncrypt\")



Dim strReturn　　 加密后文本

Dim strValue 　　 加密前文本



加密开始

设置密钥(此行可以省略)

objEncrypt.KeyCode=\"1111\"

开始加密

strReturn = objEncrypt.Encrypt(strValue)



解密

设置密钥(如果加密时没有设置，此行可以省略)

objEncrypt.KeyCode=\"1111\"

开始解密

strReturn = objEncrypt.UnEncrypt(strValue)



注意：

strReturn可能返回以下值

-3 : 密钥长度超过10

-2 : 表示文本设置了密钥，但是解密时没有指定密钥

-1 : 表示文本设置了密钥，但是解密时指定的密钥与原先设置的密钥不一样





注意：密钥需要小于10个字符且必须为键盘上的字符，否则可能导致无法正确解密-reversible encryption components use ==== ====================== ======================================== Dim objEncrypt Set objEncrypt = Server.Create Object ( "myEncrypt.clsEncrypt") Dim strRetu rn encrypted text Dim strValue encrypted text before start providing encryption key (this trip can be omitted) o bjEncrypt.KeyCode = "1111" began encryption strReturn = ob jEncrypt.Encrypt (strValue) decryption keys set (if no encryption settings this trip can be omitted) objEncrypt.KeyCode = "1111" began declassified strR eturn = objEncrypt.UnEncrypt (strValue) Note : strReturn may return the following values -3 : Key length exceeding 10 -2 : To set up a key text, But when no specific decryption key -1 : To set up a key text, However, when the decryption keys with t