Konvertering af hex tilbage til binær

Se: http://www.vyomworld.com/lib/script_description.asp?ScriptID=34

Jeg tror lige du mangler dette :

'---Laver streng om til hex
Function StringToHex(str)
  dim x, hexchar
  for x = 1 to len(str)
    hexchar = hex(asc(mid(str, x, 1)))
    if len(hexchar) = 1 then hexchar = "0" & hexchar
    StringToHex = StringToHex & hexchar
  next
End Function

'---Laver Hex om til streng
Function HexToString(hex)
  dim x
  for x = 1 to len(hex) step 2
    HexToString = HexToString & chr(clng("&h" & mid(hex, x, 2)))
  next
End Function

Den første laver om til Hex den anden laver den tilbage til det oprindelige :o)

Håber du kan bruge det :o)

/Websam

Fik du testet det forslag jeg gav :o)

/Websam