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);
            }
        }
    }
}

解决方案 »

  1.   

        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
      

  2.   


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

  3.   

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

  4.   


    下面代码运行不起来,能帮帮我吗?
    <%
    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)
    Nextresponse.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 FunctionFunction 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
    %>
      

  5.   

    aes.iv=IV
    你用什么函数报错
    错误原因:
    1.没有该接口的调用权限2.应用未上线或未添加功能3.接口调用错误
      

  6.   

    Dim IV(15), i
    For i = 0 To 15
    IV(i) = CByte(0)
    Next直接这样子用也是报错,估计asp里不能直接使用字节数组
    aes.iv=IV
      

  7.   

    用aes.GenerateIV()函数生成随机种子iv,调用了此函数,aes.iv就有随机内容初始化了。
    然后调试输出aes.iv的类型,长度,和内容。
    然后你就知道怎么初始化iv了。一般iv不设置的话都填0或者随机iv并把iv值保存起来。
      

  8.   

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

  9.   

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