امتیاز موضوع:
  • 25 رای - 3.08 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
الگوریتم sha برای دات نت
نویسنده پیام
Amin_Mansouri آفلاین
مدیر کل سایت
*

ارسال‌ها: 4,842
تاریخ عضویت: Apr 2011
اعتبار: 158
.وضعیت من: Artistic
ارسال: #1
الگوریتم sha برای دات نت
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
10-16-2011، 11:17 PM
وب‌سایت ارسال‌ها پاسخ


پرش به انجمن:


کاربران در حال بازدید این موضوع: 1 مهمان

تماس با ما | ParsiCoders (Persian Team) For Programming ,Security,Cracking,Network,Pars Civilization,Medical,Science,Entertaining | بازگشت به بالا | | حالت آرشیو | پیوند سایتی RSS
This forum uses Lukasz Tkacz MyBB addons.