用VB.NET实现MD5加密

原创 2004年08月02日 17:15:00
None.gifImports System.Text
None.gif
Imports System.Security.Cryptography
None.gif
ExpandedBlockStart.gif
Public Class Form1
InBlock.gif    
Inherits System.Windows.Forms.Form
InBlock.gif
InBlock.gif#Region 
" Windows 窗体设计器生成的代码 "
InBlock.gif

ExpandedSubBlockStart.gif
    Public Sub New()
InBlock.gif        
MyBase.New()
InBlock.gif
InBlock.gif        
'该调用是 Windows 窗体设计器所必需的。
InBlock.gif
        InitializeComponent()
InBlock.gif
InBlock.gif        
'在 InitializeComponent() 调用之后添加任何初始化
InBlock.gif

ExpandedSubBlockEnd.gif    
End Sub

InBlock.gif
InBlock.gif    
'窗体重写 dispose 以清理组件列表。
ExpandedSubBlockStart.gif
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
InBlock.gif        
If disposing Then
InBlock.gif            
If Not (components Is NothingThen
InBlock.gif                components.Dispose()
InBlock.gif            
End If
InBlock.gif        
End If
InBlock.gif        
MyBase.Dispose(disposing)
ExpandedSubBlockEnd.gif    
End Sub

InBlock.gif
InBlock.gif    
'Windows 窗体设计器所必需的
InBlock.gif
    Private components As System.ComponentModel.IContainer
InBlock.gif
InBlock.gif    
'注意: 以下过程是 Windows 窗体设计器所必需的
InBlock.gif
    '可以使用 Windows 窗体设计器修改此过程。
InBlock.gif
    '不要使用代码编辑器修改它。
InBlock.gif
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
InBlock.gif    
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
InBlock.gif    
Friend WithEvents Button1 As System.Windows.Forms.Button
ExpandedSubBlockStart.gif    
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
InBlock.gif        Me.TextBox1 
= New System.Windows.Forms.TextBox
InBlock.gif        Me.TextBox2 
= New System.Windows.Forms.TextBox
InBlock.gif        Me.Button1 
= New System.Windows.Forms.Button
InBlock.gif        Me.SuspendLayout()
InBlock.gif        
'
InBlock.gif
        'TextBox1
InBlock.gif
        '
InBlock.gif
        Me.TextBox1.Location = New System.Drawing.Point(3256)
InBlock.gif        Me.TextBox1.Name 
= "TextBox1"
InBlock.gif
        Me.TextBox1.Size = New System.Drawing.Size(14421)
InBlock.gif        Me.TextBox1.TabIndex 
= 0
InBlock.gif        Me.TextBox1.Text 
= ""
InBlock.gif
        '
InBlock.gif
        'TextBox2
InBlock.gif
        '
InBlock.gif
        Me.TextBox2.Location = New System.Drawing.Point(3296)
InBlock.gif        Me.TextBox2.Name 
= "TextBox2"
InBlock.gif
        Me.TextBox2.Size = New System.Drawing.Size(22421)
InBlock.gif        Me.TextBox2.TabIndex 
= 1
InBlock.gif        Me.TextBox2.Text 
= ""
InBlock.gif
        '
InBlock.gif
        'Button1
InBlock.gif
        '
InBlock.gif
        Me.Button1.Location = New System.Drawing.Point(18456)
InBlock.gif        Me.Button1.Name 
= "Button1"
InBlock.gif
        Me.Button1.TabIndex = 2
InBlock.gif        Me.Button1.Text 
= "Button1"
InBlock.gif
        '
InBlock.gif
        'Form1
InBlock.gif
        '
InBlock.gif
        Me.AutoScaleBaseSize = New System.Drawing.Size(614)
InBlock.gif        Me.ClientSize 
= New System.Drawing.Size(472285)
InBlock.gif        Me.Controls.Add(Me.Button1)
InBlock.gif        Me.Controls.Add(Me.TextBox2)
InBlock.gif        Me.Controls.Add(Me.TextBox1)
InBlock.gif        Me.Name 
= "Form1"
InBlock.gif
        Me.Text = "MD5"
InBlock.gif
        Me.ResumeLayout(False)
InBlock.gif
ExpandedSubBlockEnd.gif    
End Sub

InBlock.gif
InBlock.gif#
End Region
InBlock.gif
ExpandedSubBlockStart.gif    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles Button1.Click
InBlock.gif
InBlock.gif        
Dim md5 As New MD5CryptoServiceProvider
InBlock.gif        
Dim username As Byte() = (New ASCIIEncoding).GetBytes(TextBox1.Text)
InBlock.gif
InBlock.gif        
'转换为哈希值Byte数组
InBlock.gif
        Dim mdByte As Byte() = md5.ComputeHash(username)
InBlock.gif        
'Dim mdString As String = System.BitConverter.ToString(mdByte)
InBlock.gif
        Dim mdString As String = (New ASCIIEncoding).GetString(mdByte)
InBlock.gif        TextBox2.Text 
= mdString
ExpandedSubBlockEnd.gif    
End Sub

InBlock.gif
ExpandedSubBlockStart.gif    
Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles MyBase.Load
InBlock.gif
ExpandedSubBlockEnd.gif    
End Sub

ExpandedBlockEnd.gif
End Class

None.gif
None.gif
System.Security.Cryptography这个类需要引用,它提供了安全方面的服务,用于MD5只是它的一个毛皮功夫

VB.NET 的 DES 加密与解密(转载于nofort博客)

MD5和SHA的加密方式都是单向的,就算是我写的程序用户的密码用这两种方式保存后,我对着看也不知道他们的密码是什么,这用在保存密码上是不错的,但如果是一些需要能将密文还原的应用来说就不合适了,所以接下...
  • lpwmm
  • lpwmm
  • 2016年03月06日 23:19
  • 2214

vb 中的MD5加密

1。web项目中方法 : System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile("aaaa", "MD...
  • qiaoshuai0920
  • qiaoshuai0920
  • 2013年04月11日 08:55
  • 1398

MD5加密算法原理及实现

16位和32位MD5的区别如下: 16位加密就是从32位MD5散列中把中间16位提取出来! 原文:http://www.cnblogs.com/hjgods/p/3998570.htm...
  • phoenix06
  • phoenix06
  • 2017年05月15日 14:12
  • 449

MD5加密的简单java实现

MD5加密
  • liu1782291245
  • liu1782291245
  • 2017年06月19日 14:24
  • 12468

MD5加密原理和Java实现

MD5加密算法为现在应用最广泛的哈希算法之一,该算法广泛应用于互联网网站的用户文件加密,能够将用户密码加密为128位的长整数。数据库并不明文存储用户密码,而是在用户登录时将输入密码字符串进行MD5加密...
  • qq_19776363
  • qq_19776363
  • 2015年10月14日 19:50
  • 1060

MD5加密应用之.NET与JAVA差异分析

由于项目的特殊性,在项目中需要使用其他系统数据库中的用户信息对用户进行登录认证。在原系统(.NET所开发的)中,用户密码是进行加密存储的,如果需要使用原系统中现有的数据对用户进行认证,就必须要知道原系...
  • hjl_453444715
  • hjl_453444715
  • 2015年06月13日 15:35
  • 2320

Java MD5加密算法的实现

前 言:在我们日常的编程中,md5加密算法是用的比较多的一种加密方式,一个加密内容只能生成一个加密后的内容,而且还不能进行解密的;所以在日常的生活中用于生成一些本地图片的路径或者是需要生成唯一的字符串...
  • u012417984
  • u012417984
  • 2015年11月14日 18:58
  • 3049

MD5加密算法原理及实现

未知原博客位置,在此感谢作者。 MD5加密算法原理及实现 MD5消息摘要算法,属Hash算法一类。MD5算法对输入任意长度的消息进行运行,产生一个128位的消息摘要。 以下所描述...
  • black_ceo
  • black_ceo
  • 2017年01月10日 22:54
  • 1349

MD5加密算法详细分析_C实现

MD5加密算法 维基百科对其描述: MD5消息摘要算法(英语:MD5 Message-Digest Algorithm),一种被广泛使用的密码散列函数,可以产生出一个128位(16字节)的散列值(h...
  • chudongfang2015
  • chudongfang2015
  • 2016年06月22日 23:14
  • 4288

C++实现MD5加密

MD5相信绝大数人都接触过,也有无数人问过我怎么做MD5解密。 当然,我们知道MD5自然没有办法解密,所以解密也不过是大量已知数据做成字典而已,MD5是不可能通过逆向计算解密的。 为什么呢?因为哈希冲...
  • sm9sun
  • sm9sun
  • 2016年11月25日 12:38
  • 1511
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用VB.NET实现MD5加密
举报原因:
原因补充:

(最多只允许输入30个字)