Lo acabo de poner para responder a un post, pero mejor estará aquí:
DE TEXTO A BINARIO:
Código:
<%
Dim C
Dim DD
Dim EE
Dim BinArray(7)
Dim temporal
Dim nuevacadena
cadena="Hola"
For C = 1 To Len(cadena)
DD = Asc(Mid(cadena, C, 1))
BinArray(7) = CStr(DD Mod 2)
DD = DD \ 2
BinArray(6) = CStr(DD Mod 2)
DD = DD \ 2
BinArray(5) = CStr(DD Mod 2)
DD = DD \ 2
BinArray(4) = CStr(DD Mod 2)
DD = DD \ 2
BinArray(3) = CStr(DD Mod 2)
DD = DD \ 2
BinArray(2) = CStr(DD Mod 2)
DD = DD \ 2
BinArray(1) = CStr(DD Mod 2)
DD = DD \ 2
BinArray(0) = CStr(DD Mod 2)
For EE = 0 To UBound(BinArray)
temporal = temporal & BinArray(EE)
Next
nuevacadena = nuevacadena & temporal
temporal = ""
Next
response.Write(nuevacadena)
%>
DE BINARIO A TEXTO:
Código:
<%
Bintext="01001000011011110110110001100001"
Dim BinChar
Dim CharX
Dim convertido
Dim Z
Dim NewChar
Dim Bx
Dim BBx
For Bx = 1 To Len(BinText)
BinChar = Mid(BinText, Bx, 8)
Z = 128
NewChar = 0
For BBx = 1 To 8
CharX = Mid(BinChar, BBx, 1)
If CharX = "1" Then
NewChar = NewChar + Z
Z = Z / 2
Else
Z = Z / 2
End If
Next
convertido = convertido & Chr(NewChar)
Bx = Bx + 7
Next
BinText = convertido
response.Write(bintext)
%>
Saludos, monstruos.
