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);
}
}
}
}
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
下面代码运行不起来,能帮帮我吗?
<%
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
%>
你用什么函数报错
错误原因:
1.没有该接口的调用权限2.应用未上线或未添加功能3.接口调用错误
For i = 0 To 15
IV(i) = CByte(0)
Next直接这样子用也是报错,估计asp里不能直接使用字节数组
aes.iv=IV
然后调试输出aes.iv的类型,长度,和内容。
然后你就知道怎么初始化iv了。一般iv不设置的话都填0或者随机iv并把iv值保存起来。
AES_IV(i) = CByte(0)
Next