أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
كريم نظيم مجدى يونس-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة بحاجة الى كود ترحيل اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





استخراج ملفات الضغط محمي بكلمة سر عن طريق vba

انا بحثت عشان الاقي طريقة لأستخراج ملفات المضغوطة لاقيت كود شغال 100% بس المشكلة محتاج ازاي استخرج ملفات مضغوطة محمية بك ..


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


15-05-2021 08:37 مساء
fathy
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-03-2020
رقم العضوية : 18571
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 142
 offline 

انا بحثت عشان الاقي طريقة لأستخراج ملفات المضغوطة لاقيت كود شغال 100% بس المشكلة محتاج ازاي استخرج ملفات مضغوطة محمية بكلمة سر 
فأنا محتاج مساعدة بعد ازنكم في التعديل على الكود انة يقدر يفك ملفات مضغوطة محمية 
و في عدة اكواد 
الكود الاول :
Sub test1()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.EnableEvents = False

    Dim File        As Object
    Dim Files       As Object
    Dim MainFldr    As Object
    Dim MainPath    As Variant
    Dim oShell      As Object
    Dim ZipFile     As Variant
    Dim ZipFldr     As Object
    
        MainPath = (ThisWorkbook.Path & "\")
        
        Set oShell = CreateObject("Shell.Application")
            
        Set MainFldr = oShell.Namespace(MainPath)
        
            Set Files = MainFldr.Items
                Files.Filter 32, "test1.zip"
                
                
            For Each File In Files
                Set ZipFldr = oShell.Namespace(File)
                For Each ZipFile In ZipFldr.Items
                    MainFldr.CopyHere ZipFile.Path
                Next ZipFile
            Next File
            
            Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.EnableEvents = True
            
End Sub



الكود التاني : ودة الافضل عشان صيغة ال rar نقدر نحمي الملف حماية اسماء الملفات و تشفير تام محدش يقدر يطلع ما بداخل الملف و ممكن نغير الصيغة الى 7z 

Sub test2()

    Dim RarIt As String
    Dim Source As String
    Dim Desti As String
    Dim WinRarPath As String
           Dim sPathTo7ZipExe As String
        Dim sZipPassword As String
'sPathTo7ZipExe = "C:\Program Files\WinRar\WinRAR.exe"
    WinRarPath = "C:\Program Files\WinRar\"
    Source = (ThisWorkbook.Path & "\test2.rar")
    sZipPassword = "456"
    Desti = (ThisWorkbook.Path & "\")

    RarIt = Shell(Chr(34) & WinRarPath & "WinRar.exe" & Chr(34) & " e " & Chr(34) & Source & Chr(34) & " " & Chr(34) & Desti & Chr(34), vbNormalFocus)

End Sub



الكود الثالث : دة كود بيضغط الملفات و يحميها بكلمة سر بس معرفتش اعمل العكس بس شرط لازم تكون مسطب برنامج 7z
و عامل الباسورد : 456

Sub test3()

    Dim strCommand As String
    Dim strDestFileName As String
    Dim strSourceFileName As String
    Dim str7ZipPath As String
    Dim strPassword As String





strDestFileName = (ThisWorkbook.Path & "\")
strSourceFileName = (ThisWorkbook.Path & "\test3.rar")
str7ZipPath = "C:\Program Files\7-Zip\7z.exe"
strPassword = "456"

strCommand = str7ZipPath & " -p" & strPassword & " a -tzip """ & strDestFileName & """ """ & strSourceFileName & """"
Shell strCommand

End Sub


و ارفقت ملفات مضغوطة جهزة للتجربة وكلهم  نفس كلمة السر 456


 
 
 
  test.rar   تحميل rar مرات التحميل :(13)
الحجم :(8.273) KB



أفضل إجابة مقدمة من محمود ابو الدهب وهي:
اعتقد استاذ ياسر خليل اثناء العمل معى على كود لفك الملفات المضغوطة المحمية بكلمة سر انه وجد مشكلة ببرنامج الحماية الخاص بالنسخة وبحثناء عن بديل لهذا الامر ولكن اطلاعى على تلك النقطة توقف من هذه اللحظة من فترة لعل استاذ ياسر خليل يعطيك حل لتلك المشكلة ان شاء الله

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

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

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




20-05-2021 11:37 صباحا
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 793
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 3910
عدد الإجابات: 108
 offline 
look/images/icons/i1.gif استخراج ملفات الضغط محمي بكلمة سر عن طريق vba
السلام عليكم وبها نبدأ
جرب هذا الكود لعله يفي الغرض

Sub Un_zip()
Dim FSO As Object, oApp As Object, Fname As Variant, FileNameFolder As Variant, DefPath As String
    Fname = Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip", _
                                        MultiSelect:=False)
    If Fname = False Then
        Exit Sub
    Else
        DefPath = Application.DefaultFilePath
        If Right(DefPath, 1) <> "\" Then
            DefPath = DefPath & "\"
        End If
        FileNameFolder = DefPath & "MyUnzipFolder0" & "\"
        MkDir FileNameFolder
        Set oApp = CreateObject("Shell.Application")
        oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).Items
        Set FSO = CreateObject("scripting.filesystemobject")
        FSO.deletefolder Environ("Temp") & "\Temporary Directory*", True
    End If
End Sub

20-05-2021 07:27 مساء
مشاهدة مشاركة منفردة [2]
fathy
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-03-2020
رقم العضوية : 18571
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 142
 offline 
look/images/icons/i1.gif استخراج ملفات الضغط محمي بكلمة سر عن طريق vba
و عليكم السلام 
الكود يفك ملفات الضغط الغير محمية بكلمة سر 
جربت الكود في ملف مضغوط محمي و طلب مني كلمة السر و اكتبها يدوياً
محتاج بس بدل ما اكتب الباسورد الكود ينفذها تلقائي 

21-05-2021 12:41 صباحا
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 793
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 3910
عدد الإجابات: 108
 offline 
look/images/icons/i1.gif استخراج ملفات الضغط محمي بكلمة سر عن طريق vba
الكود يطلب منك الباسورد مره واحده فقط
شغل الكود وعندما يطلب منك كلمه المرور أكتبها ولن يطلبها منك مره اخرى لهذا الملف المضغوط 

21-05-2021 08:17 صباحا
مشاهدة مشاركة منفردة [4]
fathy
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-03-2020
رقم العضوية : 18571
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 142
 offline 
look/images/icons/i1.gif استخراج ملفات الضغط محمي بكلمة سر عن طريق vba
اعرف ذلك بس لو عملت اعادة تشغيل للجهاز هيطلب مني الباسورد  
انا هدفي  بناء مشروع حماية 
انا شغال في حماية اي مشروع اكسيل 
لان معروف اي مشروع اكسيل يستخدمة عدة مستخدمين سهل جدا اختراقة 
فأنا حاليا  بسعى في تأمين المصنف بأي طريقة 
و فضلي اخر خطوة و هى فك ملف مضغوط محمي
و خطوات فكرتي لتأمين المشروع مطول و خطوات كتير جدا و محتاجة ترتيب و تركيز
انا فكرت اني اعمل تأمين للمشروع بعدة ملفات اكسيل 
اول ملف هيكون فاضي و محمي  بكلمة سر من الخارج و محمي ايضاً بحماية الشير عشان محدش يقدر يغير الباسورد يفضل ثابت حتى لو اتعمل حفظ بأسم محدش هيعرف يغير الباسورد ابدا و كمان عملت الغاء لكل تبويبات الملف حماية زائدة يعني تفتح الملف عبارة عن خلايا فقط وكمان محمية من اي تعديل .
و نكتب كود تنفيذي  يشتغل عند اول فتح المصنف انة يفك ملف مضغوط و يشيك على قيمة معينة وهو و المصنف مغلق عشان يتأكد انة الملف الاصلي ولا لاء و بعد كدة  يفتح مصنف اخر محمي و دة ملف رقم 2 الملف دة فية عدة اكواد اول مرحلة عند الفتح يتم التاكيد على مسميات الملفات في نفس المسار و يتاكد على ان في مفتاح تسجيل ومكان المفتاح دة في بارتشن C و لو مش في مفتاح تسجيل يخرج من جميع المصنفات لو في مصنف مفتوح .
طب لو في مفتاح و حد قدر يعرف مكان المفتاح دة مكانة في  ال C نسخة وكدة  , طبعاً مش هينجح في فتح المشروع عشان عامل كود تنفيذي يعمل مقارنة برقم الماذر بورد لو مش مطابق يقفل كل المصنفات و طبعا الملف الي فية الاكواد دي ملف محمي بس واجهني مشكلة لو عملت حماية الشير عن طريق كود الملف مش بيتحفظ اصلا و الحماية بتتفك فعملت حل بديل انة يعمل حفظ بأسم بأسم مختلف عشان الحماية تتحفظ ,
وبعدها فكرت اني لازم اعمل ملف ثالث و دة هيكون قلب الحماية 
ملف رقم 2 قبل ما يقفل يحفظ نفسة بأسم مختلف ثم يفتح ملف رقم 3 و يقفل و يجي دور ملف رقم 3 انة يحذف الملف رقم 2 و يغير المسمى للملف الي تم حفظة بأسم للمسمى الاصلي ثم يفتح المشروع الاساسي .
و ملف رقم 3 كدة كدة محمي من الخارج بس كنت عاوز حماية اضافية انة ينضغط  بصيغة RAR و نحمي الملف دة حماية قوية حماية باسورد خارجي و حماية ظهور اسماء الملفات و نسمي ملف رقم 3 اسم طويل جدا عشان محدش يطلع علية ولا يلحق حد يشوفة عشان المرحلة دي هتم و يمسح نفسة 
يعني ملف رقم 3 هينفذ الخطوات دي و يمسح نفسة في الاخر و يتم استرجاعة عن طريق ملف مضغوط محمي و طبعاً  هيتم التشييك على الملف دة في اول ملف رقم 1  قبل اي خطوات زي ما ذكرت في الاول الملف المضغوط هيتفك و يتم التشييك على قيمة معينة و المصنف مغلق عشان لو اتفتح هيتم تنفيذ الخطوات لفتح المشروع , لا  لو القيمة غير متطابقة يقفل اي مصنف مفتوح 
و طبعا عملت كدة عشان لو في حد عرف مسمى الملف ممكن يجيب ملف تاني مزيف و يلصقة في نفس المسار ممكن خطوات تنفيذ الكود يقف و الحماية تبوظ 
و كدة كدة في الاول و الاخر لو تم ايقاف وحدات الماركو كل الخطوات دي مش هتتنفذ ولا هيتم فتح المشروع الاصلي في اخر خطوة هيقف مش هيفتح اي حاجة 
وكدة كدة حامي كل المصنفات من الخارج ومحدش يعرف اي باسورد من الملفات دي الا الملف الاول و كمان مش هيقدر يفك الحماية ولا يغيرها عشان محمي بحماية الشير 
ودة يحميني من الاختراق لفتح سورس المصنف و ازالة باسورد ال vba ومعرفة باقي باسوردات المصنفات الاخرى 
ودة هدفي بمشي وحدة وحدة لحد ما يتم حماية  المشروع و اصلا هو اصعب شيئ حماية اي مشروع 
وانا من غير المنتدى دة مكنتش هتعلم حاجة وانا بشكر كل اعضاء المنتدى انا بجد استفدت كتير ومكنتش هعمل كل الخطوات دي الا بيكم 
وديما بلجأ ليكم اني محتاج مساعدتكم 
و ان شاء الله لو حماية المصنفات دي تمت ونجحت هيتم توثيق مشروع الحماية دي عشان الناس تستفاد 
و اعتذر عن طول المقالة و ممكن متكنش مترتبة وممكن صعب الواحد يفهمها 

24-05-2021 02:05 مساء
مشاهدة مشاركة منفردة [5]
محمود ابو الدهب
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 274
قوة السمعة : 4570
موقعي : زيارة موقعي
عدد الإجابات: 7
 offline 
look/images/icons/i1.gif استخراج ملفات الضغط محمي بكلمة سر عن طريق vba
اعتقد استاذ ياسر خليل اثناء العمل معى على كود لفك الملفات المضغوطة المحمية بكلمة سر انه وجد مشكلة ببرنامج الحماية الخاص بالنسخة وبحثناء عن بديل لهذا الامر ولكن اطلاعى على تلك النقطة توقف من هذه اللحظة من فترة لعل استاذ ياسر خليل يعطيك حل لتلك المشكلة ان شاء الله

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

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

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

تحياتى وتقدير للجميع  محمود ابوالدهب

28-05-2021 03:22 مساء
مشاهدة مشاركة منفردة [6]
fathy
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-03-2020
رقم العضوية : 18571
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 142
 offline 
look/images/icons/i1.gif استخراج ملفات الضغط محمي بكلمة سر عن طريق vba
انا عملت ملف محمي من رغم معرفة كلمة السر و الملف دة هو بادئ فتح المشروع و هو الدرع الاول 
ومحتاج اختبار الملف  دة من الاختراق هل محمي بشكل جيد ولا لاء 
و رابط الموضوع : 

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
استخراج ، ملفات ، الضغط ، محمي ، بكلمة ، طريق ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 11:44 صباحا