منتديات حاسبكو المتخصصة بمادة الحاسب الآلي

- دروس وشرح برامج المنهج (http://www.7asabco.org/forumdisplay.php?f=151)

- - لتشفير الملفات (http://www.7asabco.org/showthread.php?t=9007)

لتشفير الملفات

السلام عليكم

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

أولا افتح برنامج فيوال بيسك 6.0

وضع على الفورم الأول زرين أمر وأداة CommonDialog1

ضع في زر الأمر الأول (لتشفير ملف) الكود التالي:

كود PHP:


		
			
Private Sub command1_Click() 

Dim ContentFile As String 

Dim Password As String 

Dim FileNumber As Long 

    With CommonDialog1 

        .Filter = "كل الملفات (*.*)|*.*|" 

        .Flags = cdlOFNHideReadOnly Or cdlOFNFileMustExist Or cdlOFNPathMustExist 

        .DialogTitle = "حدد الملف المراد حذفه" 

        .FileName = "" 

        .ShowOpen 

        If .FileName = "" Then Exit Sub 

        Caption = .FileName 

    End With 

    FileNumber = FreeFile 

    ContentFile = Space$(FileLen(Trim$(Caption))) 

    Open Trim$(Caption) For Binary As FileNumber 

        Get #FileNumber, 1, ContentFile 

    Close #FileNumber 

    Password = InputBox("ضع كلمة المرور على ألا تزيد على ثمانية حروف أو أرقام", "كلمة مرور") 

    ContentFile = Password & "#" & ContentFile 

    Open Trim$(Caption) For Binary As FileNumber 

        Put #FileNumber, 1, ContentFile 

    Close #FileNumber 

End Sub

وفي زر الأمر الثاني (لإلغاء تشفير الملف) الكود التالي:

كود PHP:


		
			
Private Sub command2_Click() 

Dim ContentFile As String 

Dim Password As String 

Dim FileNumber As Long 

Dim i As Long 

Dim ss As String 

Dim sss As String 

Dim RongPAssword As Integer 

    With CommonDialog1 

        .Filter = "كل الملفات (*.*)|*.*|" 

        .Flags = cdlOFNHideReadOnly Or cdlOFNFileMustExist Or cdlOFNPathMustExist 

        .DialogTitle = "تحدد الملف المراد حذفه" 

        .FileName = "" 

        .ShowOpen 

        If .FileName = "" Then Exit Sub 

        Caption = .FileName 

    End With 

    FileNumber = FreeFile 

    ContentFile = Space$(FileLen(Trim$(Caption))) 

    Open Trim$(Caption) For Binary As FileNumber 

        Get #FileNumber, 1, ContentFile 

    Close #FileNumber 

    For i = 1 To Len(ContentFile) 

        ss = Mid$(ContentFile, 1, i) 

        If Right$(ss, 1) = "#" Then Exit For 

    Next 

    sss = Mid$(ss, 1, (Len(ss) - 1)) 

10    Password = InputBox("هذا الملف محمي بكلمة مرور قم بوضع كلمة المرور حت يتم التاكد منها", "كلمة المرور") 

    If Password = sss Then 

        MsgBox "كلمة المرور صحيحة وسوف يتم ازالة الحماية عن الملف" 

    Else 

        RongPAssword = MsgBox("كلمة السر هذه خاطئة هل تود المحاولة مرة اخرى ", vbYesNo, "كلمة خاطئة") 

        If RongPAssword = vbYes Then 

            GoTo 10 

        Else 

            Exit Sub 

        End If 

    End If 

    ContentFile = Mid$(ContentFile, i + 1, Len(ContentFile)) 

    Open Trim$(Caption) For Binary As FileNumber 

        Put #FileNumber, 1, ContentFile 

    Close #FileNumber 

End Sub

إن شاء الله تكونون فهمت الكود وإذا فيه سأل إن شاء الله أنا حاضر

أخوكم:
الشرعبي
:D:D:D:D

مشاركة: لتشفير الملفات

جاااااااري التطبيق

جزاك الله الف خير على المعلومه الرائعه

مشاركة: لتشفير الملفات

أهلا فيكي دنيا الأمل

نورتي الموضوع

شاكر لك مرورك

مشاركة: لتشفير الملفات

الله يعطيك العافيه ....

مشاركة: لتشفير الملفات

جزاك الله خيرا على هالمشاركة

تحياتي وتقديري لك

مشاركة: لتشفير الملفات

جـــــدااااااااا معــــقد .....
Thank you

مشاركة: لتشفير الملفات

الله يعطيك العافية

مشاركة: لتشفير الملفات

السلام عليكم
شاكره لكم جميعا
وجعل الله ماتقومون فيه بموزين اعمالكم
بس ارجو منكم تخدمون
انا اسوي المشروع وانفذه صح واحفظ اول مره من فايل اختار save form1 ,واختار saveثم من فايل اختار save project1واختار save واقفل البرنامج بعدين اذا اردت فتح نفس المشروع لااستطيع
مع اني اختار recentساعدوني الله يجزاكم كل خير

مشاركة: لتشفير الملفات

حياكم جميع ^^

الخلود الله يهديكم بس ! وين التعقيد ؟
بالعكس كود أعتبره شخصياً احسن كود ومختصر عندي بعد .,

نور الايمان .,
أعتقد طريقة حفظك خطأ / حاولي تتأكدين من طريقة حفظك للمشروع وانها بنفس المكان او المجلد .

مشاركة: لتشفير الملفات

السلام عليكم و رحمه الله وبركاته

كيفك يا أخي vb101

فكرة الكود إنه يفتح الملف علي هئية البانرني ويقوم بالكتابة فيه

وطبعا ما ينفع الكود مع الملفات التي علي هئية نصوص

ولكن ينفع مع الصور لان كلمة المرور المطلوبة ليست كلمة مرور فعليه

ولكنها تنضاف في الملف فإذا كان الملف نص كتبت كلمة المرور في الملف

وإذا كانت صورة كتبت كلمة السري في الصورة وعندما تضيع أي بيانات إلي اصل

الصورة فإن الصورة تصبح كأنها غير صحيحة ولن تستطيع فتحها

-------------------------------------

أنا في راي هذا البرنامج ليس مثل البرامج التي تغلق الملفات و الصور بكلمة مرور

ولكن يعتبر من ضمن البرنامج التي يتم بها عكس محتويات الملف ليصبح غير صحيح

وقت فتحه إلا إذا أنا قمت بعكس العملية وطبعا لا يعرف اسلوب العكس إلا أنا

وأيضا يعتبر من ضمن البرنامج التي يتم حذف الصور بها بأمان فأنت كما تعلم بأن

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

فهذه البرنامج تقوم بعمل تعطيب لمحتويات الصورة وبعدها يتم حذفها

فحتي لو إنك خبيرة وقمت باسترجاع الصورة فإنك لن تستطيع فتحها لان بيانات

الصورة غير صحيحة

والله أعلم

وبالتوفيق