Acá les dejo la función para cifrar.
Código
Private Declare Sub MDFile Lib "aamd532.dll" (ByVal f As String, ByVal R As String)
Private Declare Sub MDStringFix Lib "aamd532.dll" (ByVal f As String, ByVal T As Long, ByVal R As String)
Private Function MD5String(P As String) As String
Dim R As String * 32, T As Long
R = Space(32)
T = Len(P)
MDStringFix P, T, R
MD5String = R
End Function
Gracias de Antemano.










Autor



En línea





