Programación General > Visual Basic 6.0 e inferiores

 Cambiar Caracteres Con Una Formula

(1/1)

fantasma_85:
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 (B) 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...

RadicalEd:
Checa este código

--- Código: Text ---Private Sub Form_Load() On Error Resume Next newvari = 0 nuevo = "" variable = "RadicalEd & SoloCodigo" x = Len(variable) For h = 1 To x   z = Mid(variable, h, 1)   If z = "" Then      newvari = 30   Else      newvari = Asc(z)      If newvari = 121 Then        newvari = newvari - 26      End If   End If   nuevo = nuevo & Chr(newvari + 2) Next h Text1.Text = nuevoEnd Sub 

fantasma_85:
ok...es de mucha ayuda el codigo solo ice algunos cambios, pero las ultimas letras no me las cifra, cheque los cambios

Private Sub Command1_Click()

newvari = 0
nuevo = ""
                        'variable = "RadicalEd & SoloCodigo"  (no la utilice)

X = Len(txt1.Text)    

For H = 1 To X

  Z = Mid(txt1.Text, H, 1)  'cambie variable por txt1 donde ingreso mi cadena
 
If Z = "" Then

     newvari = 30

  Else
     newvari = Asc(Z)
     
    If newvari = 121 Then
       newvari = newvari - 27  
     End If
  End If
  nuevo = nuevo & Chr(newvari + 3)  '+3 por que son tres posiciomes que deseo recorrer

Next H
txt2.Text = nuevo
End Sub

una pregunta, ¿por que newcari = 30?, ah y las ultimas letras como X, Y, Z no me las cifra... que puedo hacer??

adjunto mi programa...

Navegación

[0] Índice de Mensajes