data="https://bbs.csdn.net/topics/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);
}
}
}
}
uj5u.com熱心網友回復：
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
uj5u.com熱心網友回復：
不行哦，你這個是vb.net的代碼嗎？
我要用的是vbscript
uj5u.com熱心網友回復：
Dim AES_IV(15), i
For i = 0 To 15
AES_IV(i) = CByte(0)
Next
uj5u.com熱心網友回復：
下面代碼運行不起來，能幫幫我嗎？
<%
data="https://bbs.csdn.net/topics/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
%>
uj5u.com熱心網友回復：
aes.iv=IV你用什么函式報錯
錯誤原因：
1.沒有該介面的呼叫權限
2.應用未上線或未添加功能
3.介面呼叫錯誤
uj5u.com熱心網友回復：
Dim IV(15), iFor i = 0 To 15
IV(i) = CByte(0)
Next
直接這樣子用也是報錯，估計asp里不能直接使用位元組陣列
aes.iv=IV
uj5u.com熱心網友回復：
用aes.GenerateIV()函式生成隨機種子iv，呼叫了此函式，aes.iv就有隨機內容初始化了。
然后除錯輸出aes.iv的型別，長度，和內容。
然后你就知道怎么初始化iv了。一般iv不設定的話都填0或者隨機iv并把iv值保存起來。
uj5u.com熱心網友回復：
For i = 0 To 15AES_IV(i) = CByte(0)
Next
uj5u.com熱心網友回復：
別人幫我解決了，asp要用32長度的0，跟c#好像不一樣，然后把32個0轉換2次 > Hex > Bin就可以正常解密了
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/106058.html
標籤：C#