|
Displaying Source Code(s)
|
|
Convert a string to Hex
--------------------------------------------------------------------------------
Function HexStr(astring)
Dim s1, s2, i
s2 = ""
s1 = astring
For i = 1 To Len(s1)
s2 = s2 & Hex(Asc(Mid(s1, i, 1)))
Next
HexStr = s2
End Function
|
|
|