Hola estoy tratando de programar el cifrado de cesar, pero tengo algunas dudas.
Tengo un text1 y es ahi donde escribo lo que quiero cifrar, y un text2 donde debe aparecer lo que se cifra. utiulice el lenpara contar los caracteres del text, y la dornula se debe aplicar a cada caracter del text, y tomar los valores del mod que resulte de cada una de estas, no se como aplicar la formula cada caracter e imprimrirlo el text2
Hice lo siguiente, pero solo me cifro un caracter y de ahi nada.
Dim operacion
Dim modulo
Dim A, B, C, D, E, F, G, H, I, J, L, M, N, Ñ, O, P, Q, R, S, T, U, V, W, X, Y, Z
Private Sub Command1_Click()
A = 0
B = 1
C = 2
D = 3
E = 4
F = 5
G = 6
H = 7
I = 8
J = 9
K = 10
L = 11
M = 12
N = 13
Ñ = 14
O = 15
P = 16
Q = 17
R = 18
S = 19
T = 20
U = 21
V = 22
W = 23
X = 24
Y = 25
Z = 26
modulo = 27
caracter = (A) Or (
Or © Or (D) Or (E) Or (F) Or (G) Or (H) Or (I) Or (J) Or (K) Or (L) Or (M) Or (N) Or (Ñ) Or (O) Or (P) Or (Q) Or ® Or (S) Or (T) Or (U) Or (V) Or (W) Or (X) Or (Y) Or (Z)
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
Private Sub Command2_Click()
txt1.Text = ""
txt2.Text = ""
End Sub
ayundenme un poco porfa...
