Contraseñas guardadas con la funcion crypt de php

[juanfran]

Estoy investigando la forma de encriptar y desencriptar en access contraseñas guardadas con la funcion crypt de php.

He encontrado esta web http://www11.brinkster.com/notbono/vb.asp en la que hay un modulo de clase que se supone que es una implementacion pero no se como utilizarlo, no se programar demasiado.

¿alguien sabria darme indicaciones?

[José Mª Fueyo]

Hola
Sí es el último link, es un mero módulo bas. Abrelo con un editor de texto plano (notepad, notepad++, etc...) y copia desde la tercera línea en adelante. Crea en tu fichero de Access un nuevo módulo y pega el contenido.
Dentro de cada función parece que está documentado su uso. Prueba a hacerlo y sí vas teniendo problemas ya nos indicas.

Salu2,
José Mª Fueyo

[juanfran]

Hola Jose Mª, gracias por contestar, pero no me aclaro. En realidad en el modulo hay poca informacion de uso y no se cual es la funcion para encriptar una cadena. Estas son las funciones publicas del modulo:

Public Function fStringToHexCode(strText As String) As String
Public Function fHexCodeToString(strHex As String) As String

Y este es un ejemplo de contraseña guardada en la base de datos:

$2a$07$SeBknntpZror9uyftVopmu61qg0ms8Qv1yV6FG.kQOSM.9QhmTo36

Si hago fStringToHexCode("caracola") devuelve "630061007200610063006F006C006100".

Yo necesito pasar una "caracola" y que devuelva la cadena con el formato $2a$...

Manejo Access pero estos temas ya se me escapan jeje.

Post by José Mª Fueyo
Hola
Sí es el último link, es un mero módulo bas. Abrelo con un editor de texto plano (notepad, notepad++, etc...) y copia desde la tercera línea en adelante. Crea en tu fichero de Access un nuevo módulo y pega el contenido.
Dentro de cada función parece que está documentado su uso. Prueba a hacerlo y sí vas teniendo problemas ya nos indicas.
Salu2,
José Mª Fueyo

[juanfran]

Por cierto olvidaba decirte que el modulo es el primero, blowfish implementation.

Post by juanfran
Public Function fStringToHexCode(strText As String) As String
Public Function fHexCodeToString(strHex As String) As String
$2a$07$SeBknntpZror9uyftVopmu61qg0ms8Qv1yV6FG.kQOSM.9QhmTo36
Si hago fStringToHexCode("caracola") devuelve "630061007200610063006F006C006100".
Yo necesito pasar una "caracola" y que devuelva la cadena con el formato $2a$...
Manejo Access pero estos temas ya se me escapan jeje.

Post by José Mª Fueyo
Hola
Sí es el último link, es un mero módulo bas. Abrelo con un editor de texto plano (notepad, notepad++, etc...) y copia desde la tercera línea en adelante. Crea en tu fichero de Access un nuevo módulo y pega el contenido.
Dentro de cada función parece que está documentado su uso. Prueba a hacerlo y sí vas teniendo problemas ya nos indicas.
Salu2,
José Mª Fueyo

[José Mª Fueyo]

Hola de nuevo.
Abre el fichero cls con un editor de texto, y copia desde la línea de Option Explicit (excluido).
Abre tu fichero de Access, crea una nueva clase y pega el contenido que has copiado. Gúardalo.
Para hacer uso de ésta clase, que es un objeto, declara una variable del mismo tipo que el nombre que has dado a la clase, anteponiendo la palabra clave new (eso instancia la clase). A partir de ahí, los métodos te aparecerán por intellisense: pones un punto y se despliegan los métodos y propiedades disponibles.

Salu2,
José Mª Fueyo

[juanfran]

Hola Jose Mª,

Hice lo que me dijiste pero no conseguí hacer funcionar ninguno de los metodos que incluye el modulo, tiraban un error. Le pedire ayuda a un amigo que lo vea in situ.

Gracias y feliz navidad :)

Post by José Mª Fueyo
Hola de nuevo.
Abre el fichero cls con un editor de texto, y copia desde la línea de Option Explicit (excluido).
Abre tu fichero de Access, crea una nueva clase y pega el contenido que has copiado. Gúardalo.
Para hacer uso de ésta clase, que es un objeto, declara una variable del mismo tipo que el nombre que has dado a la clase, anteponiendo la palabra clave new (eso instancia la clase). A partir de ahí, los métodos te aparecerán por intellisense: pones un punto y se despliegan los métodos y propiedades disponibles.
Salu2,
José Mª Fueyo

[José Mª Fueyo]

Hola
¿Que error te daba?
¡Felices fiestas!
Salu2,

José Mª Fueyo