Título: encritador XD CODE Publicado por: DJmixmancar en 25 Junio 2008, 19:24 pm BUENO ME DEJARON HACER UN ENCRITADOR DE TEXTO para mi buena suerte encontre uno echo ahora la cosa o el problema es algunos codigos no entiendo aver si me dan una manino ;D cual es para que sea un codigo ASCII esto lo que mas no entiendo si son funciones o variables =) Dim strTempChar As String 'Declaración de la variable 'Crea un ciclo para cada uno de los caracteres dentro de la cadena For i = 1 To Len(Text) If Asc(Mid$(Text, i, 1)) < 128 Then strTempChar = Asc(Mid$(Text, i, 1)) + 128 ElseIf Asc(Mid$(Text, i, 1)) > 128 Then strTempChar = Asc(Mid$(Text, i, 1)) - 128 End If Mid$(Text, i, 1) = Chr(strTempChar) Next i 'Indica cual es la funcion de crypt Crypt = Text ' End Function eso es todo el formulario ------------------ Public Function Crypt(Text As String) As String ' ' ' Dim strTempChar As String 'Declaración de la variable 'Crea un ciclo para cada uno de los caracteres dentro de la cadena For i = 1 To Len(Text) If Asc(Mid$(Text, i, 1)) < 128 Then strTempChar = Asc(Mid$(Text, i, 1)) + 128 ElseIf Asc(Mid$(Text, i, 1)) > 128 Then strTempChar = Asc(Mid$(Text, i, 1)) - 128 End If Mid$(Text, i, 1) = Chr(strTempChar) Next i 'Indica cual es la funcion de crypt Crypt = Text ' End Function Private Sub CmdCrypt_Click() ' 'cifra lo que se haya escrito en el textbox1 ' Dim strTextCodificar As String 'Declración de la variable strTextCodificar = Text1.Text ' Crypt strTextCodificar 'cifrado de la variable Text2.Text = strTextCodificar 'Mostrar el resultado de la cifrado Label1.Caption = strTextCodificar ' End Sub Private Sub cmdDecrypt_Click() ' 'descifra lo que este en el textbox 2 ' Dim strTextCodificar As String 'Declaracion de la variable strTextCodificar = Text2.Text Crypt strTextCodificar 'Desencriptacion de la variable Text1.Text = strTextCodificar 'Mostrar el resultado de la desencriptación Label1.Caption = strTextCodificar ' End Sub Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" End Sub Private Sub Form_Load() ' 'limpia los TextBoxs del formulario ' Text1.Text = "" Text2.Text = "" ' End Sub Título: Re: encritador XD CODE Publicado por: cassiani en 25 Junio 2008, 19:57 pm Son funciones...
Código
:o Título: Re: encritador XD CODE Publicado por: byebye en 25 Junio 2008, 21:18 pm ves a leer un rato primero.
Título: Re: encritador XD CODE Publicado por: d(-_-)b en 25 Junio 2008, 21:30 pm Citar BUENO ME DEJARON HACER UN ENCRITADOR DE TEXTO para mi buena suerte encontre uno echo te recomiendo que los aprendas a codear tu mismo, asi no se aprenderas nada, no se confundan, porque el echo de que allan encontrado un code y con el logran hacer lo que quieren, pues eso es un error, porque a la hora de la verdad, cuando quieras programar algo similar, diras: Wow, si es que no eh aprendido nada. Citar ahora la cosa o el problema es algunos codigos no entiendo ¿oh todo el code? por eso digo que ahi esta el problema, porque se quiere entender un code que todavia no sabes escribir. eso es lo que pasa con muchos que usan vb6, se acostumbran a buscar todo ya echo. :-\ suerte saludos... Título: Re: encritador XD CODE Publicado por: jackl007 en 26 Junio 2008, 00:08 am si te han dejado que hagas eso como trabajo, no copies; piensa un poquito y dedicale tiempo, has el tuyo.
en buena hora encontraste uno hecho, pues ya viste como funciona; ahora tu inventa una solucion, eso es lo mejor. al menos si quieres mejorar ese es el buen paso, no tomar lo que otro hizo. vamos!, piensa en como cambiar las cadenas por otras; podrias usar muchas cosas, te doy otra ayuda: investiga sobe la funion xor de VB. por ejemplo Código y se le aplica al resultado otro xor con el mismo numero da el valor inicial, osea: Código ; ahora mira tu tabla ascci y ponte a pensar en que hacer!! |