تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] بخصوص تشفير ملف txt
#1
عند تشفير الملف يتم استخدام مفتاح تشفر مثل ADAASDA5564ASdsdaSAd فيطلع الملف مشفر من الكود على هذه الطريقة
ÁøÂù سؤالى هو هل يستطيع احد فك تشفيره الملف بدون استخدام داله فك التشفير الخاصة بهذا الكود ؟
الرد }}}
تم الشكر بواسطة:
#2
ليس بالسهولة.

مفتاح التشفير مثل كلمة المرور،

فهناك برامج تقوم بتجربة كلمات مرور أو مفاتيح عشوائية أو تسلسلية حتى تصل لكلمة المرور أو المفتاح المطابق،

ولكن هذه البرامج تحتاج لمعالج سريع ووقت قد يصل لساعات أو أيام أو أشهر أو سنوات حسب تعقيد المفتاج وصعوبته.

ولن يقدم على محاولة فك تشفير إلا شخص أو جهة واثقة من وجود ما يهمها في ذلك الملف لتضع كل وقتها لفكه.


في النهاية الأمر يعتمد نوع وطريقة التشفير.
الرد }}}
تم الشكر بواسطة: Mohamed20 , Mohamed20 , ابو روضة
#3
(01-10-16, 02:26 AM)ممدوح كتب : ليس بالسهولة.

مفتاح التشفير مثل كلمة المرور،

فهناك برامج تقوم بتجربة كلمات مرور أو مفاتيح عشوائية أو تسلسلية حتى تصل لكلمة المرور أو المفتاح المطابق،

ولكن هذه البرامج تحتاج لمعالج سريع ووقت قد يصل لساعات أو أيام أو أشهر أو سنوات حسب تعقيد المفتاج وصعوبته.

ولن يقدم على محاولة فك تشفير إلا شخص أو جهة واثقة من وجود ما يهمها في ذلك الملف لتضع كل وقتها لفكه.


في النهاية الأمر يعتمد نوع وطريقة التشفير.

جزاك الله خير
الرد }}}
تم الشكر بواسطة:
#4
ممكن تعلمني طريقة التشفير ؟ تحياتي
الرد }}}
تم الشكر بواسطة:
#5
هذا مثال مشروح عن التشفير :

http://vb4arb.com/vb/showthread.php?tid=...#pid129816
الرد }}}
تم الشكر بواسطة: ابو روضة
#6
اخي كيف الطريقة ؟
الرد }}}
تم الشكر بواسطة:
#7
هذا كود التشفير مع الشرح :

كود :
   Private Sub BtnEncryptionWithPass_Click(sender As Object, e As EventArgs) Handles BtnEncryptionWithPass.Click
       Dim ContentFile As String
       Dim Password As String
       Dim FileNumber As Integer
       If Txt_Path.Text = String.Empty Or Txt_Password.Text = String.Empty Then
           MsgBox("الرجاء تحديد مسار الملف و كلمة المرور", MsgBoxStyle.Critical, "خطأ")
           Exit Sub
       End If
       'تعريف رقم ملف جديد لدى ويندوز
       FileNumber = FreeFile()
       'تهيءة المتحول بحجم الملف الذي سوف يفتح لكي يتم وضع المحتويات به
       ContentFile = Space(FileLen(Trim(Txt_Path.Text)))
       'فتح الملف بشكل ثنائي ووضعه داخل المتحول
       FileOpen(FileNumber, Trim(Txt_Path.Text), OpenMode.Binary)
       FileGet(FileNumber, ContentFile, 1)
       FileClose(FileNumber)
       'فتح مربع الحوار الادخال لوضع كلمة المرورو الجديدة
       Password = Txt_Password.Text 'InputBox("قم بتعيين كلمة المرور للملف على الا تزيد عن ثمانية خانات", "كلمة مرور")
       'تم تحديد عدد الخانات بسبب القرائة من جديد فيجب ان نعرف نقراء من اين اوي مكننا حل المشكلة بوضع علامة مميزة لبدء كلمة المرور ونهايتها مثلا كعلامة #
       'كلمة السر#
       'اما في حال تحديد العدد المعين فنقوم بملاء الخانات البقاية باصفار وسوف نستخدم هنا الطريقة الاولى
       'مع اننا حددنا عدد الخانات ولكن لن نعطي هذا اي اهمية داخل البرمجة حتى ولو زاد العدد عن ثمانية
       'وضع كلمة المرور في بداية الملف قبل مكونات الملف الاصلي ويمكن تحديد مكان اخر او تشغيير ملف
       'قمنا بوضع العلامة التي تقوم ببيان البداية والنهاية
       ContentFile = Password & "#" & ContentFile
       'في حال كنت ستسخدم كلمة السر في بايت محدد فانه من الواجب عليك بان تقوم باختيار حرف بداية وحرف نهاية غير معروف او غير مستخدم في تشفير الملف ولذلك انصح بان تستخدم الطريقة التالية
       'هذه الطريقة في حال كانة كلمة السر في مكان اخر داخل الملف طبعا لاننا لو قمنا بفتح الملف داخل محرر نصوصو وكانة في البداية فسوف نعرف كلمة المرور
       'طبعا هذا الاحتمال وارد وغير وارد فالكثير لايتوقع ان يتم التشفير بهذه الطريقة ولكن البعض يقوم بفتح الملف كما اعمل انا عند ارادة فك كلمة مرور
       'يتم اختبار عدد المحارف
       'يتم وضع عدد محارف كلمة المرور لكي يتم قرائة هذا العدد من الملف ولكي لانقوم بحذف او تعديل حرف المربع في حال كان ضمن الملف
       'طبعا نقوم بذلك بعد ان نقوم بتقسيم الملف لقسمين حتى نضع كلمة المرور في الداخل
       'ContentFile = ContentFile1 & "#" & Len(Password) & "#" & Password & "#" & ContentFile2
       'يتم فتح الملف مرة اخرى وذلك لتخزين القيم الجديدة به اي بعد وضع كلمة المرور
       FileOpen(FileNumber, Trim(Txt_Path.Text), OpenMode.Binary)
       FilePut(FileNumber, ContentFile, 1)
       FileClose(FileNumber)
       'ولكن ضع في حسبانك ان بعض الملفات لاتتاثر عند وضع كلمة السر في بداية الملف وتفتح بطريقة عادية
       SavePathInDatabase()
       FRMEncryptionWithPassLoad()
   End Sub

هذا كود فك التشفير :

كود :
       Dim ContentFile As String = String.Empty
       Dim Password As String = String.Empty
       Dim FileNumber As Integer = 0
       Dim i As Integer = 0
       Dim ss As String = String.Empty
       Dim sss As String = String.Empty
       If Txt_Path.Text = String.Empty Or Txt_Password.Text = String.Empty Then
           MsgBox("الرجاء تحديد مسار الملف و كلمة المرور", MsgBoxStyle.Critical, "خطأ")
           Exit Sub
       ElseIf DataGridView1.Rows.Count = 0 Then
           If MsgBox("هل تريد فك تشفير ملف غير مسجل بقاعدة البيانات ", MsgBoxStyle.YesNo, "فك تشفير ملف") = MsgBoxResult.No Then
               Exit Sub
           End If
       End If
       'استعراض الملف الذي نود وضع كلمة سر عليه ووضع مساره في عنوان النموذج
       'With CommonDialog1
       '    .Filter = "كل الملفات (*.*)|*.*"
       '    .Title = "تحديد الملف"
       '    .FileName = ""
       '    .ShowDialog()
       '    If .FileName = "" Then Exit Sub
       '    Me.Text = .FileName
       'End With
       'تعريف رقم ملف جديد لدى ويندوز
       FileNumber = FreeFile()
       'تهيءة المتحول بحجم الملف الذي سوف يفتح لكي يتم وضع المحتويات به
       ContentFile = Space(FileLen(Trim(Txt_Path.Text)))
       'فتح الملف بشكل ثنائي ووضعه داخل المتحول
       FileOpen(FileNumber, Trim(Txt_Path.Text), OpenMode.Binary)
       FileGet(FileNumber, ContentFile, 1)
       FileClose(FileNumber)
       'يتم قرائة الملف من البداية حتى يتم التاكد من بداية الحرف
       'كلمة المرو#
       For i = 1 To Len(ContentFile)
           'يتم قطع عدد من الاحرف بمقدار الدوارة ووضعها داخل المتغيير حتى يتم اختبار وجود الحرف حتى تاتي العملية التالية
           ss = Mid(ContentFile, 1, i)
           'في حال تم وجود هذا الحرف يتم الخروج من الدوارة كلي تاتي العملية التالية
           If Strings.Right(ss, 1) = "#" Then Exit For
       Next
       'يتم قص كلمة السر من الملف حتى الحرف القبل الاخير والذي هو علامة المربع
       sss = Mid(ss, 1, (Len(ss) - 1))
       inte1 += 1
       If inte1 = 1 Then
           'إلغاء تشفير قاعدة البيانات
           Txt_Password.Text = Decode(Txt_Password.Text, 25)
       End If
       'يتم الحصول على كلمة المرور حتى يتم التاكد من صحتها
10:     Password = Txt_Password.Text ' InputBox("هذا الملف محمي بكلمة مرور قم بوضع كلمة المرور حت يتم التاكد منها", "كلمة المرور")
       'يتم التحقق من كلمة المرور في حال كانة صحيحة يتم ازالتها من الملف والا يتم الخروج دون التغيير في الملف
       If Password = sss Then
           'MsgBox("كلمة المرور صحيحة وسوف يتم ازالة الحماية عن الملف")
           DeleteRecord()
           If ExitDel = "Exit Sub" Then
               Exit Sub
           End If
           'يتم قطع القيمة السابقة من الملف لكي يتم اعادته بدون كلمة مرور
           ContentFile = Mid(ContentFile, i + 1, Len(ContentFile))
           'يتم تخزين الملف بدون كلمة مرور
           FileOpen(FileNumber, Trim(Txt_Path.Text), OpenMode.Binary)
           FilePut(FileNumber, ContentFile, 1)
           FileClose(FileNumber)
           FRMEncryptionWithPassLoad()
           LoadDTGridView()
       Else
           'اظهار رسال
           If MsgBox("كلمة السر هذه خاطئة هل تود المحاولة مرة اخرى ", MsgBoxStyle.YesNo, "كلمة خاطئة") = MsgBoxResult.Yes Then
               'يتم اعادته الى مربع ادخال كلمة السر من جديد
               GoTo 10
           Else
               'يتم الخروج دون تعديل الملف
               Exit Sub
           End If
       End If
   End Sub
الرد }}}
تم الشكر بواسطة:
#8
(13-10-18, 05:43 PM)asemshahen5 كتب : هذا كود التشفير مع الشرح :

كود :
   Private Sub BtnEncryptionWithPass_Click(sender As Object, e As EventArgs) Handles BtnEncryptionWithPass.Click
       Dim ContentFile As String
       Dim Password As String
       Dim FileNumber As Integer
       If Txt_Path.Text = String.Empty Or Txt_Password.Text = String.Empty Then
           MsgBox("الرجاء تحديد مسار الملف و كلمة المرور", MsgBoxStyle.Critical, "خطأ")
           Exit Sub
       End If
       'تعريف رقم ملف جديد لدى ويندوز
       FileNumber = FreeFile()
       'تهيءة المتحول بحجم الملف الذي سوف يفتح لكي يتم وضع المحتويات به
       ContentFile = Space(FileLen(Trim(Txt_Path.Text)))
       'فتح الملف بشكل ثنائي ووضعه داخل المتحول
       FileOpen(FileNumber, Trim(Txt_Path.Text), OpenMode.Binary)
       FileGet(FileNumber, ContentFile, 1)
       FileClose(FileNumber)
       'فتح مربع الحوار الادخال لوضع كلمة المرورو الجديدة
       Password = Txt_Password.Text 'InputBox("قم بتعيين كلمة المرور للملف على الا تزيد عن ثمانية خانات", "كلمة مرور")
       'تم تحديد عدد الخانات بسبب القرائة من جديد فيجب ان نعرف نقراء من اين اوي مكننا حل المشكلة بوضع علامة مميزة لبدء كلمة المرور ونهايتها مثلا كعلامة #
       'كلمة السر#
       'اما في حال تحديد العدد المعين فنقوم بملاء الخانات البقاية باصفار وسوف نستخدم هنا الطريقة الاولى
       'مع اننا حددنا عدد الخانات ولكن لن نعطي هذا اي اهمية داخل البرمجة حتى ولو زاد العدد عن ثمانية
       'وضع كلمة المرور في بداية الملف قبل مكونات الملف الاصلي ويمكن تحديد مكان اخر او تشغيير ملف
       'قمنا بوضع العلامة التي تقوم ببيان البداية والنهاية
       ContentFile = Password & "#" & ContentFile
       'في حال كنت ستسخدم كلمة السر في بايت محدد فانه من الواجب عليك بان تقوم باختيار حرف بداية وحرف نهاية غير معروف او غير مستخدم في تشفير الملف ولذلك انصح بان تستخدم الطريقة التالية
       'هذه الطريقة في حال كانة كلمة السر في مكان اخر داخل الملف طبعا لاننا لو قمنا بفتح الملف داخل محرر نصوصو وكانة في البداية فسوف نعرف كلمة المرور
       'طبعا هذا الاحتمال وارد وغير وارد فالكثير لايتوقع ان يتم التشفير بهذه الطريقة ولكن البعض يقوم بفتح الملف كما اعمل انا عند ارادة فك كلمة مرور
       'يتم اختبار عدد المحارف
       'يتم وضع عدد محارف كلمة المرور لكي يتم قرائة هذا العدد من الملف ولكي لانقوم بحذف او تعديل حرف المربع في حال كان ضمن الملف
       'طبعا نقوم بذلك بعد ان نقوم بتقسيم الملف لقسمين حتى نضع كلمة المرور في الداخل
       'ContentFile = ContentFile1 & "#" & Len(Password) & "#" & Password & "#" & ContentFile2
       'يتم فتح الملف مرة اخرى وذلك لتخزين القيم الجديدة به اي بعد وضع كلمة المرور
       FileOpen(FileNumber, Trim(Txt_Path.Text), OpenMode.Binary)
       FilePut(FileNumber, ContentFile, 1)
       FileClose(FileNumber)
       'ولكن ضع في حسبانك ان بعض الملفات لاتتاثر عند وضع كلمة السر في بداية الملف وتفتح بطريقة عادية
       SavePathInDatabase()
       FRMEncryptionWithPassLoad()
   End Sub

هذا كود فك التشفير :

كود :
       Dim ContentFile As String = String.Empty
       Dim Password As String = String.Empty
       Dim FileNumber As Integer = 0
       Dim i As Integer = 0
       Dim ss As String = String.Empty
       Dim sss As String = String.Empty
       If Txt_Path.Text = String.Empty Or Txt_Password.Text = String.Empty Then
           MsgBox("الرجاء تحديد مسار الملف و كلمة المرور", MsgBoxStyle.Critical, "خطأ")
           Exit Sub
       ElseIf DataGridView1.Rows.Count = 0 Then
           If MsgBox("هل تريد فك تشفير ملف غير مسجل بقاعدة البيانات ", MsgBoxStyle.YesNo, "فك تشفير ملف") = MsgBoxResult.No Then
               Exit Sub
           End If
       End If
       'استعراض الملف الذي نود وضع كلمة سر عليه ووضع مساره في عنوان النموذج
       'With CommonDialog1
       '    .Filter = "كل الملفات (*.*)|*.*"
       '    .Title = "تحديد الملف"
       '    .FileName = ""
       '    .ShowDialog()
       '    If .FileName = "" Then Exit Sub
       '    Me.Text = .FileName
       'End With
       'تعريف رقم ملف جديد لدى ويندوز
       FileNumber = FreeFile()
       'تهيءة المتحول بحجم الملف الذي سوف يفتح لكي يتم وضع المحتويات به
       ContentFile = Space(FileLen(Trim(Txt_Path.Text)))
       'فتح الملف بشكل ثنائي ووضعه داخل المتحول
       FileOpen(FileNumber, Trim(Txt_Path.Text), OpenMode.Binary)
       FileGet(FileNumber, ContentFile, 1)
       FileClose(FileNumber)
       'يتم قرائة الملف من البداية حتى يتم التاكد من بداية الحرف
       'كلمة المرو#
       For i = 1 To Len(ContentFile)
           'يتم قطع عدد من الاحرف بمقدار الدوارة ووضعها داخل المتغيير حتى يتم اختبار وجود الحرف حتى تاتي العملية التالية
           ss = Mid(ContentFile, 1, i)
           'في حال تم وجود هذا الحرف يتم الخروج من الدوارة كلي تاتي العملية التالية
           If Strings.Right(ss, 1) = "#" Then Exit For
       Next
       'يتم قص كلمة السر من الملف حتى الحرف القبل الاخير والذي هو علامة المربع
       sss = Mid(ss, 1, (Len(ss) - 1))
       inte1 += 1
       If inte1 = 1 Then
           'إلغاء تشفير قاعدة البيانات
           Txt_Password.Text = Decode(Txt_Password.Text, 25)
       End If
       'يتم الحصول على كلمة المرور حتى يتم التاكد من صحتها
10:     Password = Txt_Password.Text ' InputBox("هذا الملف محمي بكلمة مرور قم بوضع كلمة المرور حت يتم التاكد منها", "كلمة المرور")
       'يتم التحقق من كلمة المرور في حال كانة صحيحة يتم ازالتها من الملف والا يتم الخروج دون التغيير في الملف
       If Password = sss Then
           'MsgBox("كلمة المرور صحيحة وسوف يتم ازالة الحماية عن الملف")
           DeleteRecord()
           If ExitDel = "Exit Sub" Then
               Exit Sub
           End If
           'يتم قطع القيمة السابقة من الملف لكي يتم اعادته بدون كلمة مرور
           ContentFile = Mid(ContentFile, i + 1, Len(ContentFile))
           'يتم تخزين الملف بدون كلمة مرور
           FileOpen(FileNumber, Trim(Txt_Path.Text), OpenMode.Binary)
           FilePut(FileNumber, ContentFile, 1)
           FileClose(FileNumber)
           FRMEncryptionWithPassLoad()
           LoadDTGridView()
       Else
           'اظهار رسال
           If MsgBox("كلمة السر هذه خاطئة هل تود المحاولة مرة اخرى ", MsgBoxStyle.YesNo, "كلمة خاطئة") = MsgBoxResult.Yes Then
               'يتم اعادته الى مربع ادخال كلمة السر من جديد
               GoTo 10
           Else
               'يتم الخروج دون تعديل الملف
               Exit Sub
           End If
       End If
   End Sub
اخي العزيز ممكن فيديو يوضح طريقة التشفير ؟ ما يصير عندي
الرد }}}
تم الشكر بواسطة:
#9
هذا مثال مع السورس كود

مثال مشروح عن التشفير
الرد }}}
تم الشكر بواسطة: elgokr , ابراهيم ايبو
#10
(03-11-18, 10:44 AM)محمد البرنس كتب : اخي العزيز ممكن فيديو يوضح طريقة التشفير ؟ ما يصير عندي


لا حاجة للفيديو اخى الفاضل

فقط انسخ الاكواد فى المشروع وسيعمل معك مباشر
ولتوضيح الفكرة اكثر انظر الى هذا الموضوع

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 103 22-02-24, 12:09 PM
آخر رد: AHMED213
  [نقاش] بخصوص خصم مبلغ الضريبة من السعر h2551996 6 262 24-01-24, 06:17 PM
آخر رد: Taha Okla
  طلب مساعدة بخصوص كود الطباعة paveldida 2 453 19-01-24, 12:00 AM
آخر رد: العتيق
  استفسار عام بخصوص فتح اكثر من اتصال على قاعدة بيانات واحدة assuhimi 0 320 15-09-23, 04:54 PM
آخر رد: assuhimi
Bug [سؤال] قائمة ب اسماء برامج فك تشفير البرامج وقرائة السورسات Aymanr3b 0 284 06-09-23, 12:56 AM
آخر رد: Aymanr3b
  سؤال بخصوص المخازن والكميات Owz 1 369 03-08-23, 03:32 PM
آخر رد: Taha Okla
  [سؤال] سؤال بخصوص برنامج يعمل بالباركود eslam kady 2 619 05-06-23, 11:26 PM
آخر رد: eslam kady
  [VB.NET] سؤال بخصوص العلامات العشرية والتقريب علاء الكبابي 2 511 05-06-23, 01:02 PM
آخر رد: علاء الكبابي
Thumbs Down سؤال بخصوص ConfuserEx-GUI telecomnetwork2022 2 395 14-05-23, 12:31 PM
آخر رد: عبدالله الدوسري
  سؤال بخصوص المستخدمين النشطاء الحاليين علي الشبكة عبدالكريم برشدان 1 376 27-03-23, 11:18 PM
آخر رد: sanyor77

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


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