Programación General > Visual Basic 6.0 e inferiores

 Encriptamiento

(1/1)

RadicalEd:
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 --- Run-time error '5':Invalid procedure call or argument [/color] :angry:
AQUI LES VA EL CODIGO DE ENCRIPTAMIENTO Y EL SOURCE DEL PROGRAMA AYUDENMEN A MEJORARLO GRACIAS
 :comp:
--- Código: Text --- Private Sub Command1_click()    Dim TextoAux As String, Texto As String    Dim I As Integer    Texto = ""    If Text2.Text = "" Then        Call MsgBox("Favor dar valor de encriptamiento", 16, "Warning")    Else        For I = 1 To Len(Text1.Text)            Text1.SelStart = I - 1            Text1.SelLength = 1            TextoAux = Text1.SelText            Texto = Texto + Chr$(Asc(TextoAux) Xor Text2.Text & Text3.Text & Text4.Text)        Next I    End If    Text1.Text = TextoEnd Sub  :comp:
:( A Y CON 4 TEXTBOX EN ADELENTE NO ME SIRVE
GRACIAS CHAO

RadicalEd:
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

Navegación

[0] Índice de Mensajes