用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中MD5加密

Function MD5(ByVal strSource As String, ByVal Code As Int16) As String Dim dataToHash As By...
  • bigheadsheep
  • bigheadsheep
  • 2013-08-09 14:21:09
  • 2447

VB.NET里的MD5加密函数

   Imports System.Security.Cryptography Public Function Md5hash_String(ByVal InputString As String) ...
  • jujuchen
  • jujuchen
  • 2007-06-05 11:35:00
  • 520

VB.net中使用MD5加密

Imports System.IOImports System.SecurityImports System.Security.CryptographyImports System.Text    P...
  • iimmeric
  • iimmeric
  • 2008-04-25 14:45:00
  • 118

用VB.NET实现MD5加密

Imports System.TextImports System.Security.CryptographyPublic Class Form1Class Form1    Inherits Sy...
  • jabby12
  • jabby12
  • 2004-08-02 17:15:00
  • 5625

<em>vb</em> <em>MD5加密</em>解密

vb 中的<em>MD5加密</em> VB中实现<em>MD5加密</em> <em>VB.NET</em> 的 DES 加密与解密(转载于nofort博客) <em>VB.NET</em>中<em>MD5加密</em> 上传资源 danneler 关注 积分260 查看全部15个资源...
  • 2018年04月14日 00:00

(vb.net)MD5 32位加密小写输入

vb.net  Imports System.Security.Cryptography Public Shared Function funcMD5(ByVal str As String)...
  • angle_greensky110
  • angle_greensky110
  • 2016-12-30 16:20:21
  • 572

vb.net md5加密字符串

一下是我编程时,网上复制的,调试时发觉和我以前VB6的输出结果有出入,我做了一点修改。    Public Function MD5(ByVal StrSource As String, ByVal ...
  • jiangmaple
  • jiangmaple
  • 2010-10-17 19:18:00
  • 476

VB.net MD5加密

 Function MD5(ByVal strSource As String, ByVal Code As Int16) As String        Dim dataToHash As Byt...
  • polloo2012
  • polloo2012
  • 2018-02-28 21:05:42
  • 21

.net md5加密后的代码

利用下面的方法,可直接输入数据,反回md5加密后的代码/// /// 用md5加密/// /// 输入的数据/// public static string MD5(string Sourcein){...
  • evenbing
  • evenbing
  • 2007-09-13 15:57:00
  • 1563

使用Windows提供dll实现MD5加密

#include #pragma hdrstop #include #include //----------------------------------------------...
  • qq752923276
  • qq752923276
  • 2012-01-31 14:56:08
  • 2815
收藏助手
不良信息举报
您举报文章:用VB.NET实现MD5加密
举报原因:
原因补充:

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