Foros del Web » Programando para Internet » ASP Clásico »

texto a codigo binario y viceversa

Estas en el tema de texto a codigo binario y viceversa en el foro de ASP Clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 01/11/2004, 13:07
Avatar de lexus  
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 22 años, 5 meses
Puntos: 4
De acuerdo texto a codigo binario y viceversa

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
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com
  #2 (permalink)  
Antiguo 01/11/2004, 13:16
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 19 años, 9 meses
Puntos: 18
aqui tienes un ejemplo en visual basic.

EJEMPLO

OTRO EJEMPLO

Última edición por trasgukabi; 01/11/2004 a las 13:21
  #3 (permalink)  
Antiguo 01/11/2004, 15:34
Avatar de lexus  
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 22 años, 5 meses
Puntos: 4
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
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com
  #4 (permalink)  
Antiguo 01/11/2004, 17:04
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 19 años, 9 meses
Puntos: 18
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.
  #5 (permalink)  
Antiguo 01/11/2004, 21:03
Avatar de yiyocastro  
Fecha de Ingreso: octubre-2004
Ubicación: Maracaibo, Venezuela
Mensajes: 314
Antigüedad: 19 años, 7 meses
Puntos: 0
Cita:
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]..
__________________
Nada es verdad, nada es mentira, todo esta en el cristal con que lo miras. :si:
  #6 (permalink)  
Antiguo 01/11/2004, 22:58
 
Fecha de Ingreso: abril-2004
Ubicación: México D.F.
Mensajes: 1.724
Antigüedad: 20 años, 1 mes
Puntos: 4
mmm creo que si aplicamos un poco el cerebrin somos capaces.
Muchas veces queremos todo ya hecho.
  #7 (permalink)  
Antiguo 01/11/2004, 23:58
Avatar de lexus  
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 22 años, 5 meses
Puntos: 4
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.
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 17:07.