ingreso una cadena de caracteres en un text, luego leo cuantos caracteres tiene con el len, y mi pregunta es ¿como le hago para recorrer esa cadena comparando caracter por caracter de tal manera que me cambie el valor real por otro de cada uno de los caracteres?
es decir la A=D, la B=E, y asi sucesivamente con cada letra de la cadena de caracteres, para eso tengo una formula que me toma el resto de una division (Mod)...
chequen....
A B C D E F G H I J … Z
0 1 2 3 4 5 6 7 8 9 … 26
mi cadena en el text es:
FEA
comparando cada caracter con la formula: y=(caracter+3) Mod 27
F=5 entonces y=(5+3)Mod 27... y=8...entonces para F la letra seria I
E=4 emtonces y=(4+3)Mod 27... y=7...entonces para E la letra H
A=0 emtonces y=(0+3)Mod 27... y=7...entonces para E la letra A
la cadena que apareceria en mi siguiente text seria: IHA
utilice el len para contar cuantos caracteres tengo...como le ago para lo anterior
modulo = 27
longitud = Len(txt1.Text)
For I = 1 To longitud
siguiente = Mid(txt1.Text, I, 1)
operacion = (caracter + 3) Mod modulo
Next I
txt2.Text = operacion
End Sub
