تقييم الموضوع :
  • 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] اريد تعديل ع هذا الكود الرجاء مساعدتـي e-coder 0 35 13-10-17, 06:39 PM
آخر رد: e-coder
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 6 898 11-10-17, 08:48 PM
آخر رد: رمضان محمد
  [VB.NET] مطلوب التعديل علي الكود التالي محمد اسماعيل 2 59 11-10-17, 01:08 PM
آخر رد: محمد اسماعيل
  [VB.NET] التعديل على الكود - رقم التسلسلي dubai.eig 4 131 08-10-17, 11:30 PM
آخر رد: dubai.eig
  استشارة في الكود hikmat 1 53 28-09-17, 01:33 AM
آخر رد: wale90
  مساعدة في الكود hikmat 0 37 27-09-17, 10:08 AM
آخر رد: hikmat
  كيف اجعل البرنامج ينفذ الكود الى فى الtextbox aliomar333 1 105 23-09-17, 05:32 PM
آخر رد: محمود صالح
  [VB.NET] ممكن تعديل الكود التالي D-Z 0 63 21-09-17, 06:34 PM
آخر رد: D-Z
  احتاج الكود المناسب لاغلاق فورم وفتح فورم آخر Abdelazez.Ahmad 4 108 20-09-17, 04:00 PM
آخر رد: alsouf
  [VB.NET] التعديل على الكود ليتناسق ما اريده 0theghost0 4 129 17-09-17, 03:35 PM
آخر رد: 0theghost0

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


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