求VB.NET的MD5算法调用

下面是完整的类，可以设置任意密码

创新互联公司是一家专注于网站制作、网站设计与策划设计,尼玛网站建设哪家好?创新互联公司做网站,专注于网站建设10多年,网设计领域的专业建站公司;建站业务涵盖:尼玛等地区。尼玛做网站价格咨询:18980820575

'DES及md5加密解密----添加引用中添加对system.web的引用。

Imports System.Security.Cryptography

Imports System

Imports System.Text

Imports System.Web

''' summary

''' DES加密类

''' /summary

''' remarks/remarks

Public Class DESEncrypt

Public Sub DESEncrypt()

End Sub

Public Shared Function Encrypt(ByVal Text As String) As String

Return Encrypt(Text, "12345678")

End Function

Public Shared Function Encrypt(ByVal Text As String, ByVal sKey As String) As String

Dim des As New DESCryptoServiceProvider()

Dim inputByteArray As Byte()

inputByteArray = Encoding.Default.GetBytes(Text)

des.Key = ASCIIEncoding.ASCII.GetBytes(System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sKey, "md5").Substring(0, 8))

des.IV = ASCIIEncoding.ASCII.GetBytes(System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sKey, "md5").Substring(0, 8))

Dim ms As New System.IO.MemoryStream()

Dim cs As New CryptoStream(ms, des.CreateEncryptor(), CryptoStreamMode.Write)

cs.Write(inputByteArray, 0, inputByteArray.Length)

cs.FlushFinalBlock()

Dim ret As New StringBuilder()

Dim b As Byte

For Each b In ms.ToArray()

ret.AppendFormat("{0:X2}", b)

Next

Return ret.ToString()

End Function

Public Shared Function Decrypt(ByVal Text As String) As String

Return Decrypt(Text, "12345678")

End Function

Public Shared Function Decrypt(ByVal Text As String, ByVal sKey As String) As String

Dim des As New DESCryptoServiceProvider()

Dim len As Integer

len = Text.Length / 2

Dim inputByteArray(len - 1) As Byte

Dim x, i As Integer

For x = 0 To len - 1

i = Convert.ToInt32(Text.Substring(x * 2, 2), 16)

inputByteArray(x) = CType(i, Byte)

Next

des.Key = ASCIIEncoding.ASCII.GetBytes(System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sKey, "md5").Substring(0, 8))

des.IV = ASCIIEncoding.ASCII.GetBytes(System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sKey, "md5").Substring(0, 8))

Dim ms As New System.IO.MemoryStream()

Dim cs As New CryptoStream(ms, des.CreateDecryptor(), CryptoStreamMode.Write)

cs.Write(inputByteArray, 0, inputByteArray.Length)

cs.FlushFinalBlock()

Return Encoding.Default.GetString(ms.ToArray())

End Function

End Class

'以下是调用方法

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '加密

Dim str_Encrypt As String = DESEncrypt.Encrypt("你要加密的文本，可以是任意长度", "密码，可以很长，如果省略这个参数就是默认的12345678")

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click '解密

Dim str_Decrypt As String = DESEncrypt.Decrypt("你要解密的文本, 可以是任意长度", "加密时用到的密码，如果省略这个参数就是默认的12345678")

End Sub

VB.NET 获取文件MD5值

Public Function md5(ByVal a As String) As String

Dim tempmd5 As System.Security.Cryptography.MD5 = New System.Security.Cryptography.MD5CryptoServiceProvider()

Dim bytResult() As Byte = tempmd5.ComputeHash(System.Text.Encoding.Default.GetBytes(a))

Dim strResult As String = BitConverter.ToString(bytResult)

strResult = strResult.Replace("-", "")

Return strResult

End Function

如果要计算文件的就把参数改成字节数组就可以了，然后获取文件GetBytes（）传进去就可以了。

VB 求一个获取文件MD5值的模块,以及调用方法

以下是MD5代码，将其粘贴到模块中

Option Explicit

Private Const OFFSET_4 = 4294967296#

Private Const MAXINT_4 = 2147483647

Private Const S11 = 7

Private Const S12 = 12

Private Const S13 = 17

Private Const S14 = 22

Private Const S21 = 5

Private Const S22 = 9

Private Const S23 = 14

Private Const S24 = 20

Private Const S31 = 4

Private Const S32 = 11

Private Const S33 = 16

Private Const S34 = 23

Private Const S41 = 6

Private Const S42 = 10

Private Const S43 = 15

Private Const S44 = 21

Private State(4) As Long

Private ByteCounter As Long

Private ByteBuffer(63) As Byte

Property Get RegisterA() As String

RegisterA = State(1)

End Property

Property Get RegisterB() As String

RegisterB = State(2)

End Property

Property Get RegisterC() As String

RegisterC = State(3)

End Property

Property Get RegisterD() As String

RegisterD = State(4)

End Property

Public Function GetMD5(ByVal str As String) As String

GetMD5 = DigestStrToHexStr(str)

End Function

'

' Function to quickly digest a file into a hex string

'

Public Function DigestFileToHexStr(FileName As String) As String

Open FileName For Binary Access Read As #1

MD5Init

Do While Not EOF(1)

Get #1, , ByteBuffer

If Loc(1) LOF(1) Then

ByteCounter = ByteCounter + 64

MD5Transform ByteBuffer

End If

Loop

ByteCounter = ByteCounter + (LOF(1) Mod 64)

Close #1

MD5Final

DigestFileToHexStr = GetValues

End Function

'

' Function to digest a text string and output the result as a string

' of hexadecimal characters.

'

Public Function DigestStrToHexStr(SourceString As String) As String

MD5Init

MD5Update Len(SourceString), StringToArray(SourceString)

MD5Final

DigestStrToHexStr = GetValues

End Function

'

' A utility function which converts a string into an array of

' bytes.

'

Private Function StringToArray(InString As String) As Byte()

Dim i As Integer

Dim bytBuffer() As Byte

ReDim bytBuffer(Len(InString))

For i = 0 To Len(InString) - 1

bytBuffer(i) = Asc(mid(InString, i + 1, 1))

Next i

StringToArray = bytBuffer

End Function

'

' Concatenate the four state vaules into one string

'

Public Function GetValues() As String

GetValues = LongToString(State(1)) LongToString(State(2)) LongToString(State(3)) LongToString(State(4))

End Function

'

' Convert a Long to a Hex string

'

Private Function LongToString(num As Long) As String

Dim a As Byte

Dim b As Byte

Dim c As Byte

Dim d As Byte

a = num And HFF

If a 16 Then

LongToString = "0" Hex(a)

Else

LongToString = Hex(a)

End If

b = (num And HFF00) \ 256

If b 16 Then

LongToString = LongToString "0" Hex(b)

Else

LongToString = LongToString Hex(b)

End If

c = (num And HFF0000) \ 65536

If c 16 Then

LongToString = LongToString "0" Hex(c)

Else

LongToString = LongToString Hex(c)

End If

If num 0 Then

d = ((num And H7F000000) \ 16777216) Or H80

Else

d = (num And HFF000000) \ 16777216

End If

If d 16 Then

LongToString = LongToString "0" Hex(d)

Else

LongToString = LongToString Hex(d)

End If

End Function

'

' Initialize the class

' This must be called before a digest calculation is started

'

Public Sub MD5Init()

ByteCounter = 0

State(1) = UnsignedToLong(1732584193#)

State(2) = UnsignedToLong(4023233417#)

State(3) = UnsignedToLong(2562383102#)

State(4) = UnsignedToLong(271733878#)

End Sub

'

' MD5 Final

'

Public Sub MD5Final()

Dim dblBits As Double

Dim padding(72) As Byte

Dim lngBytesBuffered As Long

padding(0) = H80

dblBits = ByteCounter * 8

' Pad out

lngBytesBuffered = ByteCounter Mod 64

If lngBytesBuffered = 56 Then

MD5Update 56 - lngBytesBuffered, padding

Else

MD5Update 120 - ByteCounter, padding

End If

padding(0) = UnsignedToLong(dblBits) And HFF

padding(1) = UnsignedToLong(dblBits) \ 256 And HFF

padding(2) = UnsignedToLong(dblBits) \ 65536 And HFF

padding(3) = UnsignedToLong(dblBits) \ 16777216 And HFF

padding(4) = 0

padding(5) = 0

padding(6) = 0

padding(7) = 0

MD5Update 8, padding

End Sub

'

' Break up input stream into 64 byte chunks

'

Public Sub MD5Update(InputLen As Long, InputBuffer() As Byte)

Dim II As Integer

Dim i As Integer

Dim j As Integer

Dim k As Integer

Dim lngBufferedBytes As Long

Dim lngBufferRemaining As Long

Dim lngRem As Long

lngBufferedBytes = ByteCounter Mod 64

lngBufferRemaining = 64 - lngBufferedBytes

ByteCounter = ByteCounter + InputLen

' Use up old buffer results first

If InputLen = lngBufferRemaining Then

For II = 0 To lngBufferRemaining - 1

ByteBuffer(lngBufferedBytes + II) = InputBuffer(II)

Next II

MD5Transform ByteBuffer

lngRem = (InputLen) Mod 64

' The transfer is a multiple of 64 lets do some transformations

For i = lngBufferRemaining To InputLen - II - lngRem Step 64

For j = 0 To 63

ByteBuffer(j) = InputBuffer(i + j)

Next j

MD5Transform ByteBuffer

Next i

lngBufferedBytes = 0

Else

i = 0

End If

' Buffer any remaining input

For k = 0 To InputLen - i - 1

ByteBuffer(lngBufferedBytes + k) = InputBuffer(i + k)

Next k

End Sub

'

' MD5 Transform

'

Private Sub MD5Transform(Buffer() As Byte)

Dim x(16) As Long

Dim a As Long

Dim b As Long

Dim c As Long

Dim d As Long

a = State(1)

b = State(2)

c = State(3)

d = State(4)

Decode 64, x, Buffer

' Round 1

FF a, b, c, d, x(0), S11, -680876936

FF d, a, b, c, x(1), S12, -389564586

FF c, d, a, b, x(2), S13, 606105819

FF b, c, d, a, x(3), S14, -1044525330

FF a, b, c, d, x(4), S11, -176418897

FF d, a, b, c, x(5), S12, 1200080426

FF c, d, a, b, x(6), S13, -1473231341

FF b, c, d, a, x(7), S14, -45705983

FF a, b, c, d, x(8), S11, 1770035416

FF d, a, b, c, x(9), S12, -1958414417

FF c, d, a, b, x(10), S13, -42063

FF b, c, d, a, x(11), S14, -1990404162

FF a, b, c, d, x(12), S11, 1804603682

FF d, a, b, c, x(13), S12, -40341101

FF c, d, a, b, x(14), S13, -1502002290

FF b, c, d, a, x(15), S14, 1236535329

' Round 2

GG a, b, c, d, x(1), S21, -165796510

GG d, a, b, c, x(6), S22, -1069501632

GG c, d, a, b, x(11), S23, 643717713

GG b, c, d, a, x(0), S24, -373897302

GG a, b, c, d, x(5), S21, -701558691

GG d, a, b, c, x(10), S22, 38016083

GG c, d, a, b, x(15), S23, -660478335

GG b, c, d, a, x(4), S24, -405537848

GG a, b, c, d, x(9), S21, 568446438

GG d, a, b, c, x(14), S22, -1019803690

GG c, d, a, b, x(3), S23, -187363961

GG b, c, d, a, x(8), S24, 1163531501

GG a, b, c, d, x(13), S21, -1444681467

GG d, a, b, c, x(2), S22, -51403784

GG c, d, a, b, x(7), S23, 1735328473

GG b, c, d, a, x(12), S24, -1926607734

' Round 3

HH a, b, c, d, x(5), S31, -378558

HH d, a, b, c, x(8), S32, -2022574463

HH c, d, a, b, x(11), S33, 1839030562

HH b, c, d, a, x(14), S34, -35309556

HH a, b, c, d, x(1), S31, -1530992060

HH d, a, b, c, x(4), S32, 1272893353

HH c, d, a, b, x(7), S33, -155497632

HH b, c, d, a, x(10), S34, -1094730640

HH a, b, c, d, x(13), S31, 681279174

HH d, a, b, c, x(0), S32, -358537222

HH c, d, a, b, x(3), S33, -722521979

HH b, c, d, a, x(6), S34, 76029189

HH a, b, c, d, x(9), S31, -640364487

HH d, a, b, c, x(12), S32, -421815835

HH c, d, a, b, x(15), S33, 530742520

HH b, c, d, a, x(2), S34, -995338651

' Round 4

II a, b, c, d, x(0), S41, -198630844

II d, a, b, c, x(7), S42, 1126891415

II c, d, a, b, x(14), S43, -1416354905

II b, c, d, a, x(5), S44, -57434055

II a, b, c, d, x(12), S41, 1700485571

II d, a, b, c, x(3), S42, -1894986606

II c, d, a, b, x(10), S43, -1051523

II b, c, d, a, x(1), S44, -2054922799

II a, b, c, d, x(8), S41, 1873313359

II d, a, b, c, x(15), S42, -30611744

II c, d, a, b, x(6), S43, -1560198380

II b, c, d, a, x(13), S44, 1309151649

II a, b, c, d, x(4), S41, -145523070

II d, a, b, c, x(11), S42, -1120210379

II c, d, a, b, x(2), S43, 718787259

II b, c, d, a, x(9), S44, -343485551

State(1) = LongOverflowAdd(State(1), a)

State(2) = LongOverflowAdd(State(2), b)

State(3) = LongOverflowAdd(State(3), c)

State(4) = LongOverflowAdd(State(4), d)

' /* Zeroize sensitive information.

'*/

' MD5_memset ((POINTER)x, 0, sizeof (x));

' Rotate a long to the right

'

Function LongLeftRotate(value As Long, bits As Long) As Long

Dim lngSign As Long

Dim lngI As Long

bits = bits Mod 32

If bits = 0 Then LongLeftRotate = value: Exit Function

For lng

'

Private Function LongOverflowAdd(Val1 As Long, Val2 As Long) As Long

Dim lngHighWord As Long

Dim lngLowWord As Long

LongOverflowAdd = UnsignedToLong((lngHighWord * 65536#) + (lngLowWord And HFFFF))

End Function

'

' Function to add two unsigned numbers together as in C.

' Overflows are ignored!

'

Private Function LongOverflowAdd4(Val1 As Long, Val2 As Long, val3 As Long, val4 As Long) As Long

Dim lngHighWord As Long

Dim lngLowWord As Long

Dim lngOverflow As Long

lngLowWord = (Val1 And HFFFF) + (Val2 And HFFFF) + (val3 And HFFFF) + (val4 And HFFFF)

lngOverflow = lngLowWord \ 65536

lngHighWord = (((Val1 And HFFFF0000) \ 65536) + _

((Val2 And HFFFF0000) \ 65536) + _

((val3 And HFFFF0000) \ 65536) + _

((val4 And HFFFF0000) \ 65536) + _

lngOverflow) And HFFFF

LongOverflowAdd4 = UnsignedToLong((lngHighWord * 65536#) + (lngLowWord

IF pss GetMD5(Txtpassword) THEN

。。。。

网站标题：vb.netmd5调用 vb md5
文章地址：http://kswjz.com/article/hgheep.html