[VB.NET]MD5

VB 2019-07-10

  1. FunctionGetMd5Hash(ByValinputAsString,ByValcodaAsInteger)AsString
  2. Dimmd5HasherAsNewMD5CryptoServiceProvider()
  3. DimdataAsByte()=md5Hasher.ComputeHash(Encoding.Default.GetBytes(input))
  4. DimsBuilderAsNewStringBuilder()
  5. DimiAsInteger
  6. Ifcoda=16Then
  7. Fori=4To11
  8. sBuilder.Append(data(i).ToString("x2"))
  9. Nexti
  10. Else'32位
  11. Fori=0To15
  12. sBuilder.Append(data(i).ToString("x2"))
  13. Nexti
  14. EndIf
  15. ReturnsBuilder.ToString()
  16. EndFunction

相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选...
VB文件 hash 查看器
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...