Hex2Int()

Converte uma string hexadecimal em número

Function Hex2Int(ByVal hStr)

If Not eregi("^[a-f0-9]*$", hStr) Then
Err.Raise 1002, "ASP Util Library", "Hex2Int: Invalid argument: " & hStr
End If

Dim h, D, i
Dim c, ln

h = 0
ln = Len(hStr)
Set D = Server.CreateObject("Scripting.Dictionary")

For i = 0 To 9
D.Add i & "", i
Next
For i = 65 To 70
D.Add Chr(i), i - 55
Next

For i = ln To 1 Step -1
c = UCase(Mid(hStr, i, 1))
h = h + ( D(c) * ( 16 ^ (ln - i) ) )
Next

Set D = Nothing
Hex2Int = h

End Function