Str2Hex

Convert a string to Hex

CodeFunctionName
What is this?

Public

Tested

Original Work
<%
Function Str2Hex(astring)
dim s1, s2, i
s2 = ""
s1 = astring
for i = 1 to Len(s1)
s2 = s2 & Hex(ASC(Mid(s1, i, 1)))
next
Str2Hex= s2
End Function
% >

astring

Views 4,891

Downloads 1,573

CodeID
DB ID

JeffSmith
26
Revisions

v1.0

Monday
May
28
2018