OPTION EXPLICIT Const calg3DES=26115 Dim EncryKey, EncryIV, EncryptedString EncryKey="cPSQAC05GBXzMhRRz7tm8cqg+vHdHyN5" EncryIV="jIShBJVBfXo=" EncryptedString="8yN73RDmMFuXo9ux8QKC6w==" 'initialize encryption objects Dim CM, CryptoContext Set CM=Server.CreateObject("Persits.CryptoManager") Set CryptoContext=CM.openContext("",true) 'init key Dim CryptoKey, KeyBlob, IVBlob Set KeyBlob=CM.CreateBlob KeyBlob.Base64=EncryKey Set IVBlob=CM.CreateBlob IVBlob.Base64=EncryIV Set CryptoKey=CryptoContext.ImportRawKey(KeyBlob, calg3DES, true) CryptoKey.SetIV IVBlob Set KeyBlob=Nothing Set IVBlob=Nothing 'dectypt value Dim oTextBlob, DecryptedString Set oTextBlob=CM.CreateBlob oTextBlob.Base64=EncryptedString DecryptedString = CryptoKey.DecryptText(oTextBlob) Set oTextBlob=Nothing Response.Write DecryptedString ' you should get "blueberry" 'clean up Set CryptoKey=Nothing Set CryptoContext=Nothing Set CM=Nothing