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
Autor
En línea
