求助，用vb.net做aes加密器的问题-CSDN论坛

求助，用vb.net做aes加密器的问题

.NET技术 > VB.NET

收藏回复

[问题点数：40分，结帖人bz0615]

⋅vb.net AES CBC加密模式问题 ⋅RSA算法用toxmlstring生成的密钥对能加密不能解密 ⋅求助,vb.net使用RSA加密问题 更多帖子 关注私信空间博客 bz0615 等级 本版专家分：0 结帖率 83.33%

我在做文本加解密功能，加密还好，几句话就完事了，可是解密时输入文本我不会转换成byte()。所以现在程序阶段处于只能加密不能解密。。放上网上的源码（自己无关紧要的改了几句），我希望可以对string进行解密

    Private Function Encrypt(ByVal plainText As String, ByVal key As String) As String



        Dim AES As New RijndaelManaged()



        Dim MD5 As New MD5CryptoServiceProvider()



        Dim plainTextData As Byte() = Encoding.Unicode.GetBytes(plainText)



        Dim keyData As Byte() = MD5.ComputeHash(Encoding.UTF8.GetBytes(key))



        Dim IVData As Byte() = MD5.ComputeHash(Encoding.UTF8.GetBytes("Alex Lee"))



        AES.Key = keyData

        AES.Mode = CipherMode.CFB

        AES.Padding = PaddingMode.Zeros

        Dim transform As ICryptoTransform = AES.CreateEncryptor()



        Dim outputData As Byte() = transform.TransformFinalBlock(plainTextData, 0, plainTextData.Length)

        Encrypt = Convert.ToBase64String(outputData)



    End Function



    '解密

    Private Function Decrypt(ByVal cipherTextData As Byte(), ByVal key As String) As String



        Dim AES As New RijndaelManaged()



        Dim MD5 As New MD5CryptoServiceProvider()



        Dim keyData As Byte() = MD5.ComputeHash(Encoding.UTF8.GetBytes(key))



        Dim IVData As Byte() = MD5.ComputeHash(Encoding.UTF8.GetBytes("Alex Lee"))



        AES.Key = keyData

        AES.Mode = CipherMode.CFB



        AES.Padding = PaddingMode.Zeros



        Dim transform As ICryptoTransform = AES.CreateDecryptor()



        Dim outputData As Byte() = transform.TransformFinalBlock(cipherTextData, 0, cipherTextData.Length)



        Decrypt = Encoding.UTF8.GetString(outputData)



    End Function

2013-08-27 19:29:56

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅用户 namedajipai 在问答区恶意刷贴 ⋅服务器时间不准！ ⋅[BUG报告](IE8)论坛页头多出多余显示 更多帖子 关注私信空间博客 Tiger_Zhao 等级 本版专家分：13698 勋章 红花 2017年3月 VB大版内专家分月排行榜第一 2016年12月 VB大版内专家分月排行榜第一 2016年5月 VB大版内专家分月排行榜第一 2016年1月 VB大版内专家分月排行榜第一 2015年12月 VB大版内专家分月排行榜第一 2015年11月 VB大版内专家分月排行榜第一 2015年10月 MS-SQL Server大版内专家分月排行榜第一 2015年9月 VB大版内专家分月排行榜第一 2015年9月 MS-SQL Server大版内专家分月排行榜第一 2015年8月 VB大版内专家分月排行榜第一 2015年8月 MS-SQL Server大版内专家分月排行榜第一 2015年7月 VB大版内专家分月排行榜第一 2015年7月 MS-SQL Server大版内专家分月排行榜第一 2015年6月 VB大版内专家分月排行榜第一 2015年5月 VB大版内专家分月排行榜第一 2015年4月 VB大版内专家分月排行榜第一 2015年3月 VB大版内专家分月排行榜第一 2015年2月 VB大版内专家分月排行榜第一 2014年11月 VB大版内专家分月排行榜第一 2014年9月 VB大版内专家分月排行榜第一 2014年8月 VB大版内专家分月排行榜第一 2014年7月 VB大版内专家分月排行榜第一 2013年7月 VB大版内专家分月排行榜第一 2013年4月 VB大版内专家分月排行榜第一 2010年2月 VB大版内专家分月排行榜第一 2010年1月 VB大版内专家分月排行榜第一 2009年11月 VB大版内专家分月排行榜第一 2009年9月 VB大版内专家分月排行榜第一 2009年8月 VB大版内专家分月排行榜第一 2009年7月 VB大版内专家分月排行榜第一 2009年4月 VB大版内专家分月排行榜第一 2009年3月 VB大版内专家分月排行榜第一 2009年2月 VB大版内专家分月排行榜第一 2009年1月 VB大版内专家分月排行榜第一 2008年6月 VB大版内专家分月排行榜第一 2007年12月 VB大版内专家分月排行榜第一 2007年10月 VB大版内专家分月排行榜第一 2007年9月 VB大版内专家分月排行榜第一 黄花 2016年11月 VB大版内专家分月排行榜第二 2016年1月 MS-SQL Server大版内专家分月排行榜第二 2015年12月 MS-SQL Server大版内专家分月排行榜第二 2015年11月 MS-SQL Server大版内专家分月排行榜第二 2015年5月 MS-SQL Server大版内专家分月排行榜第二 2015年4月 MS-SQL Server大版内专家分月排行榜第二 2015年1月 VB大版内专家分月排行榜第二 2015年1月 MS-SQL Server大版内专家分月排行榜第二 2014年12月 VB大版内专家分月排行榜第二 2014年11月 MS-SQL Server大版内专家分月排行榜第二 2014年9月 MS-SQL Server大版内专家分月排行榜第二 2013年8月 VB大版内专家分月排行榜第二 2013年6月 VB大版内专家分月排行榜第二 2013年5月 VB大版内专家分月排行榜第二 2010年4月 VB大版内专家分月排行榜第二 2010年3月 VB大版内专家分月排行榜第二 2008年12月 VB大版内专家分月排行榜第二 2008年8月 VB大版内专家分月排行榜第二 2008年7月 VB大版内专家分月排行榜第二 2007年11月 VB大版内专家分月排行榜第二 蓝花 2017年1月 MS-SQL Server大版内专家分月排行榜第三 2015年6月 MS-SQL Server大版内专家分月排行榜第三 2015年3月 MS-SQL Server大版内专家分月排行榜第三 2015年2月 MS-SQL Server大版内专家分月排行榜第三 2014年12月 MS-SQL Server大版内专家分月排行榜第三 2014年10月 VB大版内专家分月排行榜第三 2014年10月 MS-SQL Server大版内专家分月排行榜第三 2014年8月 MS-SQL Server大版内专家分月排行榜第三 2013年9月 VB大版内专家分月排行榜第三 2013年3月 VB大版内专家分月排行榜第三 2012年5月 VB大版内专家分月排行榜第三 2012年4月 VB大版内专家分月排行榜第三 2010年10月 VB大版内专家分月排行榜第三 2010年8月 VB大版内专家分月排行榜第三 2010年7月 VB大版内专家分月排行榜第三 2009年5月 VB大版内专家分月排行榜第三 2008年9月 VB大版内专家分月排行榜第三 2008年4月 VB大版内专家分月排行榜第三 2008年2月 VB大版内专家分月排行榜第三: 用 Convert.FromBase64String() 方法

2013-08-28 09:46:09

点赞只看TA 引用举报 #1得分 40

⋅由于系统缓冲区空间不足或队列已满，不能执行套接字上的操作 ⋅由于系统缓冲区空间不足或队列已满，不能执行套接字上的操作 ⋅如何定义或者修改DataColumn列的默认小数位数 更多帖子 关注私信空间博客 allanli 等级 本版专家分：9503

贴一个我的解密方法



    Public Shared Function DESDecrypt(ByVal strSource As String, Optional ByVal strPassWordKey As String = Nothing) As String



        '解密字符串



        Try

            Dim des As New DESCryptoServiceProvider

            '把字符串放入byte数组  

            Dim len As Integer = strSource.Length / 2 - 1

            Dim inputByteArray(len) As Byte

            Dim x, i As Integer



            If strPassWordKey = Nothing Then

                strPassWordKey = LoginPassWordKey.Substring(0, 8)

            ElseIf strPassWordKey.Length <> 8 Then

                strPassWordKey = (strPassWordKey & LoginPassWordKey).Substring(0, 8)

            End If

            For x = 0 To len

                i = Convert.ToInt32(strSource.Substring(x * 2, 2), 16)

                inputByteArray(x) = CType(i, Byte)

            Next

            '建立加密对象的密钥和偏移量，此值重要，不能修改

            des.Key = ASCIIEncoding.ASCII.GetBytes(strPassWordKey)

            des.IV = ASCIIEncoding.ASCII.GetBytes(strPassWordKey)

            Dim ms As New System.IO.MemoryStream

            Dim cs As New CryptoStream(ms, des.CreateDecryptor, CryptoStreamMode.Write)

            cs.Write(inputByteArray, 0, inputByteArray.Length)

            cs.FlushFinalBlock()



            Return Encoding.Default.GetString(ms.ToArray)



        Catch ex As Exception

            Return strSource

        End Try

    End Function

2013-08-28 10:06:01

点赞只看TA 引用举报 #2得分 0

⋅此用户还没有发表过任何帖子 关注私信空间博客 jack81329 等级 本版专家分：5: 学习来的

2013-08-28 15:20:53

点赞只看TA 引用举报 #3得分 0

⋅vb.net AES CBC加密模式问题 ⋅RSA算法用toxmlstring生成的密钥对能加密不能解密 ⋅求助,vb.net使用RSA加密问题 更多帖子 关注私信空间博客 bz0615 等级 本版专家分：0: 2楼大神，string转byte正确工作了，可是还是不能解密出正确结果，这是为什么呢？

2013-08-28 17:07:55

点赞只看TA 引用举报 #4得分 0

⋅VB6或者VB.NET 2005按失效日期自动发邮件提示,高手请指教下 ⋅公司outlook邮件有丢失，这是什么问题? ⋅VB转VB.NET 2005问题，大家进来研究下 更多帖子 关注私信空间博客 hurtsobad 等级 本版专家分：582: 学习学习，顶一下

2013-08-29 09:10:16

点赞只看TA 引用举报 #5得分 0

⋅用户 namedajipai 在问答区恶意刷贴 ⋅服务器时间不准！ ⋅[BUG报告](IE8)论坛页头多出多余显示 更多帖子 关注私信空间博客 Tiger_Zhao 等级 本版专家分：13698 勋章 红花 2017年3月 VB大版内专家分月排行榜第一 2016年12月 VB大版内专家分月排行榜第一 2016年5月 VB大版内专家分月排行榜第一 2016年1月 VB大版内专家分月排行榜第一 2015年12月 VB大版内专家分月排行榜第一 2015年11月 VB大版内专家分月排行榜第一 2015年10月 MS-SQL Server大版内专家分月排行榜第一 2015年9月 VB大版内专家分月排行榜第一 2015年9月 MS-SQL Server大版内专家分月排行榜第一 2015年8月 VB大版内专家分月排行榜第一 2015年8月 MS-SQL Server大版内专家分月排行榜第一 2015年7月 VB大版内专家分月排行榜第一 2015年7月 MS-SQL Server大版内专家分月排行榜第一 2015年6月 VB大版内专家分月排行榜第一 2015年5月 VB大版内专家分月排行榜第一 2015年4月 VB大版内专家分月排行榜第一 2015年3月 VB大版内专家分月排行榜第一 2015年2月 VB大版内专家分月排行榜第一 2014年11月 VB大版内专家分月排行榜第一 2014年9月 VB大版内专家分月排行榜第一 2014年8月 VB大版内专家分月排行榜第一 2014年7月 VB大版内专家分月排行榜第一 2013年7月 VB大版内专家分月排行榜第一 2013年4月 VB大版内专家分月排行榜第一 2010年2月 VB大版内专家分月排行榜第一 2010年1月 VB大版内专家分月排行榜第一 2009年11月 VB大版内专家分月排行榜第一 2009年9月 VB大版内专家分月排行榜第一 2009年8月 VB大版内专家分月排行榜第一 2009年7月 VB大版内专家分月排行榜第一 2009年4月 VB大版内专家分月排行榜第一 2009年3月 VB大版内专家分月排行榜第一 2009年2月 VB大版内专家分月排行榜第一 2009年1月 VB大版内专家分月排行榜第一 2008年6月 VB大版内专家分月排行榜第一 2007年12月 VB大版内专家分月排行榜第一 2007年10月 VB大版内专家分月排行榜第一 2007年9月 VB大版内专家分月排行榜第一 黄花 2016年11月 VB大版内专家分月排行榜第二 2016年1月 MS-SQL Server大版内专家分月排行榜第二 2015年12月 MS-SQL Server大版内专家分月排行榜第二 2015年11月 MS-SQL Server大版内专家分月排行榜第二 2015年5月 MS-SQL Server大版内专家分月排行榜第二 2015年4月 MS-SQL Server大版内专家分月排行榜第二 2015年1月 VB大版内专家分月排行榜第二 2015年1月 MS-SQL Server大版内专家分月排行榜第二 2014年12月 VB大版内专家分月排行榜第二 2014年11月 MS-SQL Server大版内专家分月排行榜第二 2014年9月 MS-SQL Server大版内专家分月排行榜第二 2013年8月 VB大版内专家分月排行榜第二 2013年6月 VB大版内专家分月排行榜第二 2013年5月 VB大版内专家分月排行榜第二 2010年4月 VB大版内专家分月排行榜第二 2010年3月 VB大版内专家分月排行榜第二 2008年12月 VB大版内专家分月排行榜第二 2008年8月 VB大版内专家分月排行榜第二 2008年7月 VB大版内专家分月排行榜第二 2007年11月 VB大版内专家分月排行榜第二 蓝花 2017年1月 MS-SQL Server大版内专家分月排行榜第三 2015年6月 MS-SQL Server大版内专家分月排行榜第三 2015年3月 MS-SQL Server大版内专家分月排行榜第三 2015年2月 MS-SQL Server大版内专家分月排行榜第三 2014年12月 MS-SQL Server大版内专家分月排行榜第三 2014年10月 VB大版内专家分月排行榜第三 2014年10月 MS-SQL Server大版内专家分月排行榜第三 2014年8月 MS-SQL Server大版内专家分月排行榜第三 2013年9月 VB大版内专家分月排行榜第三 2013年3月 VB大版内专家分月排行榜第三 2012年5月 VB大版内专家分月排行榜第三 2012年4月 VB大版内专家分月排行榜第三 2010年10月 VB大版内专家分月排行榜第三 2010年8月 VB大版内专家分月排行榜第三 2010年7月 VB大版内专家分月排行榜第三 2009年5月 VB大版内专家分月排行榜第三 2008年9月 VB大版内专家分月排行榜第三 2008年4月 VB大版内专家分月排行榜第三 2008年2月 VB大版内专家分月排行榜第三: 加密/解密要配对。
bz0615 你的密文是 Base-64 格式，就要用 Convert.FromBase64String() 方法转换。
看 allanli 的解密方式，密文是明显16进制字符串，和你的加密方式根本不配对。

2013-08-29 09:22:02

点赞只看TA 引用举报 #6得分 0

⋅vb.net AES CBC加密模式问题 ⋅RSA算法用toxmlstring生成的密钥对能加密不能解密 ⋅求助,vb.net使用RSA加密问题 更多帖子 关注私信空间博客 bz0615 等级 本版专家分：0: 楼上的，这个我知道，我的意思是我认为问题出在加解密，因为明文和密文解密结果byte都不一样，一定不是因为编码问题alianli的方式我只借鉴了一小部分，不包括输出

2013-08-29 16:27:30

点赞只看TA 引用举报 #7得分 0

⋅用户 namedajipai 在问答区恶意刷贴 ⋅服务器时间不准！ ⋅[BUG报告](IE8)论坛页头多出多余显示 更多帖子 关注私信空间博客 Tiger_Zhao 等级 本版专家分：13698 勋章 红花 2017年3月 VB大版内专家分月排行榜第一 2016年12月 VB大版内专家分月排行榜第一 2016年5月 VB大版内专家分月排行榜第一 2016年1月 VB大版内专家分月排行榜第一 2015年12月 VB大版内专家分月排行榜第一 2015年11月 VB大版内专家分月排行榜第一 2015年10月 MS-SQL Server大版内专家分月排行榜第一 2015年9月 VB大版内专家分月排行榜第一 2015年9月 MS-SQL Server大版内专家分月排行榜第一 2015年8月 VB大版内专家分月排行榜第一 2015年8月 MS-SQL Server大版内专家分月排行榜第一 2015年7月 VB大版内专家分月排行榜第一 2015年7月 MS-SQL Server大版内专家分月排行榜第一 2015年6月 VB大版内专家分月排行榜第一 2015年5月 VB大版内专家分月排行榜第一 2015年4月 VB大版内专家分月排行榜第一 2015年3月 VB大版内专家分月排行榜第一 2015年2月 VB大版内专家分月排行榜第一 2014年11月 VB大版内专家分月排行榜第一 2014年9月 VB大版内专家分月排行榜第一 2014年8月 VB大版内专家分月排行榜第一 2014年7月 VB大版内专家分月排行榜第一 2013年7月 VB大版内专家分月排行榜第一 2013年4月 VB大版内专家分月排行榜第一 2010年2月 VB大版内专家分月排行榜第一 2010年1月 VB大版内专家分月排行榜第一 2009年11月 VB大版内专家分月排行榜第一 2009年9月 VB大版内专家分月排行榜第一 2009年8月 VB大版内专家分月排行榜第一 2009年7月 VB大版内专家分月排行榜第一 2009年4月 VB大版内专家分月排行榜第一 2009年3月 VB大版内专家分月排行榜第一 2009年2月 VB大版内专家分月排行榜第一 2009年1月 VB大版内专家分月排行榜第一 2008年6月 VB大版内专家分月排行榜第一 2007年12月 VB大版内专家分月排行榜第一 2007年10月 VB大版内专家分月排行榜第一 2007年9月 VB大版内专家分月排行榜第一 黄花 2016年11月 VB大版内专家分月排行榜第二 2016年1月 MS-SQL Server大版内专家分月排行榜第二 2015年12月 MS-SQL Server大版内专家分月排行榜第二 2015年11月 MS-SQL Server大版内专家分月排行榜第二 2015年5月 MS-SQL Server大版内专家分月排行榜第二 2015年4月 MS-SQL Server大版内专家分月排行榜第二 2015年1月 VB大版内专家分月排行榜第二 2015年1月 MS-SQL Server大版内专家分月排行榜第二 2014年12月 VB大版内专家分月排行榜第二 2014年11月 MS-SQL Server大版内专家分月排行榜第二 2014年9月 MS-SQL Server大版内专家分月排行榜第二 2013年8月 VB大版内专家分月排行榜第二 2013年6月 VB大版内专家分月排行榜第二 2013年5月 VB大版内专家分月排行榜第二 2010年4月 VB大版内专家分月排行榜第二 2010年3月 VB大版内专家分月排行榜第二 2008年12月 VB大版内专家分月排行榜第二 2008年8月 VB大版内专家分月排行榜第二 2008年7月 VB大版内专家分月排行榜第二 2007年11月 VB大版内专家分月排行榜第二 蓝花 2017年1月 MS-SQL Server大版内专家分月排行榜第三 2015年6月 MS-SQL Server大版内专家分月排行榜第三 2015年3月 MS-SQL Server大版内专家分月排行榜第三 2015年2月 MS-SQL Server大版内专家分月排行榜第三 2014年12月 MS-SQL Server大版内专家分月排行榜第三 2014年10月 VB大版内专家分月排行榜第三 2014年10月 MS-SQL Server大版内专家分月排行榜第三 2014年8月 MS-SQL Server大版内专家分月排行榜第三 2013年9月 VB大版内专家分月排行榜第三 2013年3月 VB大版内专家分月排行榜第三 2012年5月 VB大版内专家分月排行榜第三 2012年4月 VB大版内专家分月排行榜第三 2010年10月 VB大版内专家分月排行榜第三 2010年8月 VB大版内专家分月排行榜第三 2010年7月 VB大版内专家分月排行榜第三 2009年5月 VB大版内专家分月排行榜第三 2008年9月 VB大版内专家分月排行榜第三 2008年4月 VB大版内专家分月排行榜第三 2008年2月 VB大版内专家分月排行榜第三: 那么你借鉴后的解密方法怎么的？
从你的代码看就只剩下 Base-64 编码的密文没有解码了。

2013-08-30 09:26:44

点赞只看TA 引用举报 #8得分 0

⋅vb.net AES CBC加密模式问题 ⋅RSA算法用toxmlstring生成的密钥对能加密不能解密 ⋅求助,vb.net使用RSA加密问题 更多帖子 关注私信空间博客 bz0615 等级 本版专家分：0:     Private Function Encrypt(ByVal plainText As String, ByVal key As String) As String

        Dim AES As New RijndaelManaged()

        Dim MD5 As New MD5CryptoServiceProvider()

        Dim plainTextData As Byte() = Encoding.Unicode.GetBytes(plainText)

        Dim keyData As Byte() = MD5.ComputeHash(Encoding.UTF8.GetBytes(key))

        Dim IVData As Byte() = MD5.ComputeHash(Encoding.UTF8.GetBytes("Alex Lee"))

        AES.Key = keyData
        AES.Mode = CipherMode.CFB
        AES.Padding = PaddingMode.Zeros
        Dim transform As ICryptoTransform = AES.CreateEncryptor()

        Dim outputData As Byte() = transform.TransformFinalBlock(plainTextData, 0, plainTextData.Length)
        Encrypt = Replace(BitConverter.ToString(outputData),"-","")

    End Function
    Function getbytex(ByVal sourcestr As String) As Byte()
        Dim len As Integer = sourcestr.Length / 2 - 1
        Dim inputByteArray(len) As Byte
        Dim x, i As Integer
        For x = 0 To len
            i = Convert.ToInt32(sourcestr.Substring(x * 2, 2), 16)
            inputByteArray(x) = CType(i, Byte)
        Next
        '解密
        getbytex = inputByteArray
    End Function

    Private Function Decrypt(ByVal ciphertext As String, ByVal key As String) As String
        Dim ciphertextdata As Byte()
        ciphertextdata = getbytex(ciphertext)

        Dim AES As New RijndaelManaged()

        Dim MD5 As New MD5CryptoServiceProvider()

        Dim keyData As Byte() = MD5.ComputeHash(Encoding.UTF8.GetBytes(key))

        Dim IVData As Byte() = MD5.ComputeHash(Encoding.UTF8.GetBytes("Alex Lee"))

        AES.Key = keyData
        AES.Mode = CipherMode.CFB

        AES.Padding = PaddingMode.Zeros

        Dim transform As ICryptoTransform = AES.CreateDecryptor()

        Dim outputData As Byte() = transform.TransformFinalBlock(ciphertextdata, 0, ciphertextdata.Length)

        Decrypt = Encoding.Unicode.GetString(outputData)
    End Function
这样，编码解码挺一致的啊，就是原文和密文解密结果byte连长度都完全不一样,密钥也一致，不知道为啥了
另外咋回复啊

2013-08-30 14:28:20

点赞只看TA 引用举报 #9得分 0

⋅用户 namedajipai 在问答区恶意刷贴 ⋅服务器时间不准！ ⋅[BUG报告](IE8)论坛页头多出多余显示 更多帖子 关注私信空间博客 Tiger_Zhao 等级 本版专家分：13698 勋章 红花 2017年3月 VB大版内专家分月排行榜第一 2016年12月 VB大版内专家分月排行榜第一 2016年5月 VB大版内专家分月排行榜第一 2016年1月 VB大版内专家分月排行榜第一 2015年12月 VB大版内专家分月排行榜第一 2015年11月 VB大版内专家分月排行榜第一 2015年10月 MS-SQL Server大版内专家分月排行榜第一 2015年9月 VB大版内专家分月排行榜第一 2015年9月 MS-SQL Server大版内专家分月排行榜第一 2015年8月 VB大版内专家分月排行榜第一 2015年8月 MS-SQL Server大版内专家分月排行榜第一 2015年7月 VB大版内专家分月排行榜第一 2015年7月 MS-SQL Server大版内专家分月排行榜第一 2015年6月 VB大版内专家分月排行榜第一 2015年5月 VB大版内专家分月排行榜第一 2015年4月 VB大版内专家分月排行榜第一 2015年3月 VB大版内专家分月排行榜第一 2015年2月 VB大版内专家分月排行榜第一 2014年11月 VB大版内专家分月排行榜第一 2014年9月 VB大版内专家分月排行榜第一 2014年8月 VB大版内专家分月排行榜第一 2014年7月 VB大版内专家分月排行榜第一 2013年7月 VB大版内专家分月排行榜第一 2013年4月 VB大版内专家分月排行榜第一 2010年2月 VB大版内专家分月排行榜第一 2010年1月 VB大版内专家分月排行榜第一 2009年11月 VB大版内专家分月排行榜第一 2009年9月 VB大版内专家分月排行榜第一 2009年8月 VB大版内专家分月排行榜第一 2009年7月 VB大版内专家分月排行榜第一 2009年4月 VB大版内专家分月排行榜第一 2009年3月 VB大版内专家分月排行榜第一 2009年2月 VB大版内专家分月排行榜第一 2009年1月 VB大版内专家分月排行榜第一 2008年6月 VB大版内专家分月排行榜第一 2007年12月 VB大版内专家分月排行榜第一 2007年10月 VB大版内专家分月排行榜第一 2007年9月 VB大版内专家分月排行榜第一 黄花 2016年11月 VB大版内专家分月排行榜第二 2016年1月 MS-SQL Server大版内专家分月排行榜第二 2015年12月 MS-SQL Server大版内专家分月排行榜第二 2015年11月 MS-SQL Server大版内专家分月排行榜第二 2015年5月 MS-SQL Server大版内专家分月排行榜第二 2015年4月 MS-SQL Server大版内专家分月排行榜第二 2015年1月 VB大版内专家分月排行榜第二 2015年1月 MS-SQL Server大版内专家分月排行榜第二 2014年12月 VB大版内专家分月排行榜第二 2014年11月 MS-SQL Server大版内专家分月排行榜第二 2014年9月 MS-SQL Server大版内专家分月排行榜第二 2013年8月 VB大版内专家分月排行榜第二 2013年6月 VB大版内专家分月排行榜第二 2013年5月 VB大版内专家分月排行榜第二 2010年4月 VB大版内专家分月排行榜第二 2010年3月 VB大版内专家分月排行榜第二 2008年12月 VB大版内专家分月排行榜第二 2008年8月 VB大版内专家分月排行榜第二 2008年7月 VB大版内专家分月排行榜第二 2007年11月 VB大版内专家分月排行榜第二 蓝花 2017年1月 MS-SQL Server大版内专家分月排行榜第三 2015年6月 MS-SQL Server大版内专家分月排行榜第三 2015年3月 MS-SQL Server大版内专家分月排行榜第三 2015年2月 MS-SQL Server大版内专家分月排行榜第三 2014年12月 MS-SQL Server大版内专家分月排行榜第三 2014年10月 VB大版内专家分月排行榜第三 2014年10月 MS-SQL Server大版内专家分月排行榜第三 2014年8月 MS-SQL Server大版内专家分月排行榜第三 2013年9月 VB大版内专家分月排行榜第三 2013年3月 VB大版内专家分月排行榜第三 2012年5月 VB大版内专家分月排行榜第三 2012年4月 VB大版内专家分月排行榜第三 2010年10月 VB大版内专家分月排行榜第三 2010年8月 VB大版内专家分月排行榜第三 2010年7月 VB大版内专家分月排行榜第三 2009年5月 VB大版内专家分月排行榜第三 2008年9月 VB大版内专家分月排行榜第三 2008年4月 VB大版内专家分月排行榜第三 2008年2月 VB大版内专家分月排行榜第三

Private Function Encrypt(ByVal plainText As String, ByVal key As String) As String



    Dim AES As New RijndaelManaged()



    Dim MD5 As New MD5CryptoServiceProvider()



    Dim plainTextData As Byte() = Encoding.Unicode.GetBytes(plainText)



    Dim keyData As Byte() = MD5.ComputeHash(Encoding.UTF8.GetBytes(key))



    Dim IVData As Byte() = MD5.ComputeHash(Encoding.UTF8.GetBytes("Alex Lee"))



    AES.Key = keyData

    AES.IV = IVData '加密/解密都没有设置初始化向量'

    AES.Mode = CipherMode.CFB

    AES.Padding = PaddingMode.Zeros

    Dim transform As ICryptoTransform = AES.CreateEncryptor()



    Dim outputData As Byte() = transform.TransformFinalBlock(plainTextData, 0, plainTextData.Length)

    Encrypt = Convert.ToBase64String(outputData)'Base-64 可以正常工作，你的问题不在这里'

End Function

Private Function Decrypt(ByVal ciphertext As String, ByVal key As String) As String

    Dim ciphertextdata As Byte() = Convert.FromBase64String(ciphertext) 



    Dim AES As New RijndaelManaged()



    Dim MD5 As New MD5CryptoServiceProvider()



    Dim keyData As Byte() = MD5.ComputeHash(Encoding.UTF8.GetBytes(key))

    Dim IVData As Byte() = MD5.ComputeHash(Encoding.UTF8.GetBytes("Alex Lee"))



    AES.Key = keyData

    AES.IV = IVData '加密/解密都没有设置初始化向量'

    AES.Mode = CipherMode.CFB

    AES.Padding = PaddingMode.Zeros

    Dim transform As ICryptoTransform = AES.CreateDecryptor()



    Dim outputData As Byte() = transform.TransformFinalBlock(ciphertextdata, 0, ciphertextdata.Length)



    Decrypt = Encoding.Unicode.GetString(outputData)

End Function

2013-09-02 11:36:56

点赞只看TA 引用举报 #10得分 0

收起

收藏回复

bz0615

等级：

关注私信 TA的帖子

【VB.NET2010】VB.NET的AES加密: 考虑到网上的VB.NET实现AES加密基本上找不到参考代码，所以我花了10个小时查阅资料以及测试得到了以下的实用代码。供大家参考，我参考了以下网页： ...

VB实现AES(Rijndael)加密的方法: 软件名称：AES简单加密模块版本：1.0.0文件名：AESCipher.dll授权：免费用户接口：Public Function EncryptAES(ByVal StrIN As String, ByVal sKEY As String) As StringPublic Function DecryptAES(ByVal StrIN As ...

VB.NET实现AES加密解密: VB.NET实现AES加密解密代码，可直接使用

使用VB.net解密AES256加密字符串: 'AES256', 'secret_password', 0, 'initialization_vector' ); </code></pre> <p>I tried with <a href="https://stackoverflow.com/questions/16420173/standard-library-for-aes-encryption-for-vb-...

vb.net文件夹加密VB.NET实现文件加密: 实现vb.net文件夹加密VB.NET实现文件加密的方法！

Visual Basic.Net AES加密函数: Imports System.Text Imports System.Security.Cryptography Imports System.IO Public Class clsAES ... Public Function AESEncrypt(ByVal sText As String, ByVal sKey As String, ByVal sIV As Strin

VB.NET 的 DES 加密与解密(转载于nofort博客): MD5和SHA的加密方式都是单向的，就算是我写的程序用户的... DES要求两个关健数据一个是key（密钥）一个是初始化向量（IV）只要这两个数据一致就可以还原出原来的数据，为了方便还是写成函数 TripleDES算法基本上DE

用VB.NET实现MD5加密: Imports System.TextImports System.Security.CryptographyPublic Class Form1Class Form1 Inherits System.Windows.Forms.Form#Region " Windows 窗体设计器生成的代码 " Public Sub New()Sub New()...

vb.net加密解密源代码: 自己做的一个加密解密小程序，采用vs2008编写，保证有效

vb.net 教程目录: vb.net 教程 5-19 拓展：制作一个QQ大家来找茬和美女找茬辅助工具（2019-11-25 16:29:53）vb.net 教程 5-20 拓展论坛图片批量转换（2019-11-25 16:19:31）vb.net 教程 5-21 拓展如何给IE浏览器截图2019年11月25...

vb.net 实现MD5的字符加密: 自编的，可以实现字符串的MD5加密方法，vb.net实现。

【VB.Net】使用SHA256进行简单的XOR文本加密与解密: 使用XOR对字符串进行加密与解密，私钥通过SHA256或SHA512进行编码。全程推荐使用UTF-8编码。

3des加密vb.net，利用vbv.net自带控件进行加密数据: 利用vbv.net自带控件进行加密数据，利用vbv.net自带控件进行加密数据利用vbv.net自带控件进行加密数据

vb.net加密解密方法: 1.vb.net加密解密方法 Private Function getLicenseDate() As String Dim b() As Byte Dim path As String = Server.MapPath(Context.Request.ApplicationPath) & "License\" ...

VB.net 调用自己封装起来的用VB.net做的DLL: 本来想用C#调用，先来用VB.net 调用一下DLL类库。当然，这个DLL也是用VB.net自己开发的，目的吗。一个是提高运行效率，一个是觉得好玩儿。具体实现方法如下: 第一步,制作dll. 首先打开Microsoft Visual Basic ...

[求助]vb.net中treeview的问题！: 本人在用vb.net的treeview时，发现一个问题，当在treeview中的空白处点击鼠标时，先前treeview中选中的节点，仍然高亮显示（蓝色），请问各位这时为何，能否当点击空白时将先前的高亮去掉

.NET AES加解密（128位）: AES加密（128位）： 1 /// <summary> 2 /// 有密码的AES加密 3 /// </summary> 4 internal static string Encrypt(string toEncrypt) 5 { 6 va...

VB6.0和VB.NET对比: 首先它们一个是完全面向对象的语言，而另一个不是完全面向对象的，其次VB .NET是构建于.Net framework之上的。当然，它们同属Basic系列语言，又同为微软所开发，语法上有一定的相似或沿袭是很正常的，但不能因此认为...

VB.NET中MD5加密: Function MD5(ByVal strSource As String, ByVal Code As Int16) As String Dim dataToHash As Byte() = (New System.Text.ASCIIEncoding).GetBytes(strSource) Dim hashvalue As Byte() = CType

VB.net内置BASE64加密解密: '加密代码Dim Str as string=System.Convert.ToBase64String(System.Text.Encoding.Default.GetBytes("aaaaaaaaaaaaaaaaaaaaaaaaaa"))'解密代码Dim Str as string = System.Text.Encoding.Default.GetString(System....

字符串加密类 vb.net: Imports Microsoft.VisualBasicImports System.Security.CryptographyPublic Class MD5Class MD5 MD5加密方法 Function Shared()Function Shared MD5Encrypt(ByVal PasswordString As String) As ...

[VB.NET][新手求助]vb.net怎么生成exe文件: <script type="text/javascript"

求助一个vb.net中webbrowser的问题: 我用vb.net中的webbrowser提取超链接，代码如下： Timer1.Enabled = False Dim web As WebBrowser = WebBrowser1 For Each i As HtmlElement In web.Document.GetElementsByTagName("a") url = url + i....

vb.net DES加密与解密: vb.net DES加密与解密

使用VB.NET写的CHART控件使用: 使用VB.NET写的CHART控件使用例程,简单易懂.

VB.NET 教程_01_基础语法: VB.Net是一种简单，现代，面向对象的计算机编程语言，由微软开发，将.NET Framework和公共语言运行库的强大功能与作为Visual Basic标志的生产力优势相结合。 Visual Basic .NET（VB.NET）是在.NET Framework上...

关于VB.NET中使用JS文件问题: 在老兄们的带动下，有好多想法和工作中的问题想与大家交流，一直不敢，因为高手太多了，个人水平有限，不足之处，敬请高手指点。（大家又说我唠叨了，呵呵）一直在用dot net做桌面程序，近日搞个网站方面的东东，...

使用VB.NET开发纯.NET的应用程序

VB.NET 使用CHART控件做实时曲线: VB.NET 使用CHART 控件做实时曲线本人初学vb.net 编程，因一工程需要将现场数据采集过来，并以实时曲线的方式，显示出来，顾写了个例子程序，供大家参考，不对的地方请大家指正，谢谢！废话不多说，下面是整个...

VB.NET实现Windows剪贴板监视器: Windows剪贴板剪贴板（ClipBoard）是内存中的一块区域，是Windows内置的一个非常有用的工具，通过小小的剪贴板，架起了一座彩桥，使得在各种应用程序之间，传递和共享信息成为可能。然而美中不足的是，剪贴板只能...

相关热词 c# 挂机锁 c# 不能再打开其它表了 c#移除行 c#socket建立通信 c# 拦截socket c#做一个问卷调查 c++结构体转换为c# c# 判断组合键 c# 的类重写dll c# 五层嵌套优化