求助，支付宝aes解密，一段c#代码转asp代码

[aliang]

data="ft+j7fuddoLtNSZ86TuO/eVkrhuCbhTUSeYiKwIh3nbM44HywhG2radHpfd8U4BEmiyyltT34W9on2oJxOBAx0nIVGEK/AV5vOsBuEaqAgv7d27oUYx/nL7rPfPOJa5WI6e3ceDlKtpiCjYrdmrGZQ4XXTkCZKEmOZJqPpH9nJdYPx16kF6Cx5+PPkE5BudUT0ID6GsRvzUIb/9NOmeeJmEo1dUgkj4GQ2Bgx8rVMtl+b3sIwiki2C/5jupPuTZMly29iF0qwy4/Hl83yJOcGT7zb98nZXf4Q3B6aZbBi1XJO6Gxq4hewOKU7rix0IwkWnE0dAleAx4zf3d5os19IZdzzhWEjpKZ4Pd2vWqR0fM="

key="oGZLywjAdsoBzhqx54piAQ=="

'因为没有设置iv，所以解密出来的是乱码
response.write(aes_des(data))
Function aes_dec(str)
	set aes= CreateObject("System.Security.Cryptography.RijndaelManaged")
	set utf8 = CreateObject("System.Text.UTF8Encoding")
	aes.Mode = 1'1 : cbc , 2 : ecb , 3 : ofb , 4 : cfb , 5 : cts
	aes.Padding = 2	'1 : 不填充 , 2 : pkcs7 , 3 : zero , 4 : ansix923, 5 : ISO10126
	aes.KeySize = 128
	aes.BlockSize = 128

	aes.Key = Base64ToByte(key)
	'aes.key=???? '这里不知道怎么设置
	set dec=aes.CreateDecryptor()

	byted = Base64ToByte(str)
	
	byted=dec.TransformFinalBlock((byted),0,lenb(byted))
	byted = utf8.getString((byted))
	aes_dec = byted
End Function

高手能把下面C#的initIV转成asp(vbs)的代码不？

using System;
using System.Collections.Generic;
using System.Text;
using System.Security.Cryptography;
using System.IO;
namespace Aop.Api.Util
{
    class AlipayEncrypt
    {

        /// <summary>
        /// 128位0向量
        /// </summary>
        private static  byte[] AES_IV = initIv(16);

        /// <summary>
        /// 初始化向量
        /// </summary>
        /// <param name="blockSize"></param>
        /// <returns></returns>
        private static byte[] initIv(int blockSize)
        {
            byte[] iv = new byte[blockSize];
            for (int i = 0; i < blockSize; i++)
            {
                iv[i] = (byte)0x0;
            }
            return iv;

        }
        /// <summary>
        /// AES 加密
        /// </summary>
        /// <param name="encryptKey"></param>
        /// <param name="bizContent"></param>
        /// <param name="charset"></param>
        /// <returns></returns>
        public static string AesEncrypt(string encryptKey, string bizContent,string charset)
        {

            Byte[] keyArray = Convert.FromBase64String(encryptKey);
            Byte[] toEncryptArray = null;

            if (string.IsNullOrEmpty(charset))
            {              
                toEncryptArray = Encoding.UTF8.GetBytes(bizContent);
            }
            else
            {
                toEncryptArray = Encoding.GetEncoding(charset).GetBytes(bizContent);
            }

            System.Security.Cryptography.RijndaelManaged rDel = new System.Security.Cryptography.RijndaelManaged();
            rDel.Key = keyArray;
            rDel.Mode = System.Security.Cryptography.CipherMode.CBC;
            rDel.Padding = System.Security.Cryptography.PaddingMode.PKCS7;
            rDel.IV = AES_IV;

            System.Security.Cryptography.ICryptoTransform cTransform = rDel.CreateEncryptor(rDel.Key, rDel.IV);
            Byte[] resultArray = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length);
          

            return Convert.ToBase64String(resultArray);

        }

        /// <summary>
        /// AES解密
        /// </summary>
        /// <param name="encryptKey"></param>
        /// <param name="bizContent"></param>
        /// <param name="charset"></param>
        /// <returns></returns>
        public static string AesDencrypt(string encryptKey, string bizContent, string charset)
        {
            Byte[] keyArray = Convert.FromBase64String(encryptKey);
            Byte[] toEncryptArray = Convert.FromBase64String(bizContent);

            System.Security.Cryptography.RijndaelManaged rDel = new System.Security.Cryptography.RijndaelManaged();
            rDel.Key = keyArray;
            rDel.Mode = System.Security.Cryptography.CipherMode.CBC;
            rDel.Padding = System.Security.Cryptography.PaddingMode.PKCS7;
            rDel.IV = AES_IV;

            System.Security.Cryptography.ICryptoTransform cTransform = rDel.CreateDecryptor(rDel.Key, rDel.IV);
            Byte[] resultArray = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length);


            if (string.IsNullOrEmpty(charset))
            {
                return Encoding.UTF8.GetString(resultArray);
            }
            else
            {
               return  Encoding.GetEncoding(charset).GetString(resultArray);
            }


        }
    }


}

[aliang]

引用 3 楼 我的大神666 的回复:

Dim AES_IV(15), i 
For i = 0 To 15 
AES_IV(i) = CByte(0) 
Next 

下面代码运行不起来，能帮帮我吗？
<%
data="ft+j7fuddoLtNSZ86TuO/eVkrhuCbhTUSeYiKwIh3nbM44HywhG2radHpfd8U4BEmiyyltT34W9on2oJxOBAx0nIVGEK/AV5vOsBuEaqAgv7d27oUYx/nL7rPfPOJa5WI6e3ceDlKtpiCjYrdmrGZQ4XXTkCZKEmOZJqPpH9nJdYPx16kF6Cx5+PPkE5BudUT0ID6GsRvzUIb/9NOmeeJmEo1dUgkj4GQ2Bgx8rVMtl+b3sIwiki2C/5jupPuTZMly29iF0qwy4/Hl83yJOcGT7zb98nZXf4Q3B6aZbBi1XJO6Gxq4hewOKU7rix0IwkWnE0dAleAx4zf3d5os19IZdzzhWEjpKZ4Pd2vWqR0fM="

key="oGZLywjAdsoBzhqx54piAQ=="

Dim IV(15), i
For i = 0 To 15
IV(i) = CByte(0)
Next

response.Write aes_dec(data)
'解密后：?LD?????7??!?+?"msg":"Insufficient Permissions","subCode":"isv.insufficient-isv-permissions","subMsg":"ISV权限不足，建议在开发者中心检查对应功能是否已经添加，解决办法详见：https:\/\/docs.open.alipay.com\/common\/isverror"}
Function aes_dec(str)
set aes= CreateObject("System.Security.Cryptography.RijndaelManaged")
set utf8 = CreateObject("System.Text.UTF8Encoding")
aes.Mode = 1'1 : cbc , 2 : ecb , 3 : ofb , 4 : cfb , 5 : cts
aes.Padding = 2 '1 : 不填充 , 2 : pkcs7 , 3 : zero , 4 : ansix923, 5 : ISO10126
aes.KeySize = 128
aes.BlockSize = 128

aes.Key = Base64ToByte(key)

'这里不知道怎么设置,因为没有设置iv，所以解密出来的是乱码
'aes.iv=byteArrayToHexString(IV)

set dec=aes.CreateDecryptor()
byted = Base64ToByte(str)
byted=dec.TransformFinalBlock((byted),0,lenb(byted))

aes_dec = utf8.getString((byted))
End Function

Function Base64ToByte(ByVal vCode)
Dim oXML, oNode
Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
Set oNode = oXML.CreateElement("base64")
oNode.dataType = "bin.base64"
oNode.text = vCode
Base64ToByte = oNode.nodeTypedValue
Set oNode = Nothing
Set oXML = Nothing
End Function

Function byteArrayToHexString(a)
Dim r,b,i
r = ""
For i = 0 To UBound(a)
b = Hex( (a(i) And &HF0) / 16) & Hex(a(i) And &HF)
r= r & b
Next
byteArrayToHexString= r
End Function
%>

[aliang]

引用 1 楼 我的大神666 的回复:

    Public AES_IV() As Byte = InitIv()
    Function InitIv()
        ReDim AES_IV(0 To 15)
        For i = 0 To 15
            AES_IV(i) = 0
        Next
        Return AES_IV
    End Function

不行哦，你这个是vb.net的代码吗？
我要用的是vbscript

[货郎大叔]

For i = 0 To 15 AES_IV(i) = CByte(0) Next

[aliang]

别人帮我解决了，asp要用32长度的0，跟c#好像不一样，然后把32个0转换2次 > Hex > Bin就可以正常解密了

[aliang]

Dim IV(15), i
For i = 0 To 15
IV(i) = CByte(0)
Next

直接这样子用也是报错，估计asp里不能直接使用字节数组
aes.iv=IV