Function MD5(ByVal strSource As String, ByVal Code As Int16) As String'使用MD5加密
Dim dataToHash As Byte() = (New System.Text.ASCIIEncoding).GetBytes(strSource)
Dim hashvalue As Byte() = CType(System.Security.Cryptography.CryptoConfig.CreateFromName("MD5"), System.Security.Cryptography.HashAlgorithm).ComputeHash(dataToHash)
Dim ATR As String = ""
Dim i As Integer
Select Case Code
Case 16 '选择16位字符的加密结果
For i = 4 To 11
ATR &= Hex(hashvalue(i)).PadLeft(2, "0").ToLower

Next
Case 32 '选择32位字符的加密结果
For i = 0 To 15
ATR &= Hex(hashvalue(i)).PadLeft(2, "0").ToLower
Next
Case Else ' Code错误时，返回全部字符串，即32位字符
For i = 0 To 15
ATR &= Hex(hashvalue(i)).PadLeft(2, "0").ToLower
Next
End Select
Return ATR
End Function

Private Sub A1()
TextBox2.Text = MD5(TextBox1.Text, 16) '16位字符的加密结果
End Sub

Private Sub A2()
TextBox2.Text = MD5(TextBox1.Text, 32) '32位字符的加密结果
End Sub

最新文章

1. 2MyBatis入门--深入浅出MyBatis技术原理与实践(笔记)
2. winform中选择文件获取路径
3. django--一对多，多对多查询
4. 李洪强漫谈iOS开发[C语言-047]-数列求和
5. uniDBGrid导入数据库（转红鱼儿）
6. Android高手进阶教程(七)之----Android 中Preferences的使用!
7. 横向技术分析C#、C++和Java优劣
8. poj 1328 Radar Installation【贪心区间选点】
9. CSS的基本认识
10. codeforces 342D Xenia and Dominoes（状压dp+容斥）
11. HDU 5573 Binary Tree（找规律）
12. Linux 用户信息，组信息，密码信息！
13. RandomAccessFile实时读取大文件（转）
14. CentOS7配置OpenCV2.4.13
15. java面试题之int和Integer的区别
16. [转] DDD领域驱动设计（三） 之 理论知识收集汇总
17. 使用build_opener 自定义 opener
18. Manacher’s Algorithm （神啊）
19. Xtoken
20. SVN提交前准备

热门文章

1. gitlab 部署
2. java解决共享资源竞争
3. ASP.NET MVC5 高级编程-学习日记-第二章 控制器
4. 一步步改造wcf,数据加密传输-匿名客户端加密传输
5. git 下载指定tag版本的源码
6. CE+X64dbg外挂制作教程 [提高篇]
7. 18_python_类关系
8. Shell - 简明Shell入门03 - 字符串（String）
9. 基于鸢尾花数据的PCA降维处理
10. Python相关在线文档手册地址