تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تشفير
#1
سلام
عندي textbox 2

بدي لما اكتب في textbox كلمة car



textbox 2 كلمة gfd

وانا احدد الحروف و مقابلها
يعني
c="G
a="f
r="d
الرد }}}}
تم الشكر بواسطة:
#2
huthefa كتب :سلام
عندي textbox 2

بدي لما اكتب في textbox كلمة car



textbox 2 كلمة gfd

وانا احدد الحروف و مقابلها
يعني
c="G
a="f
r="d
السلام عليكم ورحمة الله وبركاته

أخي الكريم
هل هناك قاعدة معينة لعملية التشفير
بمعنى هل لكل حرف ما يقابله من أحرف التشفير
الرد }}}}
تم الشكر بواسطة:
#3
لا سيكون الاختيار عشوائي
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته

أخي الكريم إليك هذا المثال
كود :
Public Class Form1
    Dim EncryptionArray As Char() = {"Z", "Y", "X", "W", "V", "U", "T", "S", "R", "Q", "P",
                                  "O", "N", "M", "L", "K", "J", "I", "H", "G", "F",
                                  "E", "D", "C", "B", "A"}
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim EncryptedText As String = ""
        For Each Letter In TextBox1.Text.ToUpper.ToCharArray
            If Array.IndexOf(EncryptionArray, Letter) > -1 Then
                EncryptedText &= EncryptionArray(Asc(Letter) - 65)
            Else
                EncryptedText &= Letter
            End If
        Next
        TextBox2.Text = EncryptedText
    End Sub
End Class

بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#5
ممكن تشرح الكود
الرد }}}}
تم الشكر بواسطة:
#6
huthefa كتب :ممكن تشرح الكود

السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

كود :
Public Class Form1
[COLOR="#008000"]    'مصفوفة بها الأحرف التي
    'سيتم التشفير بناء عليها
    'ولا يشترط فيها هذا الترتيب
    'بل تستطيع أن تضع أي ترتيب[/COLOR]
    Dim EncryptionArray As Char() = {"Z", "Y", "X", "W", "V", "U", "T", "S", "R", "Q", "P",
                                  "O", "N", "M", "L", "K", "J", "I", "H", "G", "F",
                                  "E", "D", "C", "B", "A"}
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[color=#008000]        'متغير نصي لتخزين النص المشفر فيه[/color]
        Dim EncryptedText As String = ""
[COLOR="#008000"]        'حلقة تكرارية تقوم بالمرور على النص
        'المكتوب حرفا حرفا بعد تحويله إلى
        'أحرف كبيرة[/COLOR]
        For Each Letter In TextBox1.Text.ToUpper.ToCharArray
[COLOR="#008000"]            'هنا سيتم التحقق ما إذا كان الحرف
            'موجود داخل مصفوفة التشفير أو لا[/COLOR]
            If Array.IndexOf(EncryptionArray, Letter) > -1 Then
[COLOR="#008000"]                'الحرف موجود داخل المصفوفة
                'إذن سنقوم بتحويله إلى نظيره من أحرف التشفير
                'ما هي الطريقة
                'عدد عناصر المصفوفة 26 حرف
                'وعدد الأحرف الإنجليزية 26 حرف
                'فاعتمدنا على معرفة النظير بناء على الترتيب الآسكي
                'حيث أن حرف
                'A
                'يبدأ من 65 فلو كتب المستخدم الحرف
                '(A) or (a)
                'فسنقوم بطرح قيمة الآسكي به وهي 65 من القيمة 65
                'ليكون الناتج صفر أي العنصر الأول من المصفوفة[/COLOR]
                EncryptedText &= EncryptionArray(Asc(Letter) - 65)
            Else
[color=#008000]                'الحرف غير موجود في المصفوفة إذن سنبقي عليه كما هو بدون تغيير[/color]
                EncryptedText &= Letter
            End If
        Next
[color=#008000]        'نسند القيمة في مربع النص الثاني[/color]
        TextBox2.Text = EncryptedText
    End Sub
End Class

بالتوفيق
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية تشفير نص مثل %u0647%u0647%u0647%u0647%u0647 الماجيك مسعد 4 139 16-10-17, 10:42 PM
آخر رد: a.ahmed
  مشكلة فالكوكاييز تشفير بيانات الكوكاييز الماجيك مسعد 1 63 28-09-17, 11:16 AM
آخر رد: الماجيك مسعد
  مساعده فى حماية او تشفير ملفات البرنامج نبيل فتحى 2 131 06-09-17, 08:16 AM
آخر رد: نبيل فتحى
  تشفير البرنامج عبدالرحمن المكاوي 3 145 26-08-17, 12:26 AM
آخر رد: أبو نوره
  [كود] تشفير المشاريع عبدالرحمن المكاوي 2 186 22-06-17, 03:44 AM
آخر رد: boudyonline
  مساعدة بخصوص تشفير ملف exe OakenShield 1 165 18-05-17, 11:27 AM
آخر رد: OakenShield
  [سؤال] تشفير ملف XML sika1976 0 236 07-12-16, 03:37 PM
آخر رد: sika1976
  [سؤال] مساعدة في تشفير ملفات حسان محمد عابد 1 255 24-10-16, 10:28 PM
آخر رد: حسان محمد عابد
  [سؤال] بخصوص تشفير ملف txt Mohamed20 2 396 01-10-16, 03:18 AM
آخر رد: Mohamed20
  هل يمكن تشفير ملف xml Mohamed20 0 298 26-09-16, 05:49 AM
آخر رد: Mohamed20

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


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