I wrote this script recently to convert a random string of 1s and 0s someone posted on Facebook into its ASCII equivalent. So, now I share my creation with "the world".

--




Option Explicit



Dim crap

Dim uncrap

Dim ch

Dim i

Dim j

Dim k

Dim digit



crap = "01100001011111010011011000100001110101100110110000110001100010011111001011010010110100101010010101010010100010100101010101001010010101001000101010100011000100101000011010101010001111010010101000110101010010000010000110110101010001011110101010100101101001010010100010000111000101010010001100010110000101010101001010000011101010101010"

uncrap = ""

ch = ""

i = 0

j = 0



' Read 7 byte chunks of crap

For i = 0 To Len(crap) \ 7



  ch = Mid(crap, (7*i) + 1, 7)

  

  ' Convert binary number to a base-10 digit

  ' and convert that digit to an ASCII character

  digit = 0

  k = 0

  For j = Len(ch) - 1 To 1 Step -1

    If Mid(ch, j, 1) = "1" Then

      digit = digit + (2 ^ k)

    End If

     

    k = k + 1

  Next

    

  uncrap = uncrap & Chr(digit)

Next



WScript.Echo uncrap