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

 
   
  



 
 





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





Сейчас этот форум просматривают: Google-бот и гости: 15