VB.NET DES 简易算法
来源:互联网 发布:科比1213赛季数据 编辑:程序博客网 时间:2024/05/21 22:49
'加密方法
Public Function Encrypt(ByVal pToEncrypt As String, ByVal DesKey As String) As String
Dim des As New Security.Cryptography.DESCryptoServiceProvider()
Dim inputByteArray() As Byte
inputByteArray = System.Text.Encoding.Default.GetBytes(pToEncrypt)
des.Key = System.Text.ASCIIEncoding.ASCII.GetBytes(DesKey)
des.IV = System.Text.ASCIIEncoding.ASCII.GetBytes(DesKey)
Dim ms As New System.IO.MemoryStream()
Dim cs As New Security.Cryptography.CryptoStream(ms, des.CreateEncryptor, Security.Cryptography.CryptoStreamMode.Write)
cs.Write(inputByteArray, 0, inputByteArray.Length)
cs.FlushFinalBlock()
Dim ret As New System.Text.StringBuilder()
Dim b As Byte
For Each b In ms.ToArray()
ret.AppendFormat("{0:X2}", b)
Next
Return ret.ToString()
End Function
'解密方法
Public Function Decrypt(ByVal pToDecrypt As String, ByVal DesKey As String) As String
Dim des As New Security.Cryptography.DESCryptoServiceProvider()
Dim len As Integer
len = pToDecrypt.Length / 2 - 1
Dim inputByteArray(len) As Byte
Dim x, i As Integer
For x = 0 To len
i = Convert.ToInt32(pToDecrypt.Substring(x * 2, 2), 16)
inputByteArray(x) = CType(i, Byte)
Next
des.Key = System.Text.ASCIIEncoding.ASCII.GetBytes(DesKey)
des.IV = System.Text.ASCIIEncoding.ASCII.GetBytes(DesKey)
Dim ms As New System.IO.MemoryStream()
Dim cs As New Security.Cryptography.CryptoStream(ms, des.CreateDecryptor, Security.Cryptography.CryptoStreamMode.Write)
cs.Write(inputByteArray, 0, inputByteArray.Length)
cs.FlushFinalBlock()
Return System.Text.Encoding.Default.GetString(ms.ToArray)
End Function
- VB.NET DES 简易算法
- VB.NET des 算法
- VB.NET 简易网页编辑器
- VB.NET 编写的加密类采用数据加密标准 (DES) 算法
- vb.net DES加密与解密
- 简易配置文件的读取(VB.NET)
- 用vb.net开发的简易服务器
- MD5算法(VB.NET)
- 使用DES加密解密代码(C# & vb.Net)
- Android和.NET通用的DES算法
- 用VB实现DES加解密算法(一)--定义
- 用vb实现DES加解密算法(二)--加密
- 用vb实现DES加解密算法(三)--解密
- VB.NET 排列组合算法实现
- [VB.NET源码]压缩算法
- vb.net 逆波兰算法
- DES & 3DES算法
- 用VB.NET写的一个简易的RSS阅读器
- acos ()函数
- trigger应用
- asin () 函数
- 构造函数与析构函数
- simple2.0使用java的xml序列化
- VB.NET DES 简易算法
- ref(引用参数)和out(输出参数)的简单用法
- 叶落
- sizeof和strlen的区别
- js 优化
- drupal几个模块
- Windows Server 2003服务器C盘空间不足的N个解决方法
- [转载]VC调用存储过程的通用方法(SQLServer篇)
- INF文件格式小结