اذا شفرنا نص بهذا الكود كيف نرجعه

تقييم الموضوع :
  • 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 (فن الاخفاء)


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تعديل علي الكود دموع الوطن 10 159 08-08-18, 09:19 AM
آخر رد: elgokr
  طريقة عرض هذه المواضيع بهذا الشكل ابو روضة 22 416 01-08-18, 11:13 PM
آخر رد: GameOver
  [سؤال] تنفيذ الكود اللى عليه Checked ابو روضة 11 226 10-07-18, 06:06 PM
آخر رد: elgokr
  ارجو تصحيح الكود التالي bidaya 1 50 30-06-18, 09:24 PM
آخر رد: elgokr
  [VB.NET] اريد مساعدتي في تصحيح او تعديل الكود 0theghost0 8 187 29-06-18, 07:40 PM
آخر رد: elgokr
  هل هناك طريقة لتسريع هذا الكود ابو روضة 2 144 29-06-18, 03:00 AM
آخر رد: YousefOkasha
  [سؤال] أحاول أخذ باك أب لقاعدة البيانات من نوع mySQL ولكن لا أستطيع مرفق الكود dametucorazon 12 248 21-06-18, 05:19 AM
آخر رد: dametucorazon
Thumbs Up [VB.NET] هل ممكن تغيير رقم الهارد عن طريق الكود رمضان محمد 0 75 15-06-18, 07:33 AM
آخر رد: رمضان محمد
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 15 2,024 15-06-18, 07:28 AM
آخر رد: رمضان محمد
  استفسار في هذا الكود فراس الغزي 1 79 09-06-18, 05:04 AM
آخر رد: elgokr

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


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