SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: RadicalEd en Viernes 24 de Septiembre de 2004, 19:21

Título: Encriptamiento
Publicado por: RadicalEd en Viernes 24 de Septiembre de 2004, 19:21

HOLA CHICOS DE SOLOCODIGO ESTOY HACIENDO UN PROGRAMITA DE ENCRIPTAMIENTO CON EL COMANDO XOR Y 3 TEXTBOX PARA ENCRIPTAR CON VARIOS VALORES, PERO AQUI VIENE EL PROBLEMA CON 2 TEXTBOX LO MAXIMO ES VALOR 9 Y 25 Y CON 3 ME TOCA DEJARLO CON 1-1-1 POR QUE ME SACA EL ERROR DE
 :angry:

Código: Text

1.  
2. Run-time error '5':
3. Invalid procedure call or argument
4.  

[/color] :angry:
AQUI LES VA EL CODIGO DE ENCRIPTAMIENTO Y EL SOURCE DEL PROGRAMA AYUDENMEN A MEJORARLO GRACIAS
 :comp:

Código: Text

1.  
2. Private Sub Command1_click()
3.     Dim TextoAux As String, Texto As String
4.     Dim I As Integer
5.     Texto = ""
6.     If Text2.Text = "" Then
7.         Call MsgBox("Favor dar valor de encriptamiento", 16, "Warning")
8.     Else
9.         For I = 1 To Len(Text1.Text)
10.             Text1.SelStart = I - 1
11.             Text1.SelLength = 1
12.             TextoAux = Text1.SelText
13.             Texto = Texto + Chr$(Asc(TextoAux) Xor Text2.Text & Text3.Text & Text4.Text)
14.         Next I
15.     End If
16.     Text1.Text = Texto
17. End Sub
18.  

:comp:
 :( A Y CON 4 TEXTBOX EN ADELENTE NO ME SIRVE
GRACIAS CHAO

Título: Re: Encriptamiento
Publicado por: RadicalEd en Viernes 24 de Septiembre de 2004, 21:15

ACABO DE ENCONTRAR OTRO ERROR CUANDO ES UN TEXTO LARGO EN LETRAS ME ELIMINA GRAN PARTE DE ELLAS A VECES DEJA SOLO 2 CARACTERES ENCRIPTADOS Y CUANDO LOS DESENCRIPTO ME APARECEN LOS 2 NO MAS ESTO ME PASA CON 3 VALORES DE ENCRIPTACION