asp数据库解密

<%@ Language=VBScript %>
<%
    ' 加密函数
    Function EncryptData(data, key)
        Dim encryptor
        Set encryptor = Server.CreateObject("CryptoAPI.Crypt")
        encryptor.Key = key
        encryptor.CipherMode = 1 ' CBC模式
        encryptor.GenerateIV
        Dim encryptedData
        encryptedData = encryptor.Encrypt(data)
        EncryptData = encryptedData
    End Function

    ' 解密函数
    Function DecryptData(encryptedData, key)
        Dim decryptor
        Set decryptor = Server.CreateObject("CryptoAPI.Crypt")
        decryptor.Key = key
        decryptor.CipherMode = 1 ' CBC模式
        decryptor.IV = encryptedData.Substring(0, 8) ' 提取IV
        Dim decryptedData
        decryptedData = decryptor.Decrypt(encryptedData.Substring(8))
        DecryptData = decryptedData
    End Function

    ' 示例数据
    Dim originalData, encryptedData, decryptedData, key
    originalData = "Hello, World!"
    key = "1234567890123456" ' 16字节密钥

    ' 加密数据
    encryptedData = EncryptData(originalData, key)
    Response.Write "Encrypted Data: " & encryptedData & "<br>"

    ' 解密数据
    decryptedData = DecryptData(encryptedData, key)
    Response.Write "Decrypted Data: " & decryptedData & "<br>"
%>