Hvordan konventeres der fra ASCII til Hex?

Det må vel være noget i stil med dette:

<%
strText = \"Det var engang en gammel mand\"

FOR I = 1 TO LEN(strText)
    strHexOut = strHexOut & HEX(Asc(MID(strText,i,1)))
NEXT
Response.Write strHexOut
%>


/dudal

man skal vel sørge for at det er en hel byte...

Så derfor:

strText = \"Det var engang en gammel mand\"

For I = 1 TO Len(strText)
    If Len(HEX(Asc(MID(strText,i,1))) )=1 Then
      strHexOut = strHexOut & \"0\" & HEX(Asc(MID(strText,i,1)))
    Else
      strHexOut = strHexOut & HEX(Asc(MID(strText,i,1)))
    End If
Next

\'Således at &hF (15) Bliver til &h0F

/Jennemaan

tak

dkfrakja > husk nu at det går galt for ascii værdier under 16

/jennemaan

Øhh, kan det ikke løses?

jo, på den måde jeg beskrev ;)

(jeg checker for længden af hex-strengen. Hvis den kun er f.eks. \"F\" ændrer jeg den til \"0F\")

/Jennemaan

Nå ja, mange tak