Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 2244
  • Last Modified:

VBScript: ASCII to Binary

I'm searching for a function to convert an ascii character to binary.

For example, I have this character: @

I want to convert it to: 01000000

does anyone know where I can find code to do this? It has to be regular VB script, I can't load any kind of components or use any .net stuff to do this.
0
WebArchitect_Vince
Asked:
WebArchitect_Vince
  • 2
  • 2
1 Solution
 
Rodney HelsensCommented:
IS this what you are looking to do?

http://www.motobit.com/tips/detpg_BinASP.htm
0
 
Rodney HelsensCommented:
This seems to work too..

<%

Function cBIN(iC)
cBIN = ""
X = 256
For Y = 1 To 8
     bC = 0
     X = X / 2
     If iC >= X Then
     bC = 1
     iC = iC - X
     End If
   cBIN = cBIN & bC
Next
End Function

Response.Write ( cBIN(Asc("@")) )

%>
0
 
deighcCommented:
Try this. You need to pass both the character and the length of the string you want returned (8 chars in your example:

decVal = DecToBin("@", 8)

Function DecToBin(strChar, len)
  dim strResult
  dim intValue
  dim intExp
  dim intDec
 
  intDec = Asc(strChar)
  strResult = ""

  intValue = intDEC
  intExp = 2 ^ (len - 1)
  while intExp >= 1
    if intValue >= intExp then
      intValue = intValue - intExp
      strResult = strResult & "1"
    else
      strResult = strResult & "0"
    end if
    intExp = intExp / 2
  wend

  DecToBin = strResult
End Function
0
 
deighcCommented:
... and maybe a better function name would be "charToBinary" ....
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now