ניווט

    תחומים
    • הרשמה
    • התחברות
    • חיפוש
    • קטגוריות
    • פוסטים אחרונים
    • משתמשים
    • חיפוש
    • מקצועות
    חוקי הפורום

    אקסס | כניסה עם שם משתמש וסיסמה | איך ניתן לאבטח את זה?

    תוכנה
    6
    10
    171
    טוען פוסטים נוספים
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
    תגובה
    • הגב כנושא
    התחבר בכדי לפרסם תגובה
    נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
    • איש ימיני
      איש ימיני נערך לאחרונה על ידי

      עשיתי טופס עם משתמשים לפי הפוסט הזה (הורדתי דוגמה מכאן באדיבות @אוריי )
      עשיתי את הטופס מודאלי.
      אך ניתן לעקוף את זה בהרבה דרכים.
      השאלה איך מאבטחים את זה, שלא יהיה דרך לעקוף את זה?

      חייםיודלביץ MusiCode 2 תגובות תגובה אחרונה תגובה ציטוט 0
      • חייםיודלביץ
        חייםיודלביץ @איש ימיני נערך לאחרונה על ידי

        @איש-ימיני אמר באקסס | כניסה עם שם משתמש וסיסמה | איך ניתן לאבטח את זה?:

        עשיתי טופס עם משתמשים לפי הפוסט הזה (הורדתי דוגמה מכאן באדיבות @אוריי )
        עשיתי את הטופס מודאלי.
        אך ניתן לעקוף את זה בהרבה דרכים.
        השאלה איך מאבטחים את זה, שלא יהיה דרך לעקוף את זה?

        מבחינת מה אתה רוצה לאבטח את זה?
        שלא יכלו לסגור את הטופס כניסה?
        או הצפנת נתוני וסיסמת המשתמש?

        איש ימיני תגובה 1 תגובה אחרונה תגובה ציטוט 1
        • MusiCode
          MusiCode @איש ימיני נערך לאחרונה על ידי MusiCode

          @איש-ימיני לגבי הסתרת ממשק המשתמש של אקסס:

          1. אי אפשר.

          2. אפשר לסגור שמשתמש פשוט לא יוכל לפתוח.
            אפשר להסתיר את חלון מסד הנתונים, כך שלא יוכלו לצאת ממנו לאפליקציה עצמה.

          • אבל אז אפשר לעקוף עם Shift.
            אפשר לחסום את הקשת הShift בכניסה.
          • אבל אפשר לעקוף ולבטל את ההגדרה הזו.
          1. לסיכום, אפשר לחסום למשתמשים רגילים בלבד.
            לא למי שמכיר את התוכנה.

          חסימת החלון של מסד הנתונים נעשית בהגדרות המסד.
          חסימת האפשרות להקיש שיפט נעשית בקוד VBA.

          A תגובה 1 תגובה אחרונה תגובה ציטוט 3
          • A
            avi rz @MusiCode נערך לאחרונה על ידי avi rz

            @musicode
            יש גם קוד vba
            שמסתיר את כל התוכנה של האקסס,
            משתמשים בזה בעיקר

            • או בשביל המטרה הנ"ל (חסימת גישה לפרטי המשתמש),

            • או שמישהו השקיע ביופי ורוצה שזה יראה עוד יותר יפה, ולדעתו זה שהתוכנה היא באקסס זה מוריד מהרישמיות שלה, אז מסתיר ואז לא רואים בכלל שזה אקסס,

            החסרונות:

            • שאם נתקע משהו או בהתחברות למסד נתונים (כשעובדים כמה על קובץ טפסים שמחובר לקובץ נתונים אחד.) או כל בעיה שהיא - אין אפשרות רגילה לסגור, אלא רק דרך מנהל המשימות (וגם שם זה לא באפליקציות אלא את האקסס ברקע,)

            • צריך להפוך את כל הטפסים ל"מודאלי"

            • אין גישה ישירה לתוכנה אם פתחו תוכנה אחרת - בגלל שזה מעביר את האקסס לרקע ואז גם אין לו סמל בשורת המשימות

            ועדיין, דרך הShift אפשר לבטל גם את זה, כי זה פונקציה בvba שמפעילים אותה בכניסה לטופס הראשון, וshift מבטל את כל פעילות הקוד בכניסה,
            וגם למה שאמר
            @musicode אמר באקסס | כניסה עם שם משתמש וסיסמה | איך ניתן לאבטח את זה?:

            חסימת האפשרות להקיש שיפט נעשית בקוד VBA.

            עדיין יהיה אפשר לעקוף כשמעתיקים את התוכנה(משנים מיקום) או מחליפים שם, אז צריך להפוך תוכן לפעיל וכל עוד ולא הפכו לפעיל, הכל פתוח,ן

            עכ"פ כמה טיפים, שכן אפשרי לעשות - וקצת יעילים

            • להגדיר את השדה של הסיסמא ל שדה של סיסמא (password) ואז גם בהעתקה לא יוכלו ליראות את הסיסמא (רק ע"י ייצוא של הטבלה הנ"ל).

            • בכל פתיחת טופס(מרכזי בתוכנה) - או פעולה (משמעותית), לבדוק אם המשתמש פעיל, כלומר: אפשר לעשות שבכניסה של המשתמש- אם הוא נכון לציין את זה במשתנה גלובלי שהוא זוהה וכדו', ואז לבדוק את זה בכל הזדמנות כנ"ל.

            • כמובן כל זה כשחוסמים את הגישה לקוד - או ע"י סגירה של הקובץ או ע"י סיסמא לקוד.

            WWW תגובה 1 תגובה אחרונה תגובה ציטוט 2
            • WWW
              WWW @avi rz נערך לאחרונה על ידי WWW

              @avi-rz אמר באקסס | כניסה עם שם משתמש וסיסמה | איך ניתן לאבטח את זה?:

              או ע"י סיסמא לקוד.

              ג"כ קל לפריצה.

              תגובה 1 תגובה אחרונה תגובה ציטוט 1
              • איש ימיני
                איש ימיני @חייםיודלביץ נערך לאחרונה על ידי איש ימיני

                @חייםיודלביץ אמר באקסס | כניסה עם שם משתמש וסיסמה | איך ניתן לאבטח את זה?:

                מבחינת מה אתה רוצה לאבטח את זה?
                שלא יכלו לסגור את הטופס כניסה?
                או הצפנת נתוני וסיסמת המשתמש?

                שלא יוכל לגשת לדברים שלא נתתי לו גישה, בשום דרך.

                @musicode אמר באקסס | כניסה עם שם משתמש וסיסמה | איך ניתן לאבטח את זה?:

                אפשר לחסום את הקשת הShift בכניסה.
                חסימת האפשרות להקיש שיפט נעשית בקוד VBA.

                אשמח לקבל את הקוד.

                @avi-rz אמר באקסס | כניסה עם שם משתמש וסיסמה | איך ניתן לאבטח את זה?:

                וגם למה שאמר
                @musicode אמר באקסס | כניסה עם שם משתמש וסיסמה | איך ניתן לאבטח את זה?:

                חסימת האפשרות להקיש שיפט נעשית בקוד VBA.

                עדיין יהיה אפשר לעקוף כשמעתיקים את התוכנה(משנים מיקום) או מחליפים שם, אז צריך להפוך תוכן לפעיל וכל עוד ולא הפכו לפעיל, הכל פתוח,

                חשבתי להכניס את הקובץ לתיקיה ולהגביל גישה לתיקיה, ולהרשות גישה רק לקובץ עצמו (באמצאות קיצור דרך), רק שיוכלו להעתיק דרך שורת הפקודה, אבל זה כבר מורכב יותר.

                עכ"פ כמה טיפים, שכן אפשרי לעשות - וקצת יעילים

                • להגדיר את השדה של הסיסמא ל שדה של סיסמא (password) ואז גם בהעתקה לא יוכלו ליראות את הסיסמא (רק ע"י ייצוא של הטבלה הנ"ל).

                • בכל פתיחת טופס(מרכזי בתוכנה) - או פעולה (משמעותית), לבדוק אם המשתמש פעיל, כלומר: אפשר לעשות שבכניסה של המשתמש- אם הוא נכון לציין את זה במשתנה גלובלי שהוא זוהה וכדו', ואז לבדוק את זה בכל הזדמנות כנ"ל.

                • כמובן כל זה כשחוסמים את הגישה לקוד - או ע"י סגירה של הקובץ או ע"י סיסמא לקוד.

                תודה רבה!!

                OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 0
                • OdedDvir
                  OdedDvir @איש ימיני נערך לאחרונה על ידי

                  @איש-ימיני אמר באקסס | כניסה עם שם משתמש וסיסמה | איך ניתן לאבטח את זה?:

                  אשמח לקבל את הקוד.

                  הנה שתי הפונקציות לנעילה ופתיחה: (מקור)
                  שים לב לאפשר לך עצמך להפעיל אחרי הנעילה את ה-Shift (לדוגמא שים לחצן כלשהו שמריץ את EnableShift()), אחרת גם אתה תסתבך לפתוח את הקובץ...

                  Function DisableShift()
                  'This function disable the shift at startup. This action causes
                  'the Autoexec macro and Startup properties to always be executed.
                  
                  On Error GoTo errDisableShift
                  
                      Dim db As DAO.Database
                      Dim prop As DAO.Property
                      Const conPropNotFound = 3270
                  
                      Set db = CurrentDb()
                  
                      'This next line disables the shift key on startup.
                      db.Properties("AllowByPassKey") = False
                  
                      'The function is successful.
                      Debug.Print "Disabled Shift Key - Successful"
                      Exit Function
                  
                  errDisableShift:
                      'The first part of this error routine creates the "AllowByPassKey
                      'property if it does not exist.
                      If Err = conPropNotFound Then
                          Set prop = db.CreateProperty("AllowByPassKey", _
                          dbBoolean, False)
                          db.Properties.Append prop
                          Resume Next
                          Else
                              MsgBox "Function 'ap_DisableShift' did not complete successfully."
                              GoTo ExitHere
                      End If
                  
                  ExitHere:
                      Set prop = Nothing
                      Set db = Nothing
                      Exit Function
                  
                  End Function
                  
                  Function EnableShift()
                  'This function enables the SHIFT key at startup. This action causes
                  'the Autoexec macro and the Startup properties to be bypassed
                  'if the user holds down the SHIFT key when the user opens the database.
                  
                  On Error GoTo errEnableShift
                  
                      Dim db As DAO.Database
                      Dim prop As DAO.Property
                      Const conPropNotFound = 3270
                  
                      Set db = CurrentDb()
                  
                      'This next line of code disables the SHIFT key on startup.
                      db.Properties("AllowByPassKey") = True
                  
                      'function successful
                      Debug.Print "Enabled Shift Key - Successful"
                      GoTo ExitHere
                  
                  errEnableShift:
                      'The first part of this error routine creates the "AllowByPassKey
                      'property if it does not exist.
                      If Err = conPropNotFound Then
                          Set prop = db.CreateProperty("AllowByPassKey", _
                          dbBoolean, True)
                          db.Properties.Append prop
                          Resume Next
                          Else
                              MsgBox "Function 'ap_DisableShift' did not complete successfully."
                              GoTo ExitHere
                      End If
                  
                  ExitHere:
                      Set prop = Nothing
                      Set db = Nothing
                      Exit Function
                  
                  End Function
                  
                  MusiCode איש ימיני 2 תגובות תגובה אחרונה תגובה ציטוט 1
                  • MusiCode
                    MusiCode @OdedDvir נערך לאחרונה על ידי

                    @odeddvir אמר באקסס | כניסה עם שם משתמש וסיסמה | איך ניתן לאבטח את זה?:

                    @איש-ימיני אמר באקסס | כניסה עם שם משתמש וסיסמה | איך ניתן לאבטח את זה?:

                    אשמח לקבל את הקוד.

                    הנה שתי הפונקציות לנעילה ופתיחה: (מקור)
                    שים לב לאפשר לך עצמך להפעיל אחרי הנעילה את ה-Shift (לדוגמא שים לחצן כלשהו שמריץ את EnableShift()), אחרת גם אתה תסתבך לפתוח את הקובץ...

                    שיהיה ברור:
                    זה לא בלתי הפיך.

                    אפשר דרך קובץ אחר לשחרר את זה.

                    OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 2
                    • OdedDvir
                      OdedDvir @MusiCode נערך לאחרונה על ידי

                      @musicode אמר באקסס | כניסה עם שם משתמש וסיסמה | איך ניתן לאבטח את זה?:

                      זה לא בלתי הפיך.

                      נכון, רק להקל עליו באתי.

                      תגובה 1 תגובה אחרונה תגובה ציטוט 0
                      • איש ימיני
                        איש ימיני @OdedDvir נערך לאחרונה על ידי

                        @odeddvir אמר באקסס | כניסה עם שם משתמש וסיסמה | איך ניתן לאבטח את זה?:

                        @איש-ימיני אמר באקסס | כניסה עם שם משתמש וסיסמה | איך ניתן לאבטח את זה?:

                        אשמח לקבל את הקוד.

                        הנה שתי הפונקציות לנעילה ופתיחה: (מקור)
                        שים לב לאפשר לך עצמך להפעיל אחרי הנעילה את ה-Shift (לדוגמא שים לחצן כלשהו שמריץ את EnableShift()), אחרת גם אתה תסתבך לפתוח את הקובץ...

                        Function DisableShift()
                        'This function disable the shift at startup. This action causes
                        'the Autoexec macro and Startup properties to always be executed.
                        
                        On Error GoTo errDisableShift
                        
                            Dim db As DAO.Database
                            Dim prop As DAO.Property
                            Const conPropNotFound = 3270
                        
                            Set db = CurrentDb()
                        
                            'This next line disables the shift key on startup.
                            db.Properties("AllowByPassKey") = False
                        
                            'The function is successful.
                            Debug.Print "Disabled Shift Key - Successful"
                            Exit Function
                        
                        errDisableShift:
                            'The first part of this error routine creates the "AllowByPassKey
                            'property if it does not exist.
                            If Err = conPropNotFound Then
                                Set prop = db.CreateProperty("AllowByPassKey", _
                                dbBoolean, False)
                                db.Properties.Append prop
                                Resume Next
                                Else
                                    MsgBox "Function 'ap_DisableShift' did not complete successfully."
                                    GoTo ExitHere
                            End If
                        
                        ExitHere:
                            Set prop = Nothing
                            Set db = Nothing
                            Exit Function
                        
                        End Function
                        
                        Function EnableShift()
                        'This function enables the SHIFT key at startup. This action causes
                        'the Autoexec macro and the Startup properties to be bypassed
                        'if the user holds down the SHIFT key when the user opens the database.
                        
                        On Error GoTo errEnableShift
                        
                            Dim db As DAO.Database
                            Dim prop As DAO.Property
                            Const conPropNotFound = 3270
                        
                            Set db = CurrentDb()
                        
                            'This next line of code disables the SHIFT key on startup.
                            db.Properties("AllowByPassKey") = True
                        
                            'function successful
                            Debug.Print "Enabled Shift Key - Successful"
                            GoTo ExitHere
                        
                        errEnableShift:
                            'The first part of this error routine creates the "AllowByPassKey
                            'property if it does not exist.
                            If Err = conPropNotFound Then
                                Set prop = db.CreateProperty("AllowByPassKey", _
                                dbBoolean, True)
                                db.Properties.Append prop
                                Resume Next
                                Else
                                    MsgBox "Function 'ap_DisableShift' did not complete successfully."
                                    GoTo ExitHere
                            End If
                        
                        ExitHere:
                            Set prop = Nothing
                            Set db = Nothing
                            Exit Function
                        
                        End Function
                        

                        תודה רבה!!!

                        תגובה 1 תגובה אחרונה תגובה ציטוט 0
                        • 1 / 1
                        • First post
                          Last post
                        בא תתחבר לדף היומי!