ددانلود سورس پروژه رمزگذاری متن

سلام به همه

در این پروژه متن از کاربر گرفته می شه رمزگذاری و پارامترهای رمزگذاری بعنوان کلید در دیتابیس Keys ذخیره سازی می شه که مجدداً توسط همان پارامترها قابل بازیابی است....

Imports System.Security.Cryptography

Imports System.Text





Public Class ProtectPassword

    Protected Friend Shared [Data] As New ProtectionEntities

    Protected Friend Shared ByteConverter As New UnicodeEncoding()

    ''' <summary>

    ''' 

    ''' </summary>

    ''' <param name="value">String to Protect</param>

    ''' <param name="ProtectedValue">Protected String converted from value</param>

    ''' <returns></returns>

    ''' <remarks></remarks>

    Public Shared Function [New](value As String, ByRef ProtectedValue As String) As Guid

        Dim KeyInfo As New Keys

        Dim R As RSACryptoServiceProvider = RSACryptoServiceProvider.Create()

        Dim ID As Guid = Guid.NewGuid

        With R.ExportParameters(True)

            KeyInfo.ID = ID

            KeyInfo.PrivateExponent = .D

            KeyInfo.exponent1 = .DP

            KeyInfo.exponent2 = .DQ

            KeyInfo.publicExponent = .Exponent

            KeyInfo.coefficient = .InverseQ

            KeyInfo.modulus = .Modulus

            KeyInfo.prime1 = .P

            KeyInfo.prime2 = .Q

        End With

        Data.AddToKeys(KeyInfo)

        Data.Keys.Context.SaveChanges()

        Data.AcceptAllChanges()

        ProtectedValue = Convert.ToBase64String(R.Encrypt(ByteConverter.Get  Bytes(value), False))

        Return ID

    End Function

    Public Shared Function [New](value As String, ByRef ProtectedValue As Byte()) As Guid

        Dim KeyInfo As New Keys

        Dim R As RSACryptoServiceProvider = RSACryptoServiceProvider.Create()

        Dim ID As Guid = Guid.NewGuid

        With R.ExportParameters(True)

            KeyInfo.ID = ID

            KeyInfo.PrivateExponent = .D

            KeyInfo.exponent1 = .DP

            KeyInfo.exponent2 = .DQ

            KeyInfo.publicExponent = .Exponent

            KeyInfo.coefficient = .InverseQ

            KeyInfo.modulus = .Modulus

            KeyInfo.prime1 = .P

            KeyInfo.prime2 = .Q

        End With

        Data.AddToKeys(KeyInfo)

        Data.Keys.Context.SaveChanges()

        Data.AcceptAllChanges()

        ProtectedValue = R.Encrypt(ByteConverter.GetBytes(value), False)

        Return ID

    End Function

    Public Shared Function Recover(KeyID As Guid, ProtectedValue As String) As String

        Dim R As RSACryptoServiceProvider = RSACryptoServiceProvider.Create()

        Dim Params As New RSAParameters

        Dim KeyInfo As Data.Objects.ObjectQuery(Of Keys)

        KeyInfo = Data.CreateQuery(Of Keys)("SELECT VALUE KEYS FROM KEYS WHERE KEYS.ID = @ID", New Objects.ObjectParameter("ID", KeyID))

        If KeyInfo Is Nothing Then Return Nothing

        With KeyInfo.FirstOrDefault

            Params.D = .PrivateExponent

            Params.DP = .exponent1

            Params.DQ = .exponent2

            Params.Exponent = .publicExponent

            Params.InverseQ = .coefficient

            Params.Modulus = .modulus

            Params.P = .prime1

            Params.Q = .prime2

            R.ImportParameters(Params)

        End With

        Return ByteConverter.GetString(R.Decrypt(Convert.FromBase  64String(ProtectedValue), False))

    End Function

    Public Shared Function Recover(KeyID As Guid, ProtectedValue As Byte()) As String

        Dim R As RSACryptoServiceProvider = RSACryptoServiceProvider.Create()

        Dim Params As New RSAParameters

        Dim KeyInfo As Data.Objects.ObjectQuery(Of Keys)

        KeyInfo = Data.CreateQuery(Of Keys)("SELECT VALUE KEYS FROM KEYS WHERE KEYS.ID = @ID", New Objects.ObjectParameter("ID", KeyID))

        If KeyInfo Is Nothing Then Return Nothing

        With KeyInfo.FirstOrDefault

            Params.D = .PrivateExponent

            Params.DP = .exponent1

            Params.DQ = .exponent2

            Params.Exponent = .publicExponent

            Params.InverseQ = .coefficient

            Params.Modulus = .modulus

            Params.P = .prime1

            Params.Q = .prime2

            R.ImportParameters(Params)

        End With

        Return ByteConverter.GetString(R.Decrypt(ProtectedValue, False))

    End Function

   End Class

ضمیمه 155930
مشاهده ویدیوی آموزشی در کانال آپارات

دانلود سورس پروژه در پیام رسان ایتا