计算机如何用vb文本加密,VB中实现MD5加密

VB中实现MD5加密

来源：网络发布时间：2010-02-25

’ 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));

End Sub

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

Dim intDblIndex As Integer

Dim intByteIndex As Integer

Dim dblSum As Double

intDblIndex = 0

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

’

’ FF, GG, HH, and II transformations for rounds 1, 2, 3, and 4.

’ Rotation is separate from addition to prevent recomputation.

’

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

【纠错】