Problema en Visual Basic -Net (Al remplazar una palabra)

[Akise]

¡Hola!, Bueno mi problema es el siguiente, intento hacer un "encriptador".

Lo que uso es la función remplace, para que si X tiene un valor, lo remplace por el valor de Y.

El código es el siguiente;

Código (vb) [Seleccionar] Expandir


   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       '# ENVÍA LO ESCRITO A LA CAJA DE TEXTO 2. (PARA LUEGO TRANSOFRMARLO EN LA OTRA CAJA Y
       '# NO EN LA PRIMERA, (SE EXPLICA MÁS ADELANTE EL SIGUIENTE CÓDIGO)

       TextBox2.Text = TextBox1.Text

       '########################################################################################
       '# LO QUE HACE  TextBox2.Text = Remplace(TextBox2.Text, "a", "i") será que lo escrito ###
       '# en la caja número 2, el caracter en las primeras comillas dobles se transformará #####
       '# en la letra escrita en las segundas comillas dobles, en este caso la a en la i. ######
       '# de esta forma el texto se cifrará. ################################################
       '########################################################################################

       '# ABECEDARIO ESPAÑOL MINÚSCULAS

       TextBox2.Text = Replace(TextBox2.Text, "a", "q")
       TextBox2.Text = Replace(TextBox2.Text, "á", "w")
       TextBox2.Text = Replace(TextBox2.Text, "b", "e")
       TextBox2.Text = Replace(TextBox2.Text, "c", "r")
       TextBox2.Text = Replace(TextBox2.Text, "d", "t")
       TextBox2.Text = Replace(TextBox2.Text, "e", "y")
       TextBox2.Text = Replace(TextBox2.Text, "é", "u")
       TextBox2.Text = Replace(TextBox2.Text, "f", "i")
       TextBox2.Text = Replace(TextBox2.Text, "g", "o")
       TextBox2.Text = Replace(TextBox2.Text, "h", "p")
       TextBox2.Text = Replace(TextBox2.Text, "i", "a")
       TextBox2.Text = Replace(TextBox2.Text, "í", "s")
       TextBox2.Text = Replace(TextBox2.Text, "j", "d")
       TextBox2.Text = Replace(TextBox2.Text, "k", "f")
       TextBox2.Text = Replace(TextBox2.Text, "l", "g")
       TextBox2.Text = Replace(TextBox2.Text, "m", "h")
       TextBox2.Text = Replace(TextBox2.Text, "n", "i")
       TextBox2.Text = Replace(TextBox2.Text, "ñ", "j")
       TextBox2.Text = Replace(TextBox2.Text, "o", "k")
       TextBox2.Text = Replace(TextBox2.Text, "ó", "l")
       TextBox2.Text = Replace(TextBox2.Text, "p", "ñ")
       TextBox2.Text = Replace(TextBox2.Text, "q", "z")
       TextBox2.Text = Replace(TextBox2.Text, "r", "x")
       TextBox2.Text = Replace(TextBox2.Text, "s", "c")
       TextBox2.Text = Replace(TextBox2.Text, "t", "v")
       TextBox2.Text = Replace(TextBox2.Text, "u", "b")
       TextBox2.Text = Replace(TextBox2.Text, "ú", "n")
       TextBox2.Text = Replace(TextBox2.Text, "ü", "m")
       TextBox2.Text = Replace(TextBox2.Text, "v", "&q")
       TextBox2.Text = Replace(TextBox2.Text, "w", "&w")
       TextBox2.Text = Replace(TextBox2.Text, "x", "&r")
       TextBox2.Text = Replace(TextBox2.Text, "y", "&e")
       TextBox2.Text = Replace(TextBox2.Text, "z", "&t")

       '# ABECEDARIO ESPAÑOL MAYÚSCULAS.


       TextBox2.Text = Replace(TextBox2.Text, "A", "&y")
       TextBox2.Text = Replace(TextBox2.Text, "Á", "&u")
       TextBox2.Text = Replace(TextBox2.Text, "B", "&i")
       TextBox2.Text = Replace(TextBox2.Text, "C", "&o")
       TextBox2.Text = Replace(TextBox2.Text, "D", "&p")
       TextBox2.Text = Replace(TextBox2.Text, "E", "&a")
       TextBox2.Text = Replace(TextBox2.Text, "É", "&s")
       TextBox2.Text = Replace(TextBox2.Text, "F", "&d")
       TextBox2.Text = Replace(TextBox2.Text, "G", "&f")
       TextBox2.Text = Replace(TextBox2.Text, "H", "&g")
       TextBox2.Text = Replace(TextBox2.Text, "I", "&h")
       TextBox2.Text = Replace(TextBox2.Text, "Í", "&j")
       TextBox2.Text = Replace(TextBox2.Text, "J", "&k")
       TextBox2.Text = Replace(TextBox2.Text, "K", "&l")
       TextBox2.Text = Replace(TextBox2.Text, "L", "&ñ")
       TextBox2.Text = Replace(TextBox2.Text, "M", "&z")
       TextBox2.Text = Replace(TextBox2.Text, "N", "&x")
       TextBox2.Text = Replace(TextBox2.Text, "Ñ", "&c")
       TextBox2.Text = Replace(TextBox2.Text, "O", "&v")
       TextBox2.Text = Replace(TextBox2.Text, "Ó", "&b")
       TextBox2.Text = Replace(TextBox2.Text, "P", "&n")
       TextBox2.Text = Replace(TextBox2.Text, "Q", "&m")
       TextBox2.Text = Replace(TextBox2.Text, "R", "%q")
       TextBox2.Text = Replace(TextBox2.Text, "S", "%w")
       TextBox2.Text = Replace(TextBox2.Text, "T", "%e")
       TextBox2.Text = Replace(TextBox2.Text, "U", "%r")
       TextBox2.Text = Replace(TextBox2.Text, "Ú", "%t")
       TextBox2.Text = Replace(TextBox2.Text, "Z", "%y")

       '# NÚMEROS

       TextBox2.Text = Replace(TextBox2.Text, "0", "%u")
       TextBox2.Text = Replace(TextBox2.Text, "1", "%i")
       TextBox2.Text = Replace(TextBox2.Text, "2", "%o")
       TextBox2.Text = Replace(TextBox2.Text, "3", "%p")
       TextBox2.Text = Replace(TextBox2.Text, "4", "%a")
       TextBox2.Text = Replace(TextBox2.Text, "5", "%s")
       TextBox2.Text = Replace(TextBox2.Text, "6", "%d")
       TextBox2.Text = Replace(TextBox2.Text, "7", "%f")
       TextBox2.Text = Replace(TextBox2.Text, "8", "%g")
       TextBox2.Text = Replace(TextBox2.Text, "9", "%h")

       '# OTROS CARACTERES

       TextBox2.Text = Replace(TextBox2.Text, ":", "@q")
       TextBox2.Text = Replace(TextBox2.Text, ";", "@w")
       TextBox2.Text = Replace(TextBox2.Text, ".", "@e")
       TextBox2.Text = Replace(TextBox2.Text, "(", "@r")
       TextBox2.Text = Replace(TextBox2.Text, ")", "@t")
       TextBox2.Text = Replace(TextBox2.Text, "¿", "@y")
       TextBox2.Text = Replace(TextBox2.Text, "?", "@u")
       TextBox2.Text = Replace(TextBox2.Text, "¡", "@i")
       TextBox2.Text = Replace(TextBox2.Text, "!", "@o")
       TextBox2.Text = Replace(TextBox2.Text, "@", "/p")
       TextBox2.Text = Replace(TextBox2.Text, "€", "/a")
       TextBox2.Text = Replace(TextBox2.Text, "$", "/s")
       TextBox2.Text = Replace(TextBox2.Text, "/", "(d")

       '# EXPRESIONES (SÍMBOLOS MATEMÁTICOS)

       TextBox2.Text = Replace(TextBox2.Text, "=", ")q")
       TextBox2.Text = Replace(TextBox2.Text, "*", ")w")
       TextBox2.Text = Replace(TextBox2.Text, "/", ")e")
       TextBox2.Text = Replace(TextBox2.Text, "+", ")r")
       TextBox2.Text = Replace(TextBox2.Text, "-", ")t")
       TextBox2.Text = Replace(TextBox2.Text, "^", ")y")



Al ejecutar el programa, por alguna razón que desconozco, si escribo una letra toma el valor de otra diferente a la que debería tomar, por ejemplo si escribo la letra 'a' el valor que toma es &t, pero &t es la letra z, entonces no entiendo cual es el problema, ni porque remplaza mal.

¿Alguien podría explicarme lo que sucede?

Muchas gracias de antemano.

[Novlucker]

Así no va a funcionar. Lo que debes de hacer es recorrer cada una una de las letras del string, convertirla y concatenarla en una nueva variable.

Así como lo tienes, primero reemplazas a por q, luego q por z, y por último z por &t, por eso el resultado es que a se convierte en &t

Saludos

[Akise]

Así no va a funcionar. Lo que debes de hacer es recorrer cada una una de las letras del string, convertirla y concatenarla en una nueva variable.

Así como lo tienes, primero reemplazas a por q, luego q por z, por eso el resultado es que a se convierte en z

Saludos

Vale, lo segundo lo entendí, y vaya, que ágil la respuesta. ¡Muchas gracias!, el problema es que no entendí lo que debo hacer para solucionarlo.

[Novlucker]

Lo que debes de hacer, es armar un FOR que recorra el string, pero que vaya obteniendo de a una letra, para luego convertira, a esa letra convertida, la guardas en otra variable, y así vas convirtiendo una a una y concatenando en esa variable.

Saludos

[Akise]

Lo que debes de hacer, es armar un FOR que recorra el string, pero que vaya obteniendo de a una letra, para luego convertira, a esa letra convertida, la guardas en otra variable, y así vas convirtiendo una a una y concatenando en esa variable.

Saludos

Perdona mi ignorancia, pero sigo sin entenderlo... Más bien no entiendo como hacer un ciclo for que recorra el string, aunque entiendo que lo que tengo que hacer es separarlo por asi decirlo, para que al cifrar la a en q no encripte otra vez la q en z.

[XresH]

Usa la función Mid.

Saludos.

[Eleкtro]

No creo que haga falta nada más que añadir a lo que te dijo Novlucker, hay miles de ejemplos en Google de como crear un Loop, ¿Has intentado buscar?

Te hago un ejemplo de lo que te están diciendo que hagas:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       MsgBox(Encrypt_text("¡ Hello world !")) ' Result: @i Hello world @o

   End Sub

   Public Shared Function Encrypt_text(ByVal str As String) As String

       Static Special_Characters As Char() = ":;-()¿?¡!@€$/".ToCharArray

       Static Special_Characters_Replacement() As String = _
       {"@q", "@w", "@e", "@r", "@t", "@y", "@u", "@i", "@o", "@p", "@a", "@s", "@d"}
       ' :  ,  ;  ,  -  ,  (  ,  )  ,  ¿  ,  ?  ,  ¡  ,  !  ,  @  ,  €  ,  $  ,  /

       Dim Temp_String As String = String.Empty
       Dim Replacement_Found As Boolean = False

       For Each character As Char In str ' Recorremos cada caracter de la variable str

           For x As Int32 = 0 To Special_Characters.Length - 1 ' recorremos cada caracter de nuestro array de caracteres
               If character = Special_Characters(x) Then ' si caracter de STR es igual a caracter de ARRAY...
                   Replacement_Found = True
                   Temp_String &= Special_Characters_Replacement(x)
                   Exit For ' Salimos de la iteración para ahorrar tiempo
               End If
           Next

           If Not Replacement_Found Then Temp_String &= character Else Replacement_Found = False

       Next

       Return Temp_String

   End Function

End Class

Saludos

[Flamer]

no se como se obtiene el valor ASCII de una letra en net, yo solo uso vb6 pero en palabras te servirá...

has el ciclo for que llegue hasta el final del string

luego opten el valor ASCII de cada dígito ( o letra como le quieras llamar para que no te confundas) y suma le x numero y luego transformalo a letra otra vez y listo ya lo tienes cifrado

saludos Flamer

[XresH]

Con Mid manejas los caracteres a tu antojo manejandolo bien, no precisas  grandes lineas de codigo para hacerlo, buscá y en 5 o 6 líneas con un for haces todo.

No hay necesidad de colocar todos los caracteres porque vos los tenes definidos en una caja de texto, maneja los que tenes y listo para qué mas ?

Saludos.

[43H4FH44H45H4CH49H56H45H]

Tan simple como esto:

Código (vbnet) [Seleccionar] Expandir

Dim sCadena As String = "123?%"
For Each cCaracter In sCadena
   MsgBox(Asc(cCaracter))
Next
Luego sumar, almacenar y listo