vb.net 使用MD5密碼加密

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

转载于:https://www.cnblogs.com/leme-chen/p/9266535.html

vb.net 使用MD5密碼加密相关推荐

ASP.Net中MD5和SHA1加密的几种方法
首先简单介绍一下MD5和SHA1: MD5的全称是Message-Digest Algorithm 5(信息-摘要算法),在90年代初由Mit Laboratory for Computer Scie ...
VB中使用MD5算法
调用方法: Private Sub Form_Load() Debug.Print Mymd5.MD5("aa1234") Debug.Print Mymd5.MD ...
Java MD5 VS SAH 加密方法详解
引用百度描述: MD5的全称是Message-Digest Algorithm 5(信息-摘要算法),在90年代初由MIT Laboratory for Computer Science和RSA Da ...
不用軟體解PPT密碼
解PPT密碼的軟體很多,最好用的是advanced office password recovery pro,論壇裡有,不多說了~ 但是軟體有時候在解PPT密碼時多顯無力,現介紹不用軟體就能解pptx ...
wap(dopra linux )命令,獲取電信光纖貓 HG8245C 超管密碼
C:WindowsSystem32>telnet 192.168.1.1 // telnet 登錄光纖貓 Welcome Visiting Huawei Home Gateway Copyrig ...
C# MD5 32位加密 UTF-8编码
项目开发过程中需要用到MD5加密,最开始的使用使用加密方法: public static string GetMD5(string str) { byte[] ...
原创:MD5 32位加密软件
网站后台数据库切勿使用明文保存密码,否则一旦黑客拿下你的Webshell,后果不堪设想. 网站后台密码加密大多数采用的就是MD5算法加密. 今天给大家送一个本人用c#简单编写的MD5 32位加密程序, ...
MD5和SHA1加密
MD5和SHA1加密 MD5和SHA1算法对数据进行加密例: 'MD5加密 Dim UserPWD as String UserPWD = System.Web.Security.FormsAuth ...
java,url长链接生成短链接,短链接生成器,自定义字符串,对字符串md5混合KEY加密,根据短链接获得key值，不重复的随机数，不重复的随机字符串...
java,url长链接生成短链接,短链接生成器,自定义字符串,对字符串md5混合KEY加密,根据短链接获得key值,不重复的随机数,不重复的随机字符串 1 package com.zdz.test; ...
堡垒机应用发布服务器是干嘛的_支持Web UI数据库审计和敏感数据国密算法加密，JumpServer堡垒机v2.5.0发布丨Release Notes...
11月18日,JumpServer开源堡垒机正式发布v2.5.0版本.该版本的新增功能包括:支持Web UI数据库审计(X-Pack增强包内).支持敏感数据国密算法加密.新增克隆创建.新增高危命令告警 ...

vb.net 使用MD5密碼加密

vb.net 使用MD5密碼加密相关推荐

最新文章

热门文章