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






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

Сейчас этот форум просматривают: Majestic-12 [Bot] и гости: 9