[Sajad]

[COLOR="#800000"]السلام عليكم

تفضل الشرح مع الكود:

PHP كود :

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports System.Security.Cryptography

Public Class Form1

    Private ue As New UnicodeEncoding() ''لتدعم الكتابة العربية UnicodeEncoding تعريف متغير من الفئة 
    Private data As Byte() '' مصفوفة لخزن النص الذي نريد تشفيره
    Private en As Byte() '' لخزن النص المشفر
    Private de As Byte() '' لخزن النص بعد فك التشيفر
    Private rsa As New RSACryptoServiceProvider() '' RSACryptoServiceProvider تعريف متغير من الفئة 
    Private publickey As New RSAParameters() '' تعريف باراميرتر 
    Private privatekey As New RSAParameters() '' تعريف باراميرتر

    '' زر التشفير
    Private Sub RSA_Encryptbtn_Click(sender As System.Object, e As System.EventArgs) Handles RSA_Encryptbtn.Click
        data = ue.GetBytes(TextBox1.Text) ''Bytes لتحويل النص الى  UnicodeEncoding()  للفئة  GetBytes استخدام دالة ال
        rsa.ImportParameters(publickey) '' ادخال المفتاح العام لتشفير النص 
        en = rsa.Encrypt(data, False) ''en لتشفير النص بالمفتاح العام وخزنه في المصفوفة  RSACryptoServiceProvider  للفئة Encrypt استخدام دالة ال
        TextBox2.Text = Convert.ToBase64String(en) ''String لتحويل النص المشفر من سلسلة من البايتات الى  ToBase64String عن طريق الدالة  textbox2 اظهار النص المشفر في ال
    End Sub

    '' زر فك التشفير
    Private Sub RSA_Decryptbtn_Click(sender As System.Object, e As System.EventArgs) Handles RSA_Decryptbtn.Click
        en = Convert.FromBase64String(TextBox2.Text) ''الى مصفوفة من البايتات المشفرة String لتحويل النص من سلسة من الحروف المشفرة على شكل  FromBase64String  عن طريق الدالة  en خزن النص المشفر في المصفوفة 
        rsa.ImportParameters(privatekey) '' ادخال المفتاح الخاص لفك التشفير
        de = rsa.Decrypt(en, False) ''لفك التشفير Decrypt استخدام دالة 
        TextBox3.Text = ue.GetString(de) '' اظهار النص الاصلي
    End Sub


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        publickey = rsa.ExportParameters(False) '' تعريف المفتاح العام
        privatekey = rsa.ExportParameters(True) '' تعريف المفتاح الخاص
    End Sub
End Class 


بالتوفيق ان شاءالله[/COLOR]