PHP (hex2bin, bin2hex) convert ASP

  Function Bin2Hex(strBin)
    Dim i
    Dim strHex
    Dim strHexChar
   
    strHex = ""
   
    For i=1 To Len(strBin)
      strHexChar = Hex(Asc(Mid(strBin,i,1)))
     
      If Len(strHexChar) < 2 Then
        strHexChar = "0" & strHexChar
      End If
     
      strHex = strHex & strHexChar
    Next
   
    Bin2Hex = strHex
  End Function
 
  Function Hex2Bin(strHex)
    Dim i
    Dim strBin
   
    strBin = ""
   
    For i=1 To Len(strHex) Step 2
      strBin = strBin & Chr(CLng("&H" & Mid(strHex,i,2)))
    Next
   
    Hex2Bin = strBin
  End Function