Registry Hex to Text Converter Converts a registry hex-encoded binary value to text. If the hex string is not passed on the command, the clipboard will be parsed by default.

Usage:

rh2t [![string]]|[hex]

Switches:

!	Reverse action - convert the value, either from the clipboard or following the !, to a registry-compatible hex-encoded binary value

Example:

rh2t

rh2t 64,71,73,64,20,72,6F,63,6B,73,21

rh2t !DQSD Rocks

rh2t !

Functions http://ReliableAnswers.com/x/dqsd/ Shawn K. Hall vbscript

<![CDATA[

Dim q, qsHex
q = document.rh2tf.q.value & ""
If Trim( q ) = "" Then
  qsHex = ClipBoardGetText()
  Call ClipBoardSetText( JoinHex( qsHex ) )
Else
  If Left(q, 1) = "!" Then
    If q = "!" Then
      qsHex = ClipBoardGetText()
      Call ClipBoardSetText( SplitHex( qsHex ) )
    Else
      qsHex = SplitHex( Right(q, Len(q)-1) )
      document.deff.q.value = qsHex
    End If
  Else
    qsHex = JoinHex( q )
    document.deff.q.value = qsHex
  End If
End If
Function JoinHex( sVals )
  Dim lIter, sBuild, aHex
  sBuild = sVals
  sBuild = Replace(sBuild, " ", "")
  sBuild = Replace(sBuild, "\", "")
  sBuild = Replace(sBuild, vbCrLf, "")
  aHex = Split(sBuild, ",")
  For lIter = LBound(aHex) To UBound(aHex)
    If aHex(lIter) = "00" Then
      aHex(lIter) = "-"
    Else
      aHex(lIter) = Chr(CInt("&h" & aHex(lIter)))
    End If
  Next
  JoinHex = Join(aHex, "")
End Function
Function SplitHex( sString )
  Dim lIter, sBuild, sChar, aHex
  aHex = Split(Space(Len(sString)-1), " ")
  For lIter = LBound(aHex) To UBound(aHex)
    aHex(lIter) = Right("00" & Hex(Asc(NewMid(sString, lIter, 1))), 2)
  Next
  SplitHex = Join(aHex, ",")
End Function
Function NewMid(sString, lStart, lLength)
  Dim s, l
  On Error Resume Next
  l = Len(sString) - lStart
  If l > 0 Then
    s = Right(sString, l)
    If lLength > Len(s) Then
      s = Left(s, lLength)
    End If
  Else
    s = ""
  End If
  NewMid = s
End Function
Function ClipBoardSetText( sText )
  ClipBoardSetText = window.clipboardData.SetData( "Text", sText )
End Function
Function ClipBoardGetText()
  ClipBoardGetText = window.clipboardData.GetData( "Text" )
End Function

]]>