Заранее спасибо



Public Function CalculateMD5(strMessage As String) As String
Dim bytBuffer() As Byte
bytBuffer = MD5StringArray(strMessage)
MD5Start
MD564Split Len(strPassword), bytBuffer
MD5Finish
CalculateMD5 = MD5Value
End Function
Сейчас этот форум просматривают: AhrefsBot и гости: 2