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
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.