منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > طلب افضل طرق للتشفير هل هى rsa
نسخة كاملة : طلب افضل طرق للتشفير هل هى rsa
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2

ali.alfoly

19-02-13, 05:10 PM
السلام عليكم ورحمة الله وبركاته

اخوانى كيف حالك

اريد ان اشفر نص وعند البحث فى المنتدى وجدت طرق متعدده وعند قراءة الردود فهمت ان جميع انواع التشفير تم اختراقها ما عدا rsa
فهل هذا صحيح اذا كان صيح فكيف اقوم بتشفير نص
اذا كان غير صحيح فما افضل طريقه للشفير مع التوضيح

وجزاكم الله خير
وياريت ملف مفتوح

Sajad

19-02-13, 05:40 PM
[COLOR="#800000"]السلام عليكم

انظر هذا الموضوع http://www.obviex.com/samples/Encryption.aspx[/COLOR]

ali.alfoly

19-02-13, 06:02 PM
وعليكم السلام اخى الكريم sajad
ياريت لو حدرتك توضحلى معلش عشان انا لسه مبتداء وكمان مبعرفش انجليزى

Sajad

19-02-13, 06:46 PM
[COLOR="#800000"]السلام عليكم

اخي العزيز حاليا الPGP مختصر من (Pretty Good Privacy) الافضل في التشفير والذي يعد نموذجا مطورا من RSA ويستخدم (message digest) البصمة الالكترونية للرسالة, طوره Phil Zimmerman حاصل على البكالوريوس في علوم الحاسب من جامعة اطلنتيك في فلوريدا وحصل على جوائز كثيرة بتصميمه هذه الخوارزمية

حسب ما اعرف ان هذه الخوارزمية غير قابلة للاختراق.

للاطلاع اكثرانظر هذا الموضوع http://ar.wikipedia.org/wiki/%D8%AA%D8%B...9%84%D9%86
[/COLOR]

ali.alfoly

19-02-13, 07:14 PM
جزاك الله خيرا اخى الكريم sajad
ياريت لو حدرتك تعملى ملف مفتوح به طريقه الاستخدام من تشفير نص وفك تشفيره و تشفير ملف وفك تشفيره
وجزاك الله خير

Sajad

19-02-13, 07:31 PM
[COLOR="#800000"]السلام عليكم

اخي العزيز الpgp برنامج موجود جاهز مفتوح المصدر تستطيع تنزيله من الانترنت

اليك مثال قمت بعمله في المرفقات عبارة عن تشفير نص عن طريق الrsa

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

ali.alfoly

19-02-13, 08:25 PM
جزاك الله خير لمتابعتك وتعبك معى

انا ظنيت ان pgp خاصيه للتشفير يمكن استخدامها فى الفيجوال Cool
طلع برنامج ههه انا وجدت ليه الشرح ده هنا فعلا ممتاز جدا

طيب رجاء من حدرتك اكتب لى الكود ذى كده مثلا يعنى عشان افهم

متغير = كود تشفير نص ("النص" , "المفتاح" )

متغير = كود فك تشفير نص ("النص" , "المفتاح" )

وكذلك كود تشفير ملف

متغير = كود تشفير ملف ("مسار الملف" , "المفتاح" )
متغير = كود فك تشفير ملف ("مسار الملف" , "المفتاح")

ولو شرح بسيط معاهم وشوية توابل وبهرات يبقى تمام هههه جزاك الله خير دت نت ليس سى شارب

Sajad

19-02-13, 08:52 PM
[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]

ali.alfoly

19-02-13, 10:12 PM
طيب معلش انا اسف ممكن ملف مفتوح عشان مش عارف استخدم الكود والله منذ اكثر من 3 ساعات

Sajad

20-02-13, 08:13 PM
[COLOR="#800000"]السلام عليكم

المشروع في المرفقات بلغة الVB.NET

ويمكن فتح المشروع من خلال الملف RSA_Encrypt_Decrypt_VB الموجود داخل المجلد RSA_Encrypt_Decrypt_VB

بالتوفيق ان شاءالله[/COLOR]
الصفحات : 1 2
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > طلب افضل طرق للتشفير هل هى rsa