终于实现VB.NET MD5加密

vb.net教程https://www.xin3721.com/eschool/vbnetxin3721/

VB.NET MD5加密想着这个功能很普遍，就在网上找了一个代码

 '对strSource进行转码，然后再变成大写，再进行加密Function MD51(ByVal strSource As String, ByVal Code As Int16) As StringDim dataToHash As Byte()dataToHash = (New System.Text.UTF8Encoding).GetBytes(UCase(URLEncode(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 IntegerSelect Case CodeCase 16      '选择16位字符的加密结果   For i = 4 To 11ATR &= Hex(hashvalue(i)).PadLeft(2, "0").ToLowerNextCase 32      '选择32位字符的加密结果   For i = 0 To 15ATR &= Hex(hashvalue(i)).PadLeft(2, "0").ToLowerNextCase Else       'Code错误时，返回全部字符串，即32位字符   For i = 0 To 15ATR &= Hex(hashvalue(i)).PadLeft(2, "0").ToLowerNextEnd SelectReturn ATREnd Function''把带来中文的URL编码，都转换成GBK的编码方式Public Function URLEncode(ByRef strEnc As String) As StringDim strTmp2, strChar, strTmp, strRet As StringstrRet = ""Dim lngLoop As IntegerFor lngLoop = 0 To strEnc.Length - 1strChar = strEnc.Substring(lngLoop, 1)Select Case Asc(strChar)Case 48 To 57, 65 To 90, 97 To 122strRet &= strCharCase 32strRet &= "+"Case ElsestrTmp = Hex(Asc(strChar))If strTmp.Length > 4 ThenstrTmp = strTmp.Substring(4)strRet &= "%" & strTmp.Substring(0, 2)If strTmp.Length > 2 ThenstrTmp2 = strTmp.Substring(2)strRet &= IIf(IsNumeric(strTmp.Substring(2, 1)), Chr(Val("&H" & strTmp2)), "%" & strTmp2)End IfEnd IfEnd SelectNextURLEncode = strRetEnd Function''把带来中文的URL编码，都转换成GBK的编码方式Public Function URLenc(ByVal strEnc As String) As StringDim lngLoop, lngAsc As LongURLenc = ""Dim strChr As StringFor lngLoop = 0 To strEnc.Length - 1strChr = strEnc.Substring(lngLoop, 1)If Math.Abs(Asc(strChr)) < 255 ThenURLenc &= strChrElselngAsc = Asc(strChr)If lngAsc < 0 Then lngAsc = lngAsc + 65536URLenc &= "%" & Hex((lngAsc And -256) \ 255) & "%" & Hex(lngAsc And 255)End IfNextEnd Function

使用这个MD5加密后，有时对，有时不对，特别跟ASP的MD5有时都对不上。如果有小数点的数字，加密还无法对点加密。

今天完善一个支付宝批量转账的程序时也需要使用到MD5就再百度了一下。运气好看到了微软的VB.NET MD5的帮助。终于实现的简单的MD5加密。结果初步对比是正确的。

Public Function funcMD5(ByVal str As String) As StringUsing md5Hash As MD5 = MD5.Create()Dim hash As String = GetMd5Hash(md5Hash, str)Return hashEnd UsingEnd FunctionFunction GetMd5Hash(ByVal md5Hash As MD5, ByVal input As String) As String' Convert the input string to a byte array and compute the hash.Dim data As Byte() = md5Hash.ComputeHash(Encoding.UTF8.GetBytes(input))' Create a new Stringbuilder to collect the bytes' and create a string.Dim sBuilder As New StringBuilder()' Loop through each byte of the hashed data ' and format each one as a hexadecimal string.Dim i As IntegerFor i = 0 To data.Length - 1sBuilder.Append(data(i).ToString("x2"))Next i' Return the hexadecimal string.Return sBuilder.ToString()End Function 'GetMd5Hash

文章在：https://msdn.microsoft.com/zh-cn/library/system.security.cryptography.md5.aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1

终于实现VB.NET MD5加密相关推荐

VB 字符串MD5加密函数
函数代码: Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WOR ...
ASP.Net中MD5加密-16位32位
public string md5(string str,int code) { if(code==16) //16位MD5加密(取32位加密的9~25字符) { return System.Web. ...
Burpsuite技巧之MD5加密密码爆破、带验证码爆破
一.Burpsuite技巧之MD5加密密码爆破现在有很多后台都不再是明文传输,改成了各种各样的加密方式. 今天就拿MD5加密方式做一个演示,举一反三,希望对新手有用. 如图,MD5加密了密码,遇到这 ...
使用MD5加密数据库中的用户密码介绍
使用MD5加密数据库中的用户密码介绍 ●前言我们知道,现在网络上一般的网站,稍微完善一点的,往往都需要用户先注册,提供诸如电子邮件.账号.密码等信息以后,成为网站栏目的注册用户,才可以享受网站一些特 ...
RSA、MD5加密解密算法全套解析安装教程
第一部分介绍加密解密算法, 第二部分介绍我小组成功应用的RSA.MD5两种加密解密算法,以及心得体会. 1.加密解密算法介绍应用的开发中安全很重要,所以信息加密技术显得尤为重要.我们需要对应用中的多 ...
牛腩44 整合登陆页 RequiredFieldValidator 和 ValidationSummary 以及 asp.net 自带的MD5 加密...
在我们后台登陆的时候,有用户名,密码和验证码3个必选项,所以我们托3个验证控件过来例如这里,如果没有填写用户名,当点提交的时候,显示红色的 * 号,并且弹出一个 alert 效果如下 ...
在Ubuntu 14.04 64bit上进行md5加密编程
计算指定字符串的md5值是一项很常见的操作,包括使用命令行md5sum,或者在C/C++编程中调用openssl提供的接口函数来进行.下面我们分别阐述如下: 一.在命令行中使用md5校验计算某个文件 ...
js MD5加密处理
关于MD5: MD5.js是通过前台js加密的方式对用户信息,密码等私密信息进行加密处理的工具,也可称为插件. 在本案例中可以看到MD5共有6种加密方法: 1, hex_md5(value) 2, ...
Loadrunner进行md5加密方法
本文主要介绍使用Loadrunner进行字符串md5加密的方法. 使用Loadrunner进行md5比较简单,首先是加载md5.h头文件,后使用头文件中的加密函数即可. 1. md5.h头文件内容如下 ...

终于实现VB.NET MD5加密

终于实现VB.NET MD5加密相关推荐

最新文章

热门文章