تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
شرح اكواد
#1
السلام عليكم اريد شرح لهذه الاكواد ودمتم

Imports System
Imports System.Security.Cryptography
Imports System.Text


Class Program

Shared Sub Main(ByVal args() As String)
Dim [source] As String = "Hello World!"
Using md5Hash As MD5 = MD5.Create()

Dim hash As String = GetMd5Hash(md5Hash, source)

Console.WriteLine("The MD5 hash of " + source + " is: " + hash + ".")

Console.WriteLine("Verifying the hash...")

If VerifyMd5Hash(md5Hash, [source], hash) Then
Console.WriteLine("The hashes are the same.")
Else
Console.WriteLine("The hashes are not same.")
End If
End Using
End Sub 'Main



Shared Function GetMd5Hash(ByVal md5Hash As MD5, ByVal input As String) As String

' Convert the input string to a byte array and compute the hash.
Dim data As Byte() = md5Hash.ComputeHash(Encoding.UTF8.GetBytes(input))

' Create a new Stringbuilder to collect the bytes
' and create a string.
Dim sBuilder As New StringBuilder()

' Loop through each byte of the hashed data
' and format each one as a hexadecimal string.
Dim i As Integer
For i = 0 To data.Length - 1
sBuilder.Append(data(i).ToString("x2"))
Next i

' Return the hexadecimal string.
Return sBuilder.ToString()

End Function 'GetMd5Hash


' Verify a hash against a string.
Shared Function VerifyMd5Hash(ByVal md5Hash As MD5, ByVal input As String, ByVal hash As String) As Boolean
' Hash the input.
Dim hashOfInput As String = GetMd5Hash(md5Hash, input)

' Create a StringComparer an compare the hashes.
Dim comparer As StringComparer = StringComparer.OrdinalIgnoreCase

If 0 = comparer.Compare(hashOfInput, hash) Then
Return True
Else
Return False
End If

End Function 'VerifyMd5Hash
End Class 'Program
' This code example produces the following output:
'
' The MD5 hash of Hello World! is: ed076287532e86365e841e92bfc50d8c.
' Verifying the hash...
' The hashes are the same.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيف تطبيق مجموعة اكواد في نفس الثانية saudisgames 2 104 05-04-18, 09:18 PM
آخر رد: عبدالله الدوسري
  [VB.NET] اكواد نظام لادارة صيدلية mohamedzezo 0 105 08-03-18, 02:28 PM
آخر رد: mohamedzezo
  مساعدة فى اكواد قواعد البيانات MOSTAFA.KAMEL 8 48 13-02-18, 02:27 AM
آخر رد: MOSTAFA.KAMEL
  [VB.NET] سؤال نظري عن حفظ قواعد البيانات بدون اكواد من الخبراء محمد اسماعيل 1 112 01-11-17, 01:09 AM
آخر رد: Rabeea Qbaha
  [VB.NET] هل يوجد اكواد صوت مثل Beep للتنبيه hglogtd 7 263 20-09-17, 02:36 AM
آخر رد: hglogtd
  [VB.NET] اريد طريقة لتشفير اكواد الفيجوال بيسك طارق سليمان 0 249 24-05-17, 05:14 PM
آخر رد: طارق سليمان
  [VB.NET] طلب اكواد مهم فيس بوك MOSTAFA.KAMEL 0 216 25-03-17, 11:04 PM
آخر رد: MOSTAFA.KAMEL
  [سؤال] مساعدة في تحويل اكواد المشروع عبدالرحمن المكاوي 1 374 07-09-16, 09:27 PM
آخر رد: عبدالرحمن المكاوي
  طلب مساعدة في مجموعة اكواد moftah70 4 1,023 06-09-16, 02:27 AM
آخر رد: أسامة السالمي
  [VB.NET] اكواد raiedahmed 2 329 12-07-16, 10:57 PM
آخر رد: khodor1985

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم