我希望使用 Rijndael/AES 加密一些数据在 VBScript使用特定的 key 和 IV值(value)。是否有任何好的函数库或 COM 组件可以很好地使用？
我看了CAPICOM ;它只允许密码短语，不允许设置特定的 key 和 IV 值。
最佳答案
一种方法是在 vbscript 中声明加密类，而不需要外部添加的 COM 对象或包装器。以下示例采用字符串，使用 Rijndael 托管类进行加密和解密:
'-----------------------------------------------------
Dim obj,arr,i,r,str,enc,asc
dim bytes,bytesd,s,sc,sd
set obj=WScript.CreateObject("System.Security.Cryptography.RijndaelManaged")
Set asc = CreateObject("System.Text.UTF8Encoding")
s="This is a private message"
bytes=asc.GetBytes_4(s)
obj.GenerateKey()
obj.GenerateIV()
set enc=obj.CreateEncryptor()
set dec=obj.CreateDecryptor()
bytec=enc.TransformFinalBlock((bytes),0,lenb(bytes))
sc=asc.GetString((bytec))
msgbox sc
byted=dec.TransformFinalBlock((bytec),0,lenb(bytec))
sd=asc.GetString((byted))
msgbox sd
'-----------------------------------------------------
关于asp-classic - 如何使用 AES 在 VBScript 中加密？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/270510/