Konverter fra tekst til HEX !

Der findes ikke direkte en text til hex så man må selv lave den, ved at bruge den som kan konvertere et tal til hex. Sådan her:


str = "www.yahoo.dk/mail"
response.Write txt2hex(str)



function txt2hex(str)
hexStr = ""
for i = 1 to len(str)
  char = Hex(Asc(mid(str,i,1)))
  hexStr = hexStr & char
next
txt2hex = hexStr
end function

lækkert