Source code for stringhash.vbs

```
Option Explicit
```
```
 
```
```
Dim intValid
```
```
Dim objMD5, objSHA256
```
```
Dim strAlgorithm, strHash, strString
```
```
 
```
```
intValid = 0
```
```
 
```
```
With WScript.Arguments.Named
```
```
	If .Count <> 2 Then Syntax
```
```
	If .Exists("A") Then
```
```
		strAlgorithm = UCase( .Item("A") )
```
```
		intValid = intValid + 1
```
```
	End If
```
```
	If .Exists("S") Then
```
```
		strString = .Item("S")
```
```
		intValid = intValid + 1
```
```
	End If
```
```
End With
```

If intValid <> WScript.Arguments.Count Then Syntax

```
 
```
```
Select Case strAlgorithm
```
```
	Case "MD5"
```
```
		Set objMD5 = New MD5
```
```
		strHash = objMD5.hash( strString )
```
```
		Set objMD5 = Nothing
```
```
	Case "SHA256", "SHA-256"
```
```
		Set objSHA256 = New SHA256
```

		strHash = objSHA256.SHA256( strString )

```
		Set objSHA256 = Nothing
```
```
	Case Else
```
```
		Syntax
```
```
End Select
```
```
 
```
```
WScript.Echo strHash
```
```
 
```
```
 
```
```
 
```
```
 
```
```
Sub Syntax
```
```
	Dim strMsg
```
```
	strMsg = vbCrLf _
```

	       & "StringHash.vbs,  Version 1.00" _

```
	       & vbCrLf _
```

	       & "Get the MD5 or SHA-256 hash value for the specified string" _

```
	       & vbCrLf & vbCrLf _
```

	       & "Usage:  CSCRIPT  //NoLogo  StringHash.vbs  /A:hashAlgorithm  /S:""string""" _

```
	       & vbCrLf & vbCrLf _
```

	       & "Where:  hashAlgorithm  is either MD5 or SHA256" _

```
	       & vbCrLf _
```

	       & "        string         must be enclosed in doublequotes if it contains spaces" _

```
	       & vbCrLf & vbCrLf _
```

	       & "Note:   This script uses the MD5 and SHA256 classes by Frez Systems Limited," _

```
	       & vbCrLf _
```

	       & "        http://www.frez.co.uk, which were adapted for use in VBScript" _

```
	       & vbCrLf _
```

	       & "        by Michal Gabrukiewicz (MD5) and Rob van der Woude (SHA-256)" _

```
	       & vbCrLf & vbCrLf _
```

	       & "Written by Rob van der Woude" _

```
	       & vbCrLf _
```

	       & "http://www.robvanderwoude.com"

```
	WScript.Echo strMsg
```
```
	WScript.Quit 1
```
```
End Sub
```
```
 
```
```
 
```
```
 
```

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

'** Code modified for use as class by Rob van der Woude **

'** http://www.robvanderwoude.com                       **

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

```
 
```

' See the VB6 project that accompanies this sample for full code comments on how

```
' it works.
```
```
'
```

' ASP VBScript code for generating a SHA256 'digest' or 'signature' of a string. The

' MD5 algorithm is one of the industry standard methods for generating digital

' signatures. It is generically known as a digest, digital signature, one-way

' encryption, hash or checksum algorithm. A common use for SHA256 is for password

' encryption as it is one-way in nature, that does not mean that your passwords

' are not free from a dictionary attack.

```
'
```

' If you are using the routine for passwords, you can make it a little more secure

' by concatenating some known random characters to the password before you generate

' the signature and on subsequent tests, so even if a hacker knows you are using

' SHA-256 for your passwords, the random characters will make it harder to dictionary

```
' attack.
```
```
'
```

' NOTE: Due to the way in which the string is processed the routine assumes a

' single byte character set. VB passes unicode (2-byte) character strings, the

' ConvertToWordArray function uses on the first byte for each character. This

' has been done this way for ease of use, to make the routine truely portable

' you could accept a byte array instead, it would then be up to the calling

' routine to make sure that the byte array is generated from their string in

' a manner consistent with the string type.

```
'
```

' This is 'free' software with the following restrictions:

```
'
```

' You may not redistribute this code as a 'sample' or 'demo'. However, you are free

' to use the source code in your own code, but you may not claim that you created

' the sample code. It is expressly forbidden to sell or profit from this source code

' other than by the knowledge gained or the enhanced value added by your own code.

```
'
```

' Use of this software is also done so at your own risk. The code is supplied as

' is without warranty or guarantee of any kind.

```
'
```

' Should you wish to commission some derivative work based on this code provided

' here, or any consultancy work, please do not hesitate to contact us.

```
'
```
```
' Web Site:  http://www.frez.co.uk
```
```
' E-mail:	sales@frez.co.uk
```
```
Class SHA256
```
```
	Private m_lOnBits(30)
```
```
	Private m_l2Power(30)
```
```
	Private K(63)
```
```
 
```
```
	Private BITS_TO_A_BYTE
```
```
	Private BYTES_TO_A_WORD
```
```
	Private BITS_TO_A_WORD
```
```
 
```
```
	Private Sub Class_Initialize()
```
```
		BITS_TO_A_BYTE = 8
```
```
		BYTES_TO_A_WORD = 4
```
```
		BITS_TO_A_WORD = 32
```
```
		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)
```
```
 
```
```
		K(0) = &H428A2F98
```
```
		K(1) = &H71374491
```
```
		K(2) = &HB5C0FBCF
```
```
		K(3) = &HE9B5DBA5
```
```
		K(4) = &H3956C25B
```
```
		K(5) = &H59F111F1
```
```
		K(6) = &H923F82A4
```
```
		K(7) = &HAB1C5ED5
```
```
		K(8) = &HD807AA98
```
```
		K(9) = &H12835B01
```
```
		K(10) = &H243185BE
```
```
		K(11) = &H550C7DC3
```
```
		K(12) = &H72BE5D74
```
```
		K(13) = &H80DEB1FE
```
```
		K(14) = &H9BDC06A7
```
```
		K(15) = &HC19BF174
```
```
		K(16) = &HE49B69C1
```
```
		K(17) = &HEFBE4786
```
```
		K(18) = &HFC19DC6
```
```
		K(19) = &H240CA1CC
```
```
		K(20) = &H2DE92C6F
```
```
		K(21) = &H4A7484AA
```
```
		K(22) = &H5CB0A9DC
```
```
		K(23) = &H76F988DA
```
```
		K(24) = &H983E5152
```
```
		K(25) = &HA831C66D
```
```
		K(26) = &HB00327C8
```
```
		K(27) = &HBF597FC7
```
```
		K(28) = &HC6E00BF3
```
```
		K(29) = &HD5A79147
```
```
		K(30) = &H6CA6351
```
```
		K(31) = &H14292967
```
```
		K(32) = &H27B70A85
```
```
		K(33) = &H2E1B2138
```
```
		K(34) = &H4D2C6DFC
```
```
		K(35) = &H53380D13
```
```
		K(36) = &H650A7354
```
```
		K(37) = &H766A0ABB
```
```
		K(38) = &H81C2C92E
```
```
		K(39) = &H92722C85
```
```
		K(40) = &HA2BFE8A1
```
```
		K(41) = &HA81A664B
```
```
		K(42) = &HC24B8B70
```
```
		K(43) = &HC76C51A3
```
```
		K(44) = &HD192E819
```
```
		K(45) = &HD6990624
```
```
		K(46) = &HF40E3585
```
```
		K(47) = &H106AA070
```
```
		K(48) = &H19A4C116
```
```
		K(49) = &H1E376C08
```
```
		K(50) = &H2748774C
```
```
		K(51) = &H34B0BCB5
```
```
		K(52) = &H391C0CB3
```
```
		K(53) = &H4ED8AA4A
```
```
		K(54) = &H5B9CCA4F
```
```
		K(55) = &H682E6FF3
```
```
		K(56) = &H748F82EE
```
```
		K(57) = &H78A5636F
```
```
		K(58) = &H84C87814
```
```
		K(59) = &H8CC70208
```
```
		K(60) = &H90BEFFFA
```
```
		K(61) = &HA4506CEB
```
```
		K(62) = &HBEF9A3F7
```
```
		K(63) = &HC67178F2
```
```
	End Sub
```
```
 
```
```
 
```

	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 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 Ch(x, y, z)
```
```
		Ch = ((x And y) Xor ((Not x) And z))
```
```
	End Function
```
```
 
```
```
	Private Function Maj(x, y, z)
```

		Maj = ((x And y) Xor (x And z) Xor (y And z))

```
	End Function
```
```
 
```
```
	Private Function S(x, n)
```

		S = (RShift(x, (n And m_lOnBits(4))) Or LShift(x, (32 - (n And m_lOnBits(4)))))

```
	End Function
```
```
 
```
```
	Private Function R(x, n)
```

		R = RShift(x, CInt(n And m_lOnBits(4)))

```
	End Function
```
```
 
```
```
	Private Function Sigma0(x)
```

		Sigma0 = (S(x, 2) Xor S(x, 13) Xor S(x, 22))

```
	End Function
```
```
 
```
```
	Private Function Sigma1(x)
```

		Sigma1 = (S(x, 6) Xor S(x, 11) Xor S(x, 25))

```
	End Function
```
```
 
```
```
	Private Function Gamma0(x)
```

		Gamma0 = (S(x, 7) Xor S(x, 18) Xor R(x, 3))

```
	End Function
```
```
 
```
```
	Private Function Gamma1(x)
```

		Gamma1 = (S(x, 17) Xor S(x, 19) Xor R(x, 10))

```
	End Function
```
```
 
```

	Private Function ConvertToWordArray(sMessage)

```
		Dim lMessageLength
```
```
		Dim lNumberOfWords
```
```
		Dim lWordArray()
```
```
		Dim lBytePosition
```
```
		Dim lByteCount
```
```
		Dim lWordCount
```
```
		Dim lByte
```
```
 
```
```
		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 = (3 - (lByteCount Mod BYTES_TO_A_WORD)) * BITS_TO_A_BYTE

```
 
```

			lByte = AscB(Mid(sMessage, lByteCount + 1, 1))

```
 
```

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

```
			lByteCount = lByteCount + 1
```
```
		Loop
```
```
 
```

		lWordCount = lByteCount \ BYTES_TO_A_WORD

		lBytePosition = (3 - (lByteCount Mod BYTES_TO_A_WORD)) * BITS_TO_A_BYTE

```
 
```

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

```
 
```

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

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

```
 
```
```
		ConvertToWordArray = lWordArray
```
```
	End Function
```
```
 
```
```
	Public Function SHA256(sMessage)
```
```
		Dim HASH(7)
```
```
		Dim M
```
```
		Dim W(63)
```
```
		Dim a
```
```
		Dim b
```
```
		Dim c
```
```
		Dim d
```
```
		Dim e
```
```
		Dim F
```
```
		Dim g
```
```
		Dim H
```
```
		Dim i
```
```
		Dim j
```
```
		Dim T1
```
```
		Dim T2
```
```
 
```
```
		HASH(0) = &H6A09E667
```
```
		HASH(1) = &HBB67AE85
```
```
		HASH(2) = &H3C6EF372
```
```
		HASH(3) = &HA54FF53A
```
```
		HASH(4) = &H510E527F
```
```
		HASH(5) = &H9B05688C
```
```
		HASH(6) = &H1F83D9AB
```
```
		HASH(7) = &H5BE0CD19
```
```
 
```
```
		M = ConvertToWordArray(sMessage)
```
```
 
```
```
		For i = 0 To UBound(M) Step 16
```
```
			a = HASH(0)
```
```
			b = HASH(1)
```
```
			c = HASH(2)
```
```
			d = HASH(3)
```
```
			e = HASH(4)
```
```
			f = HASH(5)
```
```
			g = HASH(6)
```
```
			h = HASH(7)
```
```
 
```
```
			For j = 0 To 63
```
```
				If j < 16 Then
```
```
					W(j) = M(j + i)
```
```
				Else
```

					W(j) = AddUnsigned(AddUnsigned(AddUnsigned(Gamma1(W(j - 2)), W(j - 7)), Gamma0(W(j - 15))), W(j - 16))

```
				End If
```
```
 
```

				T1 = AddUnsigned(AddUnsigned(AddUnsigned(AddUnsigned(h, Sigma1(e)), Ch(e, f, g)), K(j)), W(j))

				T2 = AddUnsigned(Sigma0(a), Maj(a, b, c))

```
 
```
```
				h = g
```
```
				g = f
```
```
				f = e
```
```
				e = AddUnsigned(d, T1)
```
```
				d = c
```
```
				c = b
```
```
				b = a
```
```
				a = AddUnsigned(T1, T2)
```
```
			Next
```
```
 
```
```
			HASH(0) = AddUnsigned(a, HASH(0))
```
```
			HASH(1) = AddUnsigned(b, HASH(1))
```
```
			HASH(2) = AddUnsigned(c, HASH(2))
```
```
			HASH(3) = AddUnsigned(d, HASH(3))
```
```
			HASH(4) = AddUnsigned(e, HASH(4))
```
```
			HASH(5) = AddUnsigned(f, HASH(5))
```
```
			HASH(6) = AddUnsigned(g, HASH(6))
```
```
			HASH(7) = AddUnsigned(h, HASH(7))
```
```
		Next
```
```
 
```

		SHA256 = LCase(Right("00000000" & Hex(HASH(0)), 8) & Right("00000000" & Hex(HASH(1)), 8) & Right("00000000" & Hex(HASH(2)), 8) & Right("00000000" & Hex(HASH(3)), 8) & Right("00000000" & Hex(HASH(4)), 8) & Right("00000000" & Hex(HASH(5)), 8) & Right("00000000" & Hex(HASH(6)), 8) & Right("00000000" & Hex(HASH(7)), 8))

```
	End Function
```
```
End Class
```
```
 
```
```
 
```
```
 
```

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

```
'* ajaxed Copyright (C) 2003		
```
```
'* License refer to license.txt		
```

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

```
 
```

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

```
 
```
```
'' @CLASSTITLE:		MD5
```

'' @CREATOR:		Michal Gabrukiewicz - gabru @ grafix.at

```
'' @CREATEDON:		29.12.2007
```

'' @CDESCRIPTION:	Thats a class for MD5 encryption.

''					MD5: Derived from the RSA Data Security, Inc. MD5 Message-Digest Algorithm,

''					as set out in the memo RFC1321. One way encryption!

''					Encryption-code taken from Web Site: http://www.frez.co.uk and modified to a class. Many thanks!

```
'' @VERSION:		0.1
```
```
 
```

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

```
Class MD5
```
```
	Private BITS_TO_A_BYTE
```
```
	Private BYTES_TO_A_WORD
```
```
	Private BITS_TO_A_WORD
```
```
	Private P_ALGORITHM
```
```
 
```
```
	Private m_lOnBits(30)
```
```
	Private m_l2Power(30)
```
```
 
```
```
	'Construktor => set the default values
```
```
	Private sub Class_Initialize()
```
```
		BITS_TO_A_BYTE  =  8
```
```
		BYTES_TO_A_WORD =  4
```
```
		BITS_TO_A_WORD  = 32
```
```
		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)
```
```
	end sub
```
```
 
```

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

	'' @SDESCRIPTION:	returns a MD5 hash for the given value

	'' @PARAM:			val [string]: the string for hashing

```
	'' @RETURN:			[string] MD5 hash
```

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

```
	Public Function hash(val)
```
```
		hash = MD5(val & "")
```
```
	End Function
```
```
 
```

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

```
	'* LShift
```

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

	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
```
```
 
```

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

```
	'* RShift
```

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

	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
```
```
 
```

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

```
	'* RotateLeft
```

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

	Private Function RotateLeft(lValue, iShiftBits)

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

```
	End Function
```
```
 
```

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

```
	'* AddUnsigned
```

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

```
	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
```
```
 
```

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

```
	'* F
```

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

```
	Private Function F(x, y, z)
```
```
		F = (x And y) Or ((Not x) And z)
```
```
	End Function
```
```
 
```

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

```
	'* G
```

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

```
	Private Function G(x, y, z)
```
```
		G = (x And z) Or (y And (Not z))
```
```
	End Function
```
```
 
```

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

```
	'* H
```

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

```
	Private Function H(x, y, z)
```
```
		H = (x Xor y Xor z)
```
```
	End Function
```
```
 
```

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

```
	'* I
```

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

```
	Private Function I(x, y, z)
```
```
		I = (y Xor (x Or (Not z)))
```
```
	End Function
```
```
 
```

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

```
	'* FF
```

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

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

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

```
		a = RotateLeft(a, s)
```
```
		a = AddUnsigned(a, b)
```
```
	End Sub
```
```
 
```

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

```
	'* GG
```

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

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

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

```
		a = RotateLeft(a, s)
```
```
		a = AddUnsigned(a, b)
```
```
	End Sub
```
```
 
```

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

```
	'* HH
```

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

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

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

```
		a = RotateLeft(a, s)
```
```
		a = AddUnsigned(a, b)
```
```
	End Sub
```
```
 
```

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

```
	'* II
```

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

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

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

```
		a = RotateLeft(a, s)
```
```
		a = AddUnsigned(a, b)
```
```
	End Sub
```
```
 
```

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

```
	'* ConvertToWordArray
```

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

	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
```
```
 
```

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

```
	'* WordToHex
```

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

```
	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
```
```
 
```

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

```
	'* md5 
```

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

```
	Private Function MD5(sMessage)
```
```
		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
```
```
 
```

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

```
 
```

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

```
 
```

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

```
 
```

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

			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
```
```
 
```

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

```
	End Function
```
```
 
```
```
End Class
```
```
 
```