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






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

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