هدية بسيطة لكم One Way Encrypt

سوف أعطيكم كود صغير للتشفير فقط و ليس للفك و هي مستخدمة كالهوتميل

بحيث جميع password مخزنة مشفرة في db و عندما تدخل انت الpassword الخاص بك

تقوم بتشفير الpassword المدخل و تقارنها بالpasword المشفرة في db هذة طريقة في أمن البرامج

Imports System
Imports System.Security.Cryptography

Module encrypt_one_way

    Public Function HASH1(ByVal data As String) As String

        Dim Hash() As Byte
        Dim HashVal As String

        Dim sha As New SHA512Managed

        
        Hash = sha.ComputeHash(System.Text.Encoding.Default.GetBytes(data))
        HashVal = System.Text.Encoding.Default.GetString(Hash)
        Return Convert.ToBase64String(Hash)
    End Function

End Module

===============================================