تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اذا شفرنا نص بهذا الكود كيف نرجعه
#1
اذا شفرنا نص بهذا الكود كيف نرجعه

الدالة التالية من تخميني
كود :
Function en(ByVal tp As String) As String
        Dim all As String = ""
        Dim key() As String = "ابتثجحخد#ذرزسشصضطظ#عغفقكلمنهو#يabc##def#ghij#klmnop#qrstu#vwxyz12#345678#90~!@#$%^&*()#_+|-+*#/}{><#؛#×÷‘إلإًٌُ#َ:/،ـأل#أ[]ٍِ؟#.,’آلآ{}ْ~".Split("#")
        Dim i As Integer = 0
        For Each t In tp
            all &= key(i) & t
            i += 1
        Next
        Return all
    End Function

اذا شفرت نص بهذه الدالة فكيف ارجع النص المشفر؟؟
هل لديكم طريقة
وشكرا مقدما.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#2
كود :
Function de(ByVal tp As String) As String
        Dim key() As String = "ابتثجحخد#ذرزسشصضطظ#عغفقكلمنهو#يabc##def#ghij#klmnop#qrstu#vwxyz12#345678#90~!@#$​%^&*()#_+|-+*#/}{><#؛#×÷‘إلإًٌُ#َ:/،ـأل#أ[]ٍِ؟#.,’آلآ{}ْ~".Split("#")
        For i As Integer = 0 To key.Length - 1
            If key(i).Length > 0 Then
                tp = tp.Replace(key(i), "")
            End If
        Next
        Return tp
    End Function

لكن تلك الطريقة في تشفير النص غير فعالة لأنك لا يمكن أن تشفر بها نص عدد حروفه أكبر من عدد الشبابيك في key لكن يمكن التغلب على هذا بهذا التعديل على الدالة
كود :
Function en2(ByVal tp As String) As String
        Dim all As String = ""
        Dim key() As String = "ابتثجحخد#ذرزسشصضطظ#عغفقكلمنهو#يabc##def#ghij#klmnop#qrstu#vwxyz12#345678#90~!@#$​%^&*()#_+|-+*#/}{><#؛#×÷‘إلإًٌُ#َ:/،ـأل#أ[]ٍِ؟#.,’آلآ{}ْ~".Split("#")
        Dim i As Integer = 0
        For Each t In tp
            all &= key(i) & t
            i += 1
            If i > (key.Length - 1) Then
                i = 0
            End If
        Next
        Return all
    End Function
لكن الطريقة تظل غير فعالة بسبب إحتمالية وجود أجزاء من key في النص المطلوب تشفيره/فك تشفيره
الرد }}}}
تم الشكر بواسطة: سعود
#3
بارك الله فيك اخي علي .
قصدي من استخدام هذه الطريقة ان اجعل بين حرف في كلمة المرور وحرف اخر مزيج من التشكيلات لكن يبدو ان الامر يحتاج تفكير اكثر.
بارك الله فيك مرة اخرى على الكود.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#4
كما قال الاخ علي ..

الكود الي استعملته موعملي

استخدام خوارزميات التشفير المعروفة افضل مثلا (AES)

واذا تبي تحول تشفيرتك الى جدار حصين استخدم مع التشفيرة شي يسمى Steganography (فن الاخفاء)


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حل مشكلة الكود MOSTAFA.KAMEL 1 38 منذ 8 ساعة مضت
آخر رد: silverlight
  [VB.NET] تعديل الكود بخصوص Split 3asfa~mdmra 1 52 20-03-17, 04:34 PM
آخر رد: 3asfa~mdmra
  ما هو الكود لجعل اداة numericUpDown1 تتغير تلقائياً لحن الحياة 1 62 09-03-17, 07:19 AM
آخر رد: مساعدة
  تصحيح الكود bidaya 0 67 03-03-17, 03:23 PM
آخر رد: bidaya
  [VB.NET] كيف اوقف تفيذ امر هذا الكود 3asfa~mdmra 0 69 03-03-17, 01:21 PM
آخر رد: 3asfa~mdmra
  [VB.NET] خطأ في الكود ...مرفق مع المشروع....يرجي التعديل فقط 3asfa~mdmra 2 117 02-03-17, 04:26 PM
آخر رد: 3asfa~mdmra
  [VB.NET] مشكلة نقل الكود من Form2 الي Form1 3asfa~mdmra 2 104 17-02-17, 02:44 AM
آخر رد: الماجيك مسعد
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 419 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 92 12-02-17, 08:06 PM
آخر رد: مساعدة
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 99 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra

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


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