Google Page-Rank Checksum - VBScript

There seems to be alot of requests for this so I took a crack at it. It took me about 2 hours to get the basics down. The only bug I can't seem to get around is an Overflow error in the mix function on all the Xor statements. I've tried the CDbl function on every variable without any luck. I've posted it here for anyone who wants to take a crack at debugging the problem. Post your results or thoughts or you can email me your results and I will post the solution. Good Luck!

<%
'===================================================================
' Author:	David N. Cicalo (david.cicalo@studiofx.ca)
' Date:		August 10, 2004
' License:	Public Domain (just keep my credit in the code)
'===================================================================
OPTION EXPLICIT

Dim dGoogleMagic, sURL

dGoogleMagic = &HE6359A60 ' hex 0xE6359A60

Function shiftRight( p1A, p1B)
	Dim x
	
	if ( p1B <> 0) then
		for x = 1 to p1B
			p1A = cdbl(p1A * 2)
		next
	end if
	shiftRight = p1A
End Function

Function shiftLeft( p2A, p2B)
	Dim x
	
	if ( p2B <> 0) then
		for x = 1 to p2B
			p2A = cdbl(p2A / 2)
		next
	end if
	shiftLeft = p2A
End Function

Function zeroFill( p3A, p3B)
	Dim dZ
	
	dZ = &H80000000		' hex 80000000

if ( dZ AND p3A) then
		p3A = shiftRight( p3A, 1)
		p3A = cdbl(p3A And (Not dZ))
		p3A = cdbl(p3A Or (&H40000000)) ' hex 40000000
		p3A = shiftRight( p3A, p3B - 1)
	else
		p3A = shiftRight(p3A,p3B)
	end if
	zeroFill = cdbl(p3A)
End Function

Function mix( p4A, p4B, p4C)
'	on error resume next 
	
	p4A = p4A - p4B
	p4A = p4A - p4C
	p4A = p4A Xor cdbl( zeroFill( p4C, 13))
	p4B = p4B - p4C
	p4B = p4B - p4A
	p4B = p4B Xor ( shiftLeft( p4A, 8))
	p4C = p4C - p4A
	p4C = p4C - p4B
	p4C = p4C Xor ( zeroFill( p4B, 13))
	p4A = p4A - p4B
	p4A = p4A - p4C
	p4A = p4A Xor ( zeroFill( p4C, 12))
	p4B = p4B - p4C
	p4B = p4B - p4A
	p4B = p4B Xor ( shiftLeft( p4A, 16))
	p4C = p4C - p4A
	p4C = p4C - p4B
	p4C = p4C Xor ( zeroFill( p4B, 5))
	p4A = p4A - p4B
	p4A = p4A - p4C
	p4A = p4A Xor ( zeroFill( p4C, 3))
	p4B = p4B - p4C
	p4B = p4B - p4A
	p4B = p4B Xor ( shiftLeft( p4A, 10))
	p4C = p4C - p4A
	p4C = p4C - p4B
	p4C = p4C Xor ( zeroFill( p4B, 15))
	
	dim arrA(2)
	
	arrA(0) = p4A
	arrA(1) = p4B
	arrA(2) = p4C

mix = arrA
End Function

Function GoogleCH( arrURL)
	Dim arrMix
	Dim iLength, iLen, dK, dA, dB, dC
	
	iLength = Ubound( arrURL)

dA = &H9E3779B9 ' hex 9E3779B9
	dB = &H9E3779B9	' ditto
	dC = dGoogleMagic
	dK = 0
	
	iLen = iLength
	
	do while ( iLen >= 12)
		dA = cdbl(dA + cdbl(arrURL(dK + 0) + shiftLeft(arrURL(dK + 1),8) + shiftLeft(arrURL(dK + 2), 16) + shiftLeft(arrURL(dK + 3), 24)))
		dB = cdbl(dB + cdbl(arrURL(dK + 4) + shiftLeft(arrURL(dK + 5),8) + shiftLeft(arrURL(dK + 6), 16) + shiftLeft(arrURL(dK + 7), 24)))		
		dC = cdbl(dC + cdbl(arrURL(dK + 8) + shiftLeft(arrURL(dK + 9),8) + shiftLeft(arrURL(dK + 10), 16) + shiftLeft(arrURL(dK + 11), 24)))

arrMix = mix( dA, dB, dC)	
		dA = arrMix(0)
		dB = arrMix(1)
		dC = arrMix(2)
		
		dK = dK + 12
		iLen = iLen - 12	
	loop
	
	dC = dC + iLength
	
	select case iLen
		case 11
			dC = dC + shiftLeft(arrURL(dK + 10),24)
		case 10
			dC = dC + shiftLeft(arrURL(dK + 9),16)
		case 9
			dC = dC + shiftLeft(arrURL(dK + 8),8)		
		case 8
			dB = dB + shiftLeft(arrURL(dK + 7),24)				
		case 7
			dB = dB + shiftLeft(arrURL(dK + 6),16)						
		case 6
			dB = dB + shiftLeft(arrURL(dK + 5),8)								
		case 5
			dB = dB + arrURL(dK + 4)
		case 4
			dA = dA + shiftLeft(arrURL(dK + 3),24)								
		case 3
			dA = dA + shiftLeft(arrURL(dK + 2),16)										
		case 2
			dA = dA + shiftLeft(arrURL(dK + 1),8)										
		case 1
			dA = dA + arrURL(dK + 0)
	end select
	
	arrMix = mix( dA, dB, dC)

GoogleCH = CStr(arrMix(2))
End Function

Function strOrd( sString)
	Dim x
	ReDim arrOrds(1024)
	
	for x = 0 to len( sString) - 1
		arrOrds(x) = Asc( Mid( sString, x + 1, 1))
	next

Redim Preserve arrOrds(x)
	
	strOrd = arrOrds
End Function

sURL = "info:http://www.example.com/"
Response.write "CheckSum: <6540747202> " & GoogleCH( strOrd( sURL)) & vbcrlf