+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic.Net (http://parsicoders.com/forumdisplay.php?fid=43)
+---- موضوع: الگوریتم sha برای دات نت (/showthread.php?tid=1083)
الگوریتم sha برای دات نت - Amin_Mansouri - 10-16-2011
Importarea :
Code:
کد:
Imports System.Security.Cryptographyکد:
Function getSHA1Hash(ByVal strToHash As String) As String
Dim sha1Obj As New Security.Cryptography.SHA1CryptoServiceProvider
Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)
bytesToHash = sha1Obj.ComputeHash(bytesToHash)
Dim strResult As String = ""
For Each b As Byte In bytesToHash
strResult += b.ToString("x2")
Next
Return strResult
End Functionنحوه استفاده از تابع :
کد:
getSHA1Hash("text here")