SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: fantasma_85 en Miércoles 26 de Marzo de 2008, 19:39

Título: Cambiar Caracteres Con Una Formula
Publicado por: fantasma_85 en Miércoles 26 de Marzo de 2008, 19:39
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...
Título: Re: Cambiar Caracteres Con Una Formula
Publicado por: RadicalEd en Miércoles 26 de Marzo de 2008, 20:14
Checa este código
Código: Text
  1. Private Sub Form_Load()
  2.  On Error Resume Next
  3.  newvari = 0
  4.  nuevo = ""
  5.  variable = "RadicalEd & SoloCodigo"
  6.  x = Len(variable)
  7.  For h = 1 To x
  8.    z = Mid(variable, h, 1)
  9.    If z = "" Then
  10.       newvari = 30
  11.    Else
  12.       newvari = Asc(z)
  13.       If newvari = 121 Then
  14.         newvari = newvari - 26
  15.       End If
  16.    End If
  17.    nuevo = nuevo & Chr(newvari + 2)
  18.  Next h
  19.  Text1.Text = nuevo
  20. End Sub
  21.  
Título: Re: Cambiar Caracteres Con Una Formula
Publicado por: fantasma_85 en Viernes 28 de Marzo de 2008, 20:36
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...