AndreC
04 de Enero del 2004

Tengo que encriptar password de BD, alguien podría pasarme un algoritmo?
Muchas gracias.

-=RattleHead=-
04 de Enero del 2004

Holas Bueno aca va Un Algorismo de Encriptacion,,
Nescesitas.
1 form con tres Textbox, y 2 commndButton..

Pon esto en la Seccion declaraciones
Dim s As String
Private Sub XORStringEncrypt(s As String, PassWord As String)
Dim n, i, char As Long

n = Len(PassWord)

For i = 1 To Len(s)
char = Asc(Mid$(PassWord, (i Mod n) - n * ((i Mod n) = 0), 1))
Mid$(s, i, 1) = Chr$(Asc(Mid$(s, i, 1)) Xor char)
Next

End Sub

Y el Resto en los Respectivos Comandos..

Private Sub Command1_Click()
s = Text1
XORStringEncrypt s, "MiClave"
Text2 = s
End Sub

Private Sub Command2_Click()
XORStringEncrypt s, "MiClave"
Text3 = s
End Sub

Ojala te Sirva :)

-=RattleHead=-