texto a codigo binario y viceversa

[lexus]

hola, alquien sabe como convertir textos y numeros, en fin todo lo que escriba por teclado a codigo binario?
necesito qeu por medio de un campo te dexto introduzca cualquier texto alfanumerico, ya sea con acentos o sin acentos, con numeros, letras, caracteres especiales como arrobas copyrigth etc.... y me los convierta a codigo binario ceros y unos..
y tambien qeu se pueda hacer lo contrario.. osea despues de tener el codigo binario que se pueda volver a la normalidad osea invertir el proceso..
espero me puedan ayudar..
gracias

[trasgukabi]

aqui tienes un ejemplo en visual basic.

EJEMPLO

OTRO EJEMPLO

[lexus]

hola, gracias por tratar de ayudarme
pero no tengo para abrir nada en visual basic.. y tampoco se manejarlo..
alguien tiene algo o sabe donde encontrarlo en ASP?
gracias espero me puedan ayudar

[trasgukabi]

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)
	%>

Ahí lo tienes. Ni a Felipe II se las ponían tan a Huevo.

[yiyocastro]

Iniciado por lexus

hola, alquien sabe como convertir textos y numeros, en fin todo lo que escriba por teclado a codigo binario?
necesito qeu por medio de un campo te dexto introduzca cualquier texto alfanumerico, ya sea con acentos o sin acentos, con numeros, letras, caracteres especiales como arrobas copyrigth etc.... y me los convierta a codigo binario ceros y unos..
y tambien qeu se pueda hacer lo contrario.. osea despues de tener el codigo binario que se pueda volver a la normalidad osea invertir el proceso..
espero me puedan ayudar..
gracias

Amigo recuerdas las clases de bachillerato???. ok...
Remember...!

Primero deberias estudiar cada carácter en la cadena de texto. Traducirlo a ASCII uno por uno. Luego esa cantidad de numeros las pasas a binarios.. Separado cada uno..! y lo traduces a binario. Recordando que se mostrará en la pantalla pegado. Sin embargo en el script se separarán.. ok. espero ayudarte. Cualquier cosa [email protected]..

[orharo2003]

mmm creo que si aplicamos un poco el cerebrin somos capaces.
Muchas veces queremos todo ya hecho.

[lexus]

ok, gracias a todos... no lo hago desde cero proqeu ya se qeu mucha gente lo tiene hecho. y hacerlo desde cero gasta mucho tiempo el cual es muy valioso para mi.no dispongo de mucho tiempo asi que prefiero ver si alguien me lo facilita si no lo busco en google ... no hay qeu reinventar la rueda..
gracias.. puede que suene un poco grosero pero todos sabemos que es cierto.
gracias de nuevo. bye.