[Meteora]

Καλημέρα

Εσύ θέλεις να στείλεις στην ανεργία τους hackers; Θα έχεις μια σχετική ασφάλεια, αν διαβάζεις τον αριθμό του σκληρού δίσκου του υπολογιστή -όπου έχει εγκατασταθεί η εφαρμογή. Στον κώδικα που ανεβάζω ο αριθμός του σκληρού δίσκου αποθηκεύεται την πρώτη φορά σε πίνακα και αυτό σημαίνει ότι κάθε επόμενη φορά που ανοίγει η εφαρμογή, πρέπει να διαβάζει τον συγκεκριμένο αριθμό.
Η ρουτίνα θα καλείται από το συμβάν "με τη φόρτωση" της πρώτης φόρμας που ανοίγει και ο πίνακας φυσικά θα είναι σε κλειδωμένη βάση (διαιρείς τη βάση και κλειδώνεις αυτή με τους πίνακες).

Public Function elegxos()
    Dim sernum As Variant, varX As Variant

    Dim Fso As New Scripting.FileSystemObject
    sernum = Fso.GetDrive("c:\").SerialNumber
    
    varX = DLookup("[snum]", "tblsernumber", "[ID9] = 1")
    If IsNull(varX) Then
        DoCmd.SetWarnings False
        DoCmd.RunSQL "INSERT INTO tblsernumber ([snum]) VALUES (" & sernum & ")"
        DoCmd.SetWarnings True
    Else
        If sernum <> varX Then
            MsgBox "Δεν έχετε την άδεια χρήσης !", vbCritical, "ΕΛΕΓΧΟΣ"
            DoCmd.Quit
        End If
    End If
End Function

Φυσικά ένα τέτοιο κλείδωμα δεν μπορεί να το σπάσει ο "ολίγον" σχετικός με την Access... Γιατί αναζητάς το κλείδωμα; Σκέπτεσαι την προστασία της δουλειά σου ή των δεδομένων;

Με εκτίμηση
Νίκος