Parsi Coders

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")

Amin_Mansouri