Autor Tema: Encriptamiento (Leído 2108 veces)

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

Código: Text

 
Run-time error '5':
Invalid procedure call or argument

[/color]

AQUI LES VA EL CODIGO DE ENCRIPTAMIENTO Y EL SOURCE DEL PROGRAMA AYUDENMEN A MEJORARLO GRACIAS

Código: Text

 
Private Sub Command1_click()
    Dim TextoAux As String, Texto As String
    Dim I As Integer
    Texto = &#34;&#34;
    If Text2.Text = &#34;&#34; Then
        Call MsgBox(&#34;Favor dar valor de encriptamiento&#34;, 16, &#34;Warning&#34;)
    Else
        For I = 1 To Len(Text1.Text)
            Text1.SelStart = I - 1
            Text1.SelLength = 1
            TextoAux = Text1.SelText
            Texto = Texto + Chr&#036;(Asc(TextoAux) Xor Text2.Text & Text3.Text & Text4.Text)
        Next I
    End If
    Text1.Text = Texto
End Sub
 

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

SoloCodigo

Autor Tema: Encriptamiento (Leído 2108 veces)

RadicalEd

Encriptamiento

RadicalEd

Re: Encriptamiento