QUE TAL AMIGOS, NECESITO UN PROGRAMITA URGENTE PARA PASAR LA MATERIA DE VISUAL, UN CODIGO QUE ME ENCRIPTE UN TEXO PLANO UTILIZANDO LOS METODOS DE CORRIEMIENTO Y DE PALABRAS CLAVES, LES AGRADECERIA BASTANTE MUCHISMIMAS GRACIAS ::)
mejor te lo digo Yo :
1 - No escribas en mayuscula
2 - Utiliza el Boton buscar que esta arriba
Bye hay que buscar antes de preguntar
Eso te dirian xD sorry compadre pero es la verdad
Cita de: winnher en 18 Enero 2007, 04:40 AM
QUE TAL AMIGOS, NECESITO UN PROGRAMITA URGENTE PARA PASAR LA MATERIA DE VISUAL, UN CODIGO QUE ME ENCRIPTE UN TEXO PLANO UTILIZANDO LOS METODOS DE CORRIEMIENTO Y DE PALABRAS CLAVES, LES AGRADECERIA BASTANTE MUCHISMIMAS GRACIAS ::)
Se ve que has leido pocas cosas de este foro :-X :-X :-X
Cita de: winnher en 18 Enero 2007, 04:40 AM
QUE TAL AMIGOS, NECESITO UN PROGRAMITA URGENTE PARA PASAR LA MATERIA DE VISUAL, UN CODIGO QUE ME ENCRIPTE UN TEXO PLANO UTILIZANDO LOS METODOS DE CORRIEMIENTO Y DE PALABRAS CLAVES, LES AGRADECERIA BASTANTE MUCHISMIMAS GRACIAS ::)
pues ya que nadie te qusio ayudar pues yo si... aqui esta este metodo ... mas o menos..
Dim TextoEncriptado As String
Public Function cifrar(ByVal Texto As String) As String
TextoEncriptado = ""
For i = 1 To Len(Texto)
TextoEncriptado = TextoEncriptado & Chr(Asc(Mid(Texto, i, 1)) + 1)
Next i
cifrar = TextoEncriptado
End Function
Public Function descifrar(ByVal Texto As String) As String
TextoEncriptado = ""
For i = 1 To Len(Texto)
TextoEncriptado = TextoEncriptado & Chr(Asc(Mid(Texto, i, 1)) - 1)
Next i
descifrar = TextoEncriptado
End Function
ejemplo cuando vas a guardar en base de datos solo lo usas asi
If txtPassword.Text = descifrar(mrstDB("fldPassword")) Then
Gracias por tu ayuda amigo ;)
Cita de: winnher en 19 Enero 2007, 00:35 AM
Gracias por tu ayuda amigo ;)
de nada ... para eso estamos aqui .. para ayudar y que nos ayuden