asp-classic - 如何使用 AES 在 VBScript 中加密？

Question

我希望使用 Rijndael/AES 加密一些数据在 VBScript使用特定的 key 和 IV值(value)。是否有任何好的函数库或 COM 组件可以很好地使用？

我看了CAPICOM ;它只允许密码短语，不允许设置特定的 key 和 IV 值。

Answer 1

一种方法是在 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
'-----------------------------------------------------