hola nuevamente a todos y gracias por todas las aportaciones anteriores han sodo muy buenas, chequen este codigo y diganme que puedo hacer para que funcione correctamente...
es un cifrado pos sustitucion, de tal manera que disfrace mi mensaje sustituyendolo por una regla, es decir, un caracter por otro.
debe desplazar el alfabeto una determinada cantidad. Por ejemplo, si cada letra se desplaza tres lugares, entonces:
A,B,C,D,E,F,G,H,I,J,K,L,M,N,Ñ,O,P,Q,R,S,T,U,V,W,X,Y,Z
llegara a ser:
D,E,F,G,H,I,J,K,L,M,N,Ñ,O,P,Q,R,S,T,U,V,W,X,Y,Z,A,B,C
posteriormente se para codificar el mesaje, se sustituye el alfabeto real por el desplazado.
entonces pase parte de esto a Visual...
Dim cadena
Dim X
Private Sub Command1_Click()
cadena= txt1.text
X = Len(cadena)
For I = 1 To X
if ((I+3) Mod 27) then
cifra = cifra & Mid(cadena,I,1)
End If
Next I
tct2.text = cifra
End FunctionAl primcipio leo la cadena y me da cuantos caracteres tengo, meto despues un for, pero al hacer la operacion (sumatle al caracter 3 posiciones mas del alfabeto, y sacarle el mod para saber que letra la sustituira, no la hace) esa es mi duda.
Agradecería iuna vez mas al apoyo de todos..
