用VB实现MD5加密

md5加密运算是不可逆的，就是说不能通过那一串古古怪怪的东西算出它原始的样子。

成都创新互联专注为客户提供全方位的互联网综合服务，包含不限于网站制作、成都网站制作、自流井网络推广、重庆小程序开发公司、自流井网络营销、自流井企业策划、自流井品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；成都创新互联为所有大学生创业者提供自流井建站搭建服务，24小时服务热线：13518219792，官方网址：www.cdcxhl.com

以下提供VB可用的16位和32位MD5加密函数代码：

Private Const BITS_TO_A_BYTE = 8

Private Const BYTES_TO_A_WORD = 4

Private Const BITS_TO_A_WORD = 32

Private m_lOnBits(30)

Private m_l2Power(30)

Private Function LShift(lValue, iShiftBits)

If iShiftBits = 0 Then

LShift = lValue

Exit Function

ElseIf iShiftBits = 31 Then

If lValue And 1 Then

LShift = H80000000

Else

LShift = 0

End If

Exit Function

ElseIf iShiftBits  0 Or iShiftBits  31 Then

Err.Raise 6

End If

If (lValue And m_l2Power(31 - iShiftBits)) Then

LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or H80000000

Else

LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))

End If

End Function

Private Function RShift(lValue, iShiftBits)

If iShiftBits = 0 Then

RShift = lValue

Exit Function

ElseIf iShiftBits = 31 Then

If lValue And H80000000 Then

RShift = 1

Else

RShift = 0

End If

Exit Function

ElseIf iShiftBits  0 Or iShiftBits  31 Then

Err.Raise 6

End If

RShift = (lValue And H7FFFFFFE) \ m_l2Power(iShiftBits)

If (lValue And H80000000) Then

RShift = (RShift Or (H40000000 \ m_l2Power(iShiftBits - 1)))

End If

End Function

Private Function RotateLeft(lValue, iShiftBits)

RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))

End Function

Private Function AddUnsigned(lX, lY)

Dim lX4

Dim lY4

Dim lX8

Dim lY8

Dim lResult

lX8 = lX And H80000000

lY8 = lY And H80000000

lX4 = lX And H40000000

lY4 = lY And H40000000

lResult = (lX And H3FFFFFFF) + (lY And H3FFFFFFF)

If lX4 And lY4 Then

lResult = lResult Xor H80000000 Xor lX8 Xor lY8

ElseIf lX4 Or lY4 Then

If lResult And H40000000 Then

lResult = lResult Xor HC0000000 Xor lX8 Xor lY8

Else

lResult = lResult Xor H40000000 Xor lX8 Xor lY8

End If

Else

lResult = lResult Xor lX8 Xor lY8

End If

AddUnsigned = lResult

End Function

Private Function md5_F(x, y, z)

md5_F = (x And y) Or ((Not x) And z)

End Function

Private Function md5_G(x, y, z)

md5_G = (x And z) Or (y And (Not z))

End Function

Private Function md5_H(x, y, z)

md5_H = (x Xor y Xor z)

End Function

Private Function md5_I(x, y, z)

md5_I = (y Xor (x Or (Not z)))

End Function

Private Sub md5_FF(a, b, c, d, x, s, ac)

a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), x), ac))

a = RotateLeft(a, s)

a = AddUnsigned(a, b)

End Sub

Private Sub md5_GG(a, b, c, d, x, s, ac)

a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_G(b, c, d), x), ac))

a = RotateLeft(a, s)

a = AddUnsigned(a, b)

End Sub

Private Sub md5_HH(a, b, c, d, x, s, ac)

a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d), x), ac))

a = RotateLeft(a, s)

a = AddUnsigned(a, b)

End Sub

Private Sub md5_II(a, b, c, d, x, s, ac)

a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_I(b, c, d), x), ac))

a = RotateLeft(a, s)

a = AddUnsigned(a, b)

End Sub

Private Function ConvertToWordArray(sMessage)

Dim lMessageLength

Dim lNumberOfWords

Dim lWordArray()

Dim lBytePosition

Dim lByteCount

Dim lWordCount

Const MODULUS_BITS = 512

Const CONGRUENT_BITS = 448

lMessageLength = Len(sMessage)

lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD)

ReDim lWordArray(lNumberOfWords - 1)

lBytePosition = 0

lByteCount = 0

Do Until lByteCount = lMessageLength

lWordCount = lByteCount \ BYTES_TO_A_WORD

lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE

lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)

lByteCount = lByteCount + 1

Loop

lWordCount = lByteCount \ BYTES_TO_A_WORD

lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE

lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(H80, lBytePosition)

lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)

lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29)

ConvertToWordArray = lWordArray

End Function

Private Function WordToHex(lValue)

Dim lByte

Dim lCount

For lCount = 0 To 3

lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)

WordToHex = WordToHex  Right("0"  Hex(lByte), 2)

Next

End Function

Public Function MD5(sMessage, stype)

m_lOnBits(0) = CLng(1)

m_lOnBits(1) = CLng(3)

m_lOnBits(2) = CLng(7)

m_lOnBits(3) = CLng(15)

m_lOnBits(4) = CLng(31)

m_lOnBits(5) = CLng(63)

m_lOnBits(6) = CLng(127)

m_lOnBits(7) = CLng(255)

m_lOnBits(8) = CLng(511)

m_lOnBits(9) = CLng(1023)

m_lOnBits(10) = CLng(2047)

m_lOnBits(11) = CLng(4095)

m_lOnBits(12) = CLng(8191)

m_lOnBits(13) = CLng(16383)

m_lOnBits(14) = CLng(32767)

m_lOnBits(15) = CLng(65535)

m_lOnBits(16) = CLng(131071)

m_lOnBits(17) = CLng(262143)

m_lOnBits(18) = CLng(524287)

m_lOnBits(19) = CLng(1048575)

m_lOnBits(20) = CLng(2097151)

m_lOnBits(21) = CLng(4194303)

m_lOnBits(22) = CLng(8388607)

m_lOnBits(23) = CLng(16777215)

m_lOnBits(24) = CLng(33554431)

m_lOnBits(25) = CLng(67108863)

m_lOnBits(26) = CLng(134217727)

m_lOnBits(27) = CLng(268435455)

m_lOnBits(28) = CLng(536870911)

m_lOnBits(29) = CLng(1073741823)

m_lOnBits(30) = CLng(2147483647)

m_l2Power(0) = CLng(1)

m_l2Power(1) = CLng(2)

m_l2Power(2) = CLng(4)

m_l2Power(3) = CLng(8)

m_l2Power(4) = CLng(16)

m_l2Power(5) = CLng(32)

m_l2Power(6) = CLng(64)

m_l2Power(7) = CLng(128)

m_l2Power(8) = CLng(256)

m_l2Power(9) = CLng(512)

m_l2Power(10) = CLng(1024)

m_l2Power(11) = CLng(2048)

m_l2Power(12) = CLng(4096)

m_l2Power(13) = CLng(8192)

m_l2Power(14) = CLng(16384)

m_l2Power(15) = CLng(32768)

m_l2Power(16) = CLng(65536)

m_l2Power(17) = CLng(131072)

m_l2Power(18) = CLng(262144)

m_l2Power(19) = CLng(524288)

m_l2Power(20) = CLng(1048576)

m_l2Power(21) = CLng(2097152)

m_l2Power(22) = CLng(4194304)

m_l2Power(23) = CLng(8388608)

m_l2Power(24) = CLng(16777216)

m_l2Power(25) = CLng(33554432)

m_l2Power(26) = CLng(67108864)

m_l2Power(27) = CLng(134217728)

m_l2Power(28) = CLng(268435456)

m_l2Power(29) = CLng(536870912)

m_l2Power(30) = CLng(1073741824)

Dim x

Dim k

Dim AA

Dim BB

Dim CC

Dim DD

Dim a

Dim b

Dim c

Dim d

Const S11 = 7

Const S12 = 12

Const S13 = 17

Const S14 = 22

Const S21 = 5

Const S22 = 9

Const S23 = 14

Const S24 = 20

Const S31 = 4

Const S32 = 11

Const S33 = 16

Const S34 = 23

Const S41 = 6

Const S42 = 10

Const S43 = 15

Const S44 = 21

x = ConvertToWordArray(sMessage)

a = H67452301

b = HEFCDAB89

c = H98BADCFE

d = H10325476

For k = 0 To UBound(x) Step 16

AA = a

BB = b

CC = c

DD = d

md5_FF a, b, c, d, x(k + 0), S11, HD76AA478

md5_FF d, a, b, c, x(k + 1), S12, HE8C7B756

md5_FF c, d, a, b, x(k + 2), S13, H242070DB

md5_FF b, c, d, a, x(k + 3), S14, HC1BDCEEE

md5_FF a, b, c, d, x(k + 4), S11, HF57C0FAF

md5_FF d, a, b, c, x(k + 5), S12, H4787C62A

md5_FF c, d, a, b, x(k + 6), S13, HA8304613

md5_FF b, c, d, a, x(k + 7), S14, HFD469501

md5_FF a, b, c, d, x(k + 8), S11, H698098D8

md5_FF d, a, b, c, x(k + 9), S12, H8B44F7AF

md5_FF c, d, a, b, x(k + 10), S13, HFFFF5BB1

md5_FF b, c, d, a, x(k + 11), S14, H895CD7BE

md5_FF a, b, c, d, x(k + 12), S11, H6B901122

md5_FF d, a, b, c, x(k + 13), S12, HFD987193

md5_FF c, d, a, b, x(k + 14), S13, HA679438E

md5_FF b, c, d, a, x(k + 15), S14, H49B40821

md5_GG a, b, c, d, x(k + 1), S21, HF61E2562

md5_GG d, a, b, c, x(k + 6), S22, HC040B340

md5_GG c, d, a, b, x(k + 11), S23, H265E5A51

md5_GG b, c, d, a, x(k + 0), S24, HE9B6C7AA

md5_GG a, b, c, d, x(k + 5), S21, HD62F105D

md5_GG d, a, b, c, x(k + 10), S22, H2441453

md5_GG c, d, a, b, x(k + 15), S23, HD8A1E681

md5_GG b, c, d, a, x(k + 4), S24, HE7D3FBC8

md5_GG a, b, c, d, x(k + 9), S21, H21E1CDE6

md5_GG d, a, b, c, x(k + 14), S22, HC33707D6

md5_GG c, d, a, b, x(k + 3), S23, HF4D50D87

md5_GG b, c, d, a, x(k + 8), S24, H455A14ED

md5_GG a, b, c, d, x(k + 13), S21, HA9E3E905

md5_GG d, a, b, c, x(k + 2), S22, HFCEFA3F8

md5_GG c, d, a, b, x(k + 7), S23, H676F02D9

md5_GG b, c, d, a, x(k + 12), S24, H8D2A4C8A

md5_HH a, b, c, d, x(k + 5), S31, HFFFA3942

md5_HH d, a, b, c, x(k + 8), S32, H8771F681

md5_HH c, d, a, b, x(k + 11), S33, H6D9D6122

md5_HH b, c, d, a, x(k + 14), S34, HFDE5380C

md5_HH a, b, c, d, x(k + 1), S31, HA4BEEA44

md5_HH d, a, b, c, x(k + 4), S32, H4BDECFA9

md5_HH c, d, a, b, x(k + 7), S33, HF6BB4B60

md5_HH b, c, d, a, x(k + 10), S34, HBEBFBC70

md5_HH a, b, c, d, x(k + 13), S31, H289B7EC6

md5_HH d, a, b, c, x(k + 0), S32, HEAA127FA

md5_HH c, d, a, b, x(k + 3), S33, HD4EF3085

md5_HH b, c, d, a, x(k + 6), S34, H4881D05

md5_HH a, b, c, d, x(k + 9), S31, HD9D4D039

md5_HH d, a, b, c, x(k + 12), S32, HE6DB99E5

md5_HH c, d, a, b, x(k + 15), S33, H1FA27CF8

md5_HH b, c, d, a, x(k + 2), S34, HC4AC5665

md5_II a, b, c, d, x(k + 0), S41, HF4292244

md5_II d, a, b, c, x(k + 7), S42, H432AFF97

md5_II c, d, a, b, x(k + 14), S43, HAB9423A7

md5_II b, c, d, a, x(k + 5), S44, HFC93A039

md5_II a, b, c, d, x(k + 12), S41, H655B59C3

md5_II d, a, b, c, x(k + 3), S42, H8F0CCC92

md5_II c, d, a, b, x(k + 10), S43, HFFEFF47D

md5_II b, c, d, a, x(k + 1), S44, H85845DD1

md5_II a, b, c, d, x(k + 8), S41, H6FA87E4F

md5_II d, a, b, c, x(k + 15), S42, HFE2CE6E0

md5_II c, d, a, b, x(k + 6), S43, HA3014314

md5_II b, c, d, a, x(k + 13), S44, H4E0811A1

md5_II a, b, c, d, x(k + 4), S41, HF7537E82

md5_II d, a, b, c, x(k + 11), S42, HBD3AF235

md5_II c, d, a, b, x(k + 2), S43, H2AD7D2BB

md5_II b, c, d, a, x(k + 9), S44, HEB86D391

a = AddUnsigned(a, AA)

b = AddUnsigned(b, BB)

c = AddUnsigned(c, CC)

d = AddUnsigned(d, DD)

Next

If stype = 32 Then

MD5 = LCase(WordToHex(a)  WordToHex(b)  WordToHex(c)  WordToHex(d))

Else

MD5 = LCase(WordToHex(b)  WordToHex(c))

End If

End Function

'下面是测试代码

Sub test()

MsgBox MD5("a", 16) '16位加密

MsgBox MD5("a", 32) '32位加密

End Sub

vb.net 怎么计算选择的文件md5值，写在textbox中？

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 值

给一个bas模块文件你

VERSION 1.0 CLASS

BEGIN

MultiUse = -1 'True

Persistable = 0 'NotPersistable

DataBindingBehavior = 0 'vbNone

DataSourceBehavior = 0 'vbNone

MTSTransactionMode = 0 'NotAnMTSObject

END

Attribute VB_Name = "ClsMD5"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = True

Attribute VB_PredeclaredId = False

Attribute VB_Exposed = False

'*************************************************************************

'**模 块 名：ClsMD5

'**说 明：MD5相关计算

'**创 建 人：马大哈

'**日 期：2005年2月15日

'**版 本：V1.0

'*************************************************************************

Option Explicit

' Visual Basic MD5 Implementation

' Robert Hubley and David Midkiff (mdj2023@hotmail.com)

' modify by simonyan, Support chinese

' Standard MD5 implementation optimised for the Visual Basic environment.

' Conforms to all standards and can be used in digital signature or password

' protection related schemes.

Private Const OFFSET_4 = 4294967296#

Private Const MAXINT_4 = 2147483647

Private State(4) As Long

Private ByteCounter As Long

Private ByteBuffer(63) As Byte

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

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 Md5_String_Calc(SourceString As String) As String

MD5Init

MD5Update LenB(StrConv(SourceString, vbFromUnicode)), StringToArray(SourceString)

MD5Final

Md5_String_Calc = GetValues

End Function

Public Function Md5_File_Calc(InFile As String) As String

On Error GoTo errorhandler

GoSub begin

errorhandler:

' DigestFileToHexStr = ""

Exit Function

begin:

Dim FileO As Integer

FileO = FreeFile

Call FileLen(InFile)

Open InFile For Binary Access Read As #FileO

MD5Init

Do While Not EOF(FileO)

Get #FileO, , ByteBuffer

If Loc(FileO) LOF(FileO) Then

ByteCounter = ByteCounter + 64

MD5Transform ByteBuffer

End If

Loop

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

Close #FileO

MD5Final

Md5_File_Calc = GetValues

End Function

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

Dim I As Integer, bytBuffer() As Byte

ReDim bytBuffer(LenB(StrConv(InString, vbFromUnicode)))

bytBuffer = StrConv(InString, vbFromUnicode)

StringToArray = bytBuffer

End Function

Public Function GetValues() As String

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

End Function

Private Function LongToString(Num As Long) As String

Dim A As Byte, B As Byte, C As Byte, D As Byte

A = Num And HFF

If A 16 Then LongToString = "0" Hex(A) Else LongToString = Hex(A)

B = (Num And HFF00) \ 256

If B 16 Then LongToString = LongToString "0" Hex(B) Else LongToString = LongToString Hex(B)

C = (Num And HFF0000) \ 65536

If C 16 Then LongToString = LongToString "0" Hex(C) Else LongToString = LongToString Hex(C)

If Num 0 Then D = ((Num And H7F000000) \ 16777216) Or H80 Else D = (Num And HFF000000) \ 16777216

If D 16 Then LongToString = LongToString "0" Hex(D) Else LongToString = LongToString Hex(D)

End Function

Public Sub MD5Init()

ByteCounter = 0

State(1) = UnsignedToLong(1732584193#)

State(2) = UnsignedToLong(4023233417#)

State(3) = UnsignedToLong(2562383102#)

State(4) = UnsignedToLong(271733878#)

End Sub

Public Sub MD5Final()

Dim dblBits As Double, padding(72) As Byte, lngBytesBuffered As Long

padding(0) = H80

dblBits = ByteCounter * 8

lngBytesBuffered = ByteCounter Mod 64

If lngBytesBuffered = 56 Then MD5Update 56 - lngBytesBuffered, padding Else MD5Update 120 - ByteCounter, padding

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

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

Dim II As Integer, I As Integer, J As Integer, K As Integer, lngBufferedBytes As Long, lngBufferRemaining As Long, lngRem As Long

lngBufferedBytes = ByteCounter Mod 64

lngBufferRemaining = 64 - lngBufferedBytes

ByteCounter = ByteCounter + InputLen

If InputLen = lngBufferRemaining Then

For II = 0 To lngBufferRemaining - 1

ByteBuffer(lngBufferedBytes + II) = InputBuffer(II)

Next II

MD5Transform ByteBuffer

lngRem = (InputLen) Mod 64

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

For K = 0 To InputLen - I - 1

ByteBuffer(lngBufferedBytes + K) = InputBuffer(I + K)

Next K

End Sub

Private Sub MD5Transform(Buffer() As Byte)

Dim x(16) As Long, A As Long, B As Long, C As Long, D As Long

A = State(1)

B = State(2)

C = State(3)

D = State(4)

Decode 64, x, Buffer

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

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

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

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)

End Sub

Private Sub Decode(Length As Integer, OutputBuffer() As Long, InputBuffer() As Byte)

Dim intDblIndex As Integer, intByteIndex As Integer, dblSum As Double

For intByteIndex = 0 To Length - 1 Step 4

dblSum = InputBuffer(intByteIndex) + InputBuffer(intByteIndex + 1) * 256# + InputBuffer(intByteIndex + 2) * 65536# + InputBuffer(intByteIndex + 3) * 16777216#

OutputBuffer(intDblIndex) = UnsignedToLong(dblSum)

intDblIndex = intDblIndex + 1

Next intByteIndex

End Sub

Private Function FF(A As Long, B As Long, C As Long, D As Long, x As Long, S As Long, ac As Long) As Long

A = LongOverflowAdd4(A, (B And C) Or (Not (B) And D), x, ac)

A = LongLeftRotate(A, S)

A = LongOverflowAdd(A, B)

End Function

Private Function GG(A As Long, B As Long, C As Long, D As Long, x As Long, S As Long, ac As Long) As Long

A = LongOverflowAdd4(A, (B And D) Or (C And Not (D)), x, ac)

A = LongLeftRotate(A, S)

A = LongOverflowAdd(A, B)

End Function

Private Function HH(A As Long, B As Long, C As Long, D As Long, x As Long, S As Long, ac As Long) As Long

A = LongOverflowAdd4(A, B Xor C Xor D, x, ac)

A = LongLeftRotate(A, S)

A = LongOverflowAdd(A, B)

End Function

Private Function II(A As Long, B As Long, C As Long, D As Long, x As Long, S As Long, ac As Long) As Long

A = LongOverflowAdd4(A, C Xor (B Or Not (D)), x, ac)

A = LongLeftRotate(A, S)

A = LongOverflowAdd(A, B)

End Function

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

Dim lngSign As Long, lngI As Long

Bits = Bits Mod 32

If Bits = 0 Then LongLeftRotate = value: Exit Function

For lngI = 1 To Bits

lngSign = value And HC0000000

value = (value And H3FFFFFFF) * 2

value = value Or ((lngSign 0) And 1) Or (CBool(lngSign And H40000000) And H80000000)

Next

LongLeftRotate = value

End Function

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

Dim lngHighWord As Long, lngLowWord As Long, lngOverflow As Long

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

lngOverflow = lngLowWord \ 65536

lngHighWord = (((Val1 And HFFFF0000) \ 65536) + ((Val2 And HFFFF0000) \ 65536) + lngOverflow) And HFFFF

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

End Function

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

Dim lngHighWord As Long, lngLowWord As Long, 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 And HFFFF))

End Function

Private Function UnsignedToLong(value As Double) As Long

If value 0 Or value = OFFSET_4 Then Error 6

If value = MAXINT_4 Then UnsignedToLong = value Else UnsignedToLong = value - OFFSET_4

End Function

Private Function LongToUnsigned(value As Long) As Double

If value 0 Then LongToUnsigned = value + OFFSET_4 Else LongToUnsigned = value

End Function

怎么在.net上实现MD5crypt的加密（最好vb.net代码）

MD5实际一种单向的算法，是散列，很多人认为是加密，实际有误

比如说winxp、win7各版本都有MD5值，那么是否可依据这个值还原出个正版的winxp或win7呢？

况且MD5“加密”的密钥长度又是多少呢?比如des的不同版本有64位、128位、192位等

求VB.NET的MD5算法调用

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

'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或其他的加密算法

注意参数，Text是密文。sKey是你的加密干扰符

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

Dim provider As New DESCryptoServiceProvider()

Dim num As Integer = Text.Length \ 2

Dim buffer As Byte() = New Byte(num - 1) {}

For i As Integer = 0 To num - 1

Dim num3 As Integer = Convert.ToInt32(Text.Substring(i * 2, 2), H10)

buffer(i) = CByte(num3)

Next

provider.Key = Encoding.ASCII.GetBytes(FormsAuthentication.HashPasswordForStoringInConfigFile(sKey, "md5").Substring(0, 8))

provider.IV = Encoding.ASCII.GetBytes(FormsAuthentication.HashPasswordForStoringInConfigFile(sKey, "md5").Substring(0, 8))

Dim stream As New MemoryStream()

Dim stream2 As New CryptoStream(stream, provider.CreateDecryptor(), CryptoStreamMode.Write)

stream2.Write(buffer, 0, buffer.Length)

stream2.FlushFinalBlock()

Return Encoding.[Default].GetString(stream.ToArray())

End Function

本文题目：vb.netmd5算法,vb 算法
浏览地址：http://kswjz.com/article/dsegpip.html