Biblioteca de Clases,Funciones y Sub-rutinas.

[trasgukabi]

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.