logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
abdelmoniem ismail لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة توزيع المعلمين في جدول الحصص حسب النصاب بشروط اكسيل مشاريع جاهزه



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





30-05-2021 11:39 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس :
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4570
الاعجاب : 0
موقعي : زيارة موقعي

بسم الله الرحمن الرحيم


سأخاطب بهذا الموضوع من له معرفة جيده بالاكسيل وبلغة البرمجه vba


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

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

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


نأتي للشرح والتنفيذ


اولا : يجب عمل ملفين تنفيذيين باى لغة برمجه تحبها وتفضلها وبالملف التنفيذي تضع كود دور بمجرد فتح الملف يقوم بفتح ملف اكسيل محمي بباس من الخارج واليك الكود المستخدم من ملف vb.net او vb6


CODE
Private Sub Form_Load()
Dim strPassword As String
Dim FileName As String
On Error GoTo 1
        strPassword = "456"
        FileName = App.Path + "" + "2.xlsm"
        
        
        On Error GoTo 1
        Excel.Workbooks.Open FileName, Password:="" & strPassword
        Excel.Application.Visible = False
        
        Start = Timer
        Finsh = Start + 10
        Do Until Finsh <= Timer
        DoEvents
        Loop
        
        Unload Form1
1:
    Unload Form1
End Sub

ففيى حدث الفتح للفورم مباشرتا يفتح ملف اكسيل المسمي برقم 1 والباس الخارجي له هو 123


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


CODE
Sub Save_Hex_File()
    Dim wks         As Worksheet
    Dim fileName    As String
 
    Set wks = Worksheets("Hex Byte Data")
    fileName = ThisWorkbook.Path & "" & wks.Range("Ah1").Value
 
    If Dir(fileName) <> "" Then
        Call SaveAsHexFile(fileName)
'        MsgBox "File Saved", 64
    Else
        MsgBox "The File '" & fileName & "' Not Found."
    End If
End Sub
 
Sub Restore_Hex_File()
    Dim wks         As Worksheet
    Dim fileName    As String
 
    Set wks = Worksheets("Hex Byte Data")
    fileName = ThisWorkbook.Path & "" & wks.Range("Ah1").Value
 
    fileName = RestoreHexFile
'    MsgBox "File Restored", 64
End Sub
 
Private Sub SaveAsHexFile(ByVal fileName As String)
    Dim wks         As Worksheet
    Dim data()      As Variant
    Dim x           As String
    Dim dataByte    As Byte
    Dim n           As Integer
    Dim i           As Long
    Dim r           As Long
    Dim c           As Long
 
    If Dir(fileName) = "" Then Exit Sub
 
    On Error Resume Next
        Set wks = Worksheets("Hex Byte Data")
        If Err = 9 Then
            Worksheets.Add After:=Worksheets.Count
            Set wks = ActiveSheet
            wks.Name = "Hex Byte Data"
        End If
    On Error GoTo 0
 
    wks.Cells.ClearContents
    wks.Cells(1, "AH").Value = Dir(fileName)
 
    n = FreeFile
 
    Application.ScreenUpdating = False
        Application.ErrorCheckingOptions.NumberAsText = False
   
        With wks.Columns("A:AF")
            .NumberFormat = "@"
            .Cells.HorizontalAlignment = xlCenter
   
            Open fileName For Binary Access Read As #n
            ReDim data((LOF(n) - 1) 32, 31)
   
            For i = 0 To LOF(n) - 1
                Get #n, , dataByte
                c = i Mod 32
                r = i 32
                x = Hex(dataByte)
                If dataByte < 16 Then x = "0" & x
                data(r, c) = x
            Next i
   
            Close #n
   
            wks.Range("A1:AF1").Resize(r + 1, 32).Value = data
        End With
    Application.ScreenUpdating = True
End Sub
 
Function RestoreHexFile() As String
    Dim wks         As Worksheet
    Dim lsb         As Variant
    Dim msb         As Variant
    Dim cell        As Range
    Dim rng         As Range
    Dim file        As String
    Dim n           As Integer
    Dim data()      As Byte
    Dim j           As Long
 
    On Error Resume Next
        Set wks = Worksheets("Hex Byte Data")
        If Err <> 0 Then
            MsgBox "The Worksheet 'Hex Byte Data' Is Missing.", vbCritical
            Exit Function
        End If
    On Error GoTo 0
 
    Set rng = wks.Range("A1").CurrentRegion
    file = wks.Cells(1, "AH").Value
 
    If file <> "" Then
        n = FreeFile
        file = ThisWorkbook.Path & "" & file
 
        Open file For Binary Access Write As #n
        ReDim data(Application.CountA(rng) - 1)
 
        For Each cell In rng
            If cell = "" Then Exit For
 
            msb = Left(cell, 1)
            If IsNumeric(msb) Then msb = 16 * msb Else msb = 16 * (Asc(msb) - 55)
 
            lsb = Right(cell, 1)
            If Not IsNumeric(lsb) Then lsb = (Asc(lsb) - 55) Else lsb = lsb * 1
 
            data(j) = msb + lsb
            j = j + 1
        Next cell
 
        Put #n, , data
        Close #n
    End If
 
    RestoreHexFile = file
End Function



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


المهم نعود لموضوعنا الرئيسي في حدث فتح الملف نضع الكود التالى


CODE
Option Explicit

Private Sub Workbook_Open()
    ThisWorkbook.Application.WindowState = xlMaximized
    ThisWorkbook.Application.Visible = False
    UserForm1.Show
End Sub




وفيه يخفي الشيت ويظهر الفورم ويوجد بالفورم زر نضع به الكود التالى

CODE
Dim Mypath As String
On Error GoTo 2
    Call Restore_Hex_File
    Application.Wait Now + TimeValue("00:00:1")
    
    Mypath = ThisWorkbook.Path & "" & "Project2.exe"
    Call Shell(Mypath)
2:
    Application.Wait Now + TimeValue("00:00:10")

    Kill Mypath
    ThisWorkbook.Save
    ThisWorkbook.Close
    


وفكرة الكود انه يقوم باستدعاء الملف المخزن داخل الشيت واسم الملف هو Project2.exe الله ايه ده جه منين اقولك لو مركز معايا هتلقيني قايل في اولا نعمل ملفين تنفيذين مش ملف واحد الاول المستخدم يفتح منه والثاني مخفي داخل ملف الاكسيل رقم 1 ولكن في الملف التنفيذي الثاني وضع ان الباص هو 456 وان الملف الى هيفتحه هو ملف الاكسل المسي 2 وملف الاكسيل ده هو المشروع الرئيسي
ودور الكود انه يستدعى الملف التنفيذى الثاني ثم يقوم بفتحه ويقوم الملف التنفيذي الثاني بفتح ملف الاكسيل المحمي بالخارج الثاني بباص اخر ثم بعد الفتح يحذف الملف التنفيذي الثاني ثم يغل ملف الاكسيل الاول ويفتح المشروع

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


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

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


شكرا لكم واسف على الاطالة مرفق لكم المشروع ارجوا التجربه لفهم الامر

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


تم حذف المرفقات واضافتها مره أخرى
تحياتى وتقديرى

 
 
  الملفات المستخدمة للشرح.rar   تحميل rar مرات التحميل :(78)
الحجم :(129.091) KB


أثارت هذه المشاركة إعجاب: hassona229، YasserKhalil، الصقر، ali mohamed ali، محمد النيل، عبد الله السعيد،


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

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

look/images/icons/i1.gif اكثر طرق الحماية حتى الان عن دراسة وتجارب كثيره
  31-05-2021 12:12 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 802
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3941
الاعجاب : 23
تسلم ايدك يا دكتور ابو الدهب
وجاري التجربه

أثارت هذه المشاركة إعجاب: محمود ابو الدهب، حبيبتى دائما،



look/images/icons/i1.gif اكثر طرق الحماية حتى الان عن دراسة وتجارب كثيره
  31-05-2021 06:48 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
بارك الله فيك أخي العزيز أبو الدهب وجزاك الله خيراً
إن شاء الله أحاول أتابع الموضوع دا في أقرب وقت.

أثارت هذه المشاركة إعجاب: hassona229، محمود ابو الدهب،



look/images/icons/i1.gif اكثر طرق الحماية حتى الان عن دراسة وتجارب كثيره
  31-05-2021 07:44 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس :
الدعوات : 21
قوة السمعة : 20034
الاعجاب : 12
موقعي : زيارة موقعي

جزاكم الله خيرا يا ابوالدهب
والشكر موصول لاخى الكريم ابوالبراء
142


أثارت هذه المشاركة إعجاب: hassona229، YasserKhalil، محمود ابو الدهب،


توقيع :الصقر

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


look/images/icons/i1.gif اكثر طرق الحماية حتى الان عن دراسة وتجارب كثيره
  31-05-2021 08:33 صباحاً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
142
81

أثارت هذه المشاركة إعجاب: YasserKhalil، محمود ابو الدهب، hassona229، أباالحسن،


توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif اكثر طرق الحماية حتى الان عن دراسة وتجارب كثيره
  31-05-2021 11:13 صباحاً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1765
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9685
الاعجاب : 25
بوركت استاذ محمود مجهود ممتاز وموضوع حقاً مهم جعله الله فى ميزان حسناتك

أثارت هذه المشاركة إعجاب: محمود ابو الدهب، hassona229،


توقيع :ali mohamed ali


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

look/images/icons/i1.gif اكثر طرق الحماية حتى الان عن دراسة وتجارب كثيره
  31-05-2021 02:38 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس :
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4570
الاعجاب : 0
موقعي : زيارة موقعي
تحياتى وتقديرى لكم جميعا وشكرا لكم على مروركم الكريم وكلامكم الطيب جزاكم الله خير

أثارت هذه المشاركة إعجاب: YasserKhalil، hassona229،


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

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

look/images/icons/i1.gif اكثر طرق الحماية حتى الان عن دراسة وتجارب كثيره
  13-07-2021 09:15 صباحاً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 16-09-2017
رقم العضوية : 487
المشاركات : 39
الجنس :
تاريخ الميلاد : 5-5-1994
قوة السمعة : 100
الاعجاب : 1
جزاك الله خير
اخي العزيز جربت الكود التالي على الملف الفيجول بيسك ولكن لم يفتح معي الاكسل
الموضوع هنا :https://techno7asry.com/forum/t6009




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كسر الحماية من ورقة حسين الحمادي
2 1005 مريم
حل مشكلة الكود الحماية لا يفتح الاكسل في vb.net او vb6 aass
0 605 aass
هل يمكن اكتشاف كسر الحماية والحماية بكلمة مرور اخري مختلفة أباالحسن
4 1431 YasserKhalil
لماذا محرر الاكواد برفض قبول كلمه السر لفك الحماية عن الورقة قبل تنفيذ الامر ابوعلي الحبيب
1 1703 ابوعلي الحبيب
حماية الاوراق بكود (مع التحكم فى خيارات الحماية) أباالحسن
5 2254 YasserKhalil

الكلمات الدلالية
اكثر ، الحماية ، الان ، دراسة ، وتجارب ، كثيره ،









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

الساعة الآن 04:13 PM