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

[vb101]

السلام عليكم

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

أولا افتح برنامج فيوال بيسك 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 


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




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

[دنيا الأمل]

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

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

[vb101]

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

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

شاكر لك مرورك

[دفء المشاعر]

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

[stn555]

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


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

[الخلود]

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

[Spears]

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

[نور الايمان]

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

[vb101]

حياكم جميع ^^

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

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

[طالب المزيد]

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

كيفك يا أخي vb101

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

والله أعلم

وبالتوفيق