ENCRIPTACION

[winnher]

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

[VirucKingX]

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

[dPix]

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 

[satan69]

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..

Código [Seleccionar] Expandir

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

Código [Seleccionar] Expandir

If txtPassword.Text = descifrar(mrstDB("fldPassword")) Then

[winnher]

Gracias por tu ayuda amigo

[satan69]

Gracias por tu ayuda amigo

de nada ... para eso estamos aqui .. para ayudar y que nos ayuden