رمزگذاری متن و ذخیره سازی بصورت Binary در رجیستری

[ROSTAM2]

سلام

این دومین دستور رمزگذاری متن هست که من به اشتراک می گذارم (اولیش این بوده: آموزش: تبدیل پسور کاربر به متن امن برای ذخیره در دیتابیس) و کد ساده ای داره و برای رمزگذاری کلیدواژهای موقت می شه استفاده کرد.

مراجع مورد نیاز:

Imports System.Security.Cryptography

Imports System.Text

متغیرهای با سطح دسترسی در ماجول کد:

    'Create a UnicodeEncoder to convert between byte array and string.

    Dim ByteConverter As New ASCIIEncoding

    'Create a new instance of the RSACryptoServiceProvider class 

    ' and automatically create a new key-pair.

    Dim RSAalg As New RSACryptoServiceProvider

رمز گذاری متن TextBox1 و ذخیره سازی در رجیستری بصورت Binary:

        Dim dataToEncrypt As Byte() = ByteConverter.GetBytes(Me.TextBox1.Text)

        Dim encryptedData() As Byte = RSAalg.Encrypt(dataToEncrypt, False)





        With Microsoft.Win32.Registry.CurrentUser.OpenSubKey("S  ystem", True)

            .SetValue("Password", encryptedData, Microsoft.Win32.RegistryValueKind.Binary)

        End With

فراخوانی مقدار ذخیره سازی شده از رجیستری و رمزگشایی مقدار و نمایش متن رمزگشایی دشه در TextBox2:

   Dim decryptedData() As Byte

        Dim encryptedData() As Byte

      

        With Microsoft.Win32.Registry.CurrentUser.OpenSubKey("S  ystem", True)

            encryptedData = .GetValue("Password", New Byte() {})

        End With

        decryptedData = RSAalg.Decrypt(encryptedData, False)





        Me.TextBox3.Text = ByteConverter.GetString(decryptedData)

کد کامل در پست بعدی....

[ROSTAM2]

این هم کد بصورت کامل:

Imports System.Security.Cryptography

Imports System.Text



Public Class EncryptText

    'Create a UnicodeEncoder to convert between byte array and string.

    Dim ByteConverter As New ASCIIEncoding

    'Create a new instance of the RSACryptoServiceProvider class 

    ' and automatically create a new key-pair.

    Dim RSAalg As New RSACryptoServiceProvider



    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim dataToEncrypt As Byte() = ByteConverter.GetBytes(Me.TextBox1.Text)

        Dim encryptedData() As Byte = RSAalg.Encrypt(dataToEncrypt, False)



        With Microsoft.Win32.Registry.CurrentUser.OpenSubKey("S  ystem", True)

            .SetValue("Password", encryptedData, Microsoft.Win32.RegistryValueKind.Binary)

        End With

End Sub



    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

        Dim decryptedData() As Byte

        Dim encryptedData() As Byte

      

        With Microsoft.Win32.Registry.CurrentUser.OpenSubKey("S  ystem", True)

            encryptedData = .GetValue("Password", New Byte() {})

        End With

        decryptedData = RSAalg.Decrypt(encryptedData, False)

Me.TextBox3.Text = ByteConverter.GetString(decryptedData)

    End Sub

End Class

[ROSTAM2]

نمونه استفاده از این روش در رمزگذاری موقت متن:

Imports System.Security.Cryptography

Imports System.Text

Public Class SecureString

    'Create a UnicodeEncoder to convert between byte array and string.

    Private Shared ByteConverter As New ASCIIEncoding

    'Create a new instance of the RSACryptoServiceProvider class 

    ' and automatically create a new key-pair.

    Private Shared RSAalg As New RSACryptoServiceProvider





    Protected Friend Shared Function Encrypt(Value As String) As String

        Dim dataToEncrypt As Byte() = ByteConverter.GetBytes(Value)

        Dim encryptedData() As Byte = RSAalg.Encrypt(dataToEncrypt, False)

        Return Convert.ToBase64String(encryptedData)

    End Function





    Protected Friend Shared Function Decrypt(Value As String) As String

        Dim decryptedData() As Byte

        Dim encryptedData() As Byte

        encryptedData = Convert.FromBase64String(Value)

        decryptedData = RSAalg.Decrypt(encryptedData, False)

        Return ByteConverter.GetString(decryptedData)

    End Function

End Class

Aparat Logo.jpg
فراهم سازی امنیت کد تأئید پست الکترونیک /کد بازیابی رمز