Foro de elhacker.net

Hola comunidad, hace muy poco se me ocurrió hacer un programa con la siguiente función.
El usuario ingresa en un textbox un párrafo cualquiera. Ejemplo "Hola como estas"
Aprieta un botón, y en otro text box se imprime el párrafo anterior pero con símbolos.
También el programa tiene que poder leer esos símbolos y cambiarlos al párrafo inicial.

Entonces me puse a buscar en google como hacer para que se lea letra por letra y las valla cambiando, pero la verdad, no encontre nada.

Si alguno tiene algún código que me pueda servir bienvenido sea :)

Tenía pensado algo, usando un For y la propiedad Left, para que vea letra por letra, pero no se como ponerle un limite  :-\

Muchas gracias.

bueno yo hice algo parecido pero cambiar una frase de uun textbox a ascii y colocarlo en otro textbox.

es solo pensar un poco, esta herramienta la utilizo para las sql injection para cambiar de text a ascii (esto va separado por comas y la ultima coma se la saca)

code:

Private Sub Command1_Click()
    Dim i
    Dim valor As String
    Dim sAscii As String
 
    sAscii = ""
    For i = 1 To Len(Text1.Text)
        sAscii = sAscii & "," + CStr(Asc(Mid(Text1.Text, i, 1)))
    Next
    valor = Len(sAscii)
    Text2.Text = Right(sAscii, valor - 1)
End Sub

es pensar un poquito.

saludos

Si vas a reemplazar letras por simbolos, quizas te convenga usar Replace.

Asi reemplazaras varios items a la vez.

Lo que si, debes llamar la funcion por cada reemplazo a hacer y termina siendo lo mismo que  utilizar un bucle e ir sacando letra x letra.

Es cuestion de decidirse por uno o el otro.

Saludos!

No entendi lo del Replace? mas detalles porfa :D

Gracias.

Algo asi:

Creo que es lo que quieres..

Saludos!

puedes usar la funcion MID, con ella coges una letra, la compruebas y la cambias, y asi con todo el parrafo.

seria hacer mas o menos asi

for i=1 to len(text1.text)
 
mid ( text1.text (cadena de la que buscar caracteres), i (caracter de inicio), 1(numero de caracteres que cogera la funcion))
 
'comparas el caracter y le asignas el simbolo
'cambias el caracter por el simbolo
 
next i
 

espero haberte ayudado. saludos