Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: winnher en 18 Enero 2007, 04:40 am


Título: ENCRIPTACION
Publicado por: 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 ::)

Título: Re: ENCRIPTACION
Publicado por: VirucKingX en 18 Enero 2007, 04:49 am
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

Título: Re: ENCRIPTACION
Publicado por: dPix en 18 Enero 2007, 15:56 pm
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

Título: Re: ENCRIPTACION
Publicado por: satan69 en 18 Enero 2007, 19:15 pm
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..

Código:
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:
If txtPassword.Text = descifrar(mrstDB("fldPassword")) Then

Título: Re: ENCRIPTACION
Publicado por: winnher en 19 Enero 2007, 00:35 am
Gracias por tu ayuda amigo ;)

Título: Re: ENCRIPTACION
Publicado por: satan69 en 19 Enero 2007, 21:05 pm
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


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines