| Цитата(PashaPash @ 19.1.2009, 23:01) | | admsasha, System.Security.Cryptography.MD5 |
Спасибо, за подсказку !
| Код |
Public Function GenerateHash(ByVal FilePath As String) As String
Dim SourceText As String = File.ReadAllText(FilePath)
Dim Ue As New UnicodeEncoding()
Dim ByteSourceText() As Byte = Ue.GetBytes(SourceText)
Dim Md5 As New MD5CryptoServiceProvider()
Dim ByteHash() As Byte = Md5.ComputeHash(ByteSourceText)
Return Convert.ToBase64String(ByteHash)
End Function
|
Добавлено @ 16:08
Цитата(gambit @ 22.1.2009, 22:26  ) | | А что мешает самому??? Открыл файл и побайтово считаешь. А вообще разговор больше напоминает дельфийца (без обид, но я теперь не с вами и вужу ситуацию со стороны), который судорожно рыскает по инету в поиках компонента, для выполнения его задачи |
Мешало незнание существование "System.Security.Cryptography.MD5". И никаких компонентов я никогда не ищу. |