تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] جل إحترامي للجميع تشفير خوارزمية RSA
#1
السلام عليكم .

طابت أوقاتكم بكل خير .
كل التحايا لهذا الصرح الشامخ .

أحتاج مساعدتكم جدا بعد الله في أمر أرقني .

لدي أنا كود بالفيجول بيسكك ولكني لاأعلم أن يضع وكيف يتم إستدعائه في الفورم .
هو برنامج تشفير خوارزمية RSA .



الفيجول بيسك لغة لم أتعلمها من قبل وطولبت بالعمل بها الآن .


فضلا لاأمرا أحتاج تواصل أحدكم معي ليرشدني .
في أمس الحاجة لذالك .


جزيتم خيرا .
الرد
تم الشكر بواسطة:
#2
ستجد في الرابط التالي الطريقة التي تنشأ بها تطبيق يستخدم التشفير
How to encrypt and decrypt a file by using Visual Basic .NET

RolleyesRolleyesRolleyes
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد
تم الشكر بواسطة: vbnet
#3
جزيت خيرا , هذا الموقع يشرح عمل برنامج التشفير باسخدام خوارزمية DES >

وأنا عملي على RSA

كل الشكر لكك أخي الفاضل .
الرد
تم الشكر بواسطة:
#4
RSA Encryption In VB.NET

كود :
Imports System.Security.Cryptography 'Import the cryptography namespaces
Imports System.Text

Public Class Form1

    'Declare global variables
    Dim textbytes, encryptedtextbytes As Byte()
    Dim rsa As New RSACryptoServiceProvider
    Dim encoder As New UTF8Encoding
    Dim encrypted, TextToDecrypt, TextToEncrypt, decrypted As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextToEncrypt = TextBox1.Text
        encrypt()
        TextBox2.Text = encrypted
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextToDecrypt = TextBox2.Text
        decrypt()
        TextBox3.Text = decrypted
    End Sub

    Sub encrypt()
        textbytes = encoder.GetBytes(TextToEncrypt)             'Use UTF8 to convert the text string into a byte array
        encryptedtextbytes = rsa.Encrypt(textbytes, True)       'encrypt the text
        encrypted = Convert.ToBase64String(encryptedtextbytes)  'Convert the encrypted byte array into a Base64 string for display purposes
    End Sub

    Sub decrypt()
        encryptedtextbytes = Convert.FromBase64String(TextToDecrypt)
        textbytes = rsa.Decrypt(encryptedtextbytes, True)   'get the decrypted clear text byte array
        decrypted = encoder.GetString(textbytes)            'convert the byte array to text using the same encoding format that was used for encryption
    End Sub

End Class
الرد
تم الشكر بواسطة: Amir_Alzubidy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تشفير البيانات الموجودة في الداتا قرد فيو mawadaalmogrbi 1 128 05-06-18, 03:55 PM
آخر رد: mrnooo2000
  [VB.NET] برنامج تشفير النص rootkit 8 377 08-04-18, 04:53 PM
آخر رد: rootkit
  مثال على خوارزمية iFanfan 0 93 17-02-18, 07:59 PM
آخر رد: iFanfan
  [سؤال] نرجو الإفادة بخصوص تشفير متغير ثابت سعود الشامان 0 91 12-02-18, 12:05 AM
آخر رد: سعود الشامان
Star سؤال عن كيفية تشفير ووضع ملفات الوورد في قادة بيانات saed aldaly 1 105 08-02-18, 03:57 PM
آخر رد: محمود صالح
Photo [مشروع] مساعدة في مشروع برنامج يفك تشفير الفيديو المسجل من رسيفر لتشغيلها على الحاسب mohammedvego 12 509 07-11-17, 09:47 AM
آخر رد: mohammedvego
  كيفية تشفير نص مثل %u0647%u0647%u0647%u0647%u0647 الماجيك مسعد 4 360 16-10-17, 10:42 PM
آخر رد: a.ahmed
  طلب خوارزمية rabeh.ram 4 185 07-10-17, 04:27 PM
آخر رد: rabeh.ram
  مشكلة فالكوكاييز تشفير بيانات الكوكاييز الماجيك مسعد 1 269 28-09-17, 11:16 AM
آخر رد: الماجيك مسعد
  مساعده فى حماية او تشفير ملفات البرنامج نبيل فتحى 2 302 06-09-17, 08:16 AM
آخر رد: نبيل فتحى

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


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