26/10/2009, 19:52
|
| | | Fecha de Ingreso: abril-2006
Mensajes: 69
Antigüedad: 19 años Puntos: 0 | |
| Si he encriptado, ¿cómo desencripto?
Buenas a todos:
Tengo un código que encripta una contraseña y la transforma en otra cadena, y ahora quisiera hacer la operación inversa: dada una contraseña encriptada, desencriptarla y ver así la contraseña original.
El código que tengo (sacado de por aquí, creo... busqué y miré tantos códigos, que ya no recuerdo de dónde lo obtuve, pero creo que de vosotros):
Private Function encriptar(ByVal string)
Dim x, i, tmp
For i = 1 To Len( string )
x = Mid( string, i, 1 )
tmp = tmp & Chr( Asc( x ) + 1 )
Next
tmp = StrReverse( tmp )
encriptar = tmp
End Function
¿Cómo podría hacer para sacar una contraseña encriptada de la base de datos y desencriptarla para ver la original? ¿Es algo facil o es imposible?
Un saludo y gracias. |