VBscript 脚本的编写,提供了dll,且己经可用。脚本需要实现加密功能。

来源:百度知道 编辑:UC知道 时间:2024/09/20 06:45:26
己知:
<%
Dim Str1
Dim Str2
Dim objCryptTest
Set objCryptTest = Server.CreateObject("CRYPTIT.Cryptor")
//调用DLL CRYPTIT的Cryptor
objCryptTest.PassPhrase = "Password 9999999"
//密钥
objCryptTest.StringToCrypt = "Credit Card Number: 1234564378659877"
//待加密的字符串
objCryptTest.DoCrypting

//开始加密
Str1 = objCryptTest.ReturnCrypted

Response.write Str1

Set objCryptTest = Nothing
%>
要求:
完成加密功能函数如下:
Function Encrypt(message)
........//实现加密
End Funciton

Function Encrypt(message)
Dim objCryptTest
Set objCryptTest = Server.CreateObject("CRYPTIT.Cryptor")
//调用DLL CRYPTIT的Cryptor
objCryptTest.PassPhrase = "Password 9999999"
//密钥
objCryptTest.StringToCrypt = message
//待加密的字符串
objCryptTest.DoCrypting

//开始加密
Encrypt = objCryptTest.ReturnCrypted

Set objCryptTest = Nothing
End Funciton