• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 26 رای - 3 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: الگوریتم sha برای دات نت
حالت خطی
#1
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")
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


پیام‌های این موضوع
الگوریتم sha برای دات نت - توسط Amin_Mansouri - 10-16-2011، 11:17 PM

پرش به انجمن:


Browsing: 2 مهمان