تقييم الموضوع :
  • 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#[email protected]#$%^&*()#_+|-+*#/}{><#؛#×÷‘إلإًٌُ#َ:/،ـأل#أ[]ٍِ؟#.,’آلآ{}ْ~".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#[email protected]#$​%^&*()#_+|-+*#/}{><#؛#×÷‘إلإًٌُ#َ:/،ـأل#أ[]ٍِ؟#.,’آلآ{}ْ~".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#[email protected]#$​%^&*()#_+|-+*#/}{><#؛#×÷‘إلإًٌُ#َ:/،ـأل#أ[]ٍِ؟#.,’آلآ{}ْ~".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 (فن الاخفاء)


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اين الخطاء في الكود قناص المدينة 7 697 21-05-18, 12:20 AM
آخر رد: عبدالله الدوسري
  هل انتم مهتمون ببرنامج يكتب عنكم الكود viv 19 288 09-05-18, 11:25 PM
آخر رد: viv
  [سؤال] حل المشكلة بهذا الخطأ إذا أمكن baqaa8 6 128 08-05-18, 06:41 PM
آخر رد: ابو ليلى
  [سؤال] ما هو الكود الذي من خلاله يعطي عدد الخلايا الفارغة من عمود محدد سمير الجبالي 2 101 07-05-18, 04:45 AM
آخر رد: sendbad100
  ما الخطأ في هذا الكود blida02 2 74 06-05-18, 03:16 PM
آخر رد: blida02
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 14 1,804 05-05-18, 08:56 AM
آخر رد: رمضان محمد
  [VB.NET] فحص الكود التالي فراس الغزي 2 93 26-04-18, 09:14 PM
آخر رد: فراس الغزي
  كيف اجعل الكود يكتب التاريخ بجوار اسم قاعدة البيانات عند النسخ الاحتياطي السيد الجوهري 2 153 13-04-18, 12:43 AM
آخر رد: سعود
  [سؤال] كيفية حماية الكود على جهاز المبرمج [email protected] 3 184 04-04-18, 02:35 PM
آخر رد: tarek
  [سؤال] ما معنى هذا الرمز (c"*") في هذا الكود أحمد إبراهيم سعد 3 149 02-04-18, 03:13 AM
آخر رد: أحمد إبراهيم سعد

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


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