Discussion :

[spoker04]

Bonjour,

Je suis entrain de développer un logiciel access pour ma société via le runtime 2007, mais un problème se pose, celui de la diffusion du-dit logiciel car lorsque je génère un executable, ce dernier peut etre installé sur un nombre illimité de machines, sans qu'aucune clé d'activation ne soit demandée.

Peut on faire en sorte que se soit le cas ? Si oui, comment s'y prend on ?

Par avance, merci pour votre aide

[Pierre Fauconnier]

Bonjour

Une solution parmi d'autres est que ton logiciel vérifie dans la base de registre la présence de ladite clé (vérifiée selon une syntaxe personnelle). Si la clé est présente, le logiciel démarre, sinon il demande la clé ou se ferme...

[spoker04]

Je vois, mais comment faire en sorte que le logiciel intègre cette clé dans la base de registre du client lors de l'installation ? Cela me parait complexe...

Il n'y a donc aucune option du runtime access qui force le client à saisir une certaine clé "pendant" l'installation du logiciel ?

[Pierre Fauconnier]

Le runtime n'est pas fait pour cela... (mais je ne suis pas un spécialiste).

C'est à ton application d'inscrire et de lire la clé dans le registre.

En cherchant dans l'aide en ligne de VBA avec le mot SaveSetting, tu trouveras les explications pour utiliser les clés de registre.

Tu peux aussi t'inspirer de cette entrée de la faq VB.

[electrosat03]

Salut,

Comme déjà posté plusieurs fois, tu peux aussi fournir une clé USB avec ton logiciel.

Donc, une clé USB la plus petite convient,
1) lors de l'installation un code qui vérifie dans le Registre si une clé existe.
2) Si non, on la crée et on place comme valeur le N° de série de cette clé USB.
3) A chaque démarrage de l'appli, on vérifie si le N° de série qui est dans la base de Registre est identique à celle de la clé USB connectée sur le PC où l'appli fonctionne.

Donc impossible de copier l'appli et de la faire fonctionner sur un autre PC, sauf si on prend la clé USB et qu'on la place sur le PC.

Mais on peut, pour contrer cela, mettre un compteur d'install dans la base. Si la clé dans le Registre n'existe pas mais que le compteur est à 1, c'est qu'il y a déjà eu install et donc message d'interdiction.

C'est une piste bien sûr.

A+

[naphta]

Bonjour,

Je ne sais pas si j'ai bien compris tu veux distribuer une application avec le runtime 2007 ?
c'est gratuit et sans clé évidement

ici :
http://argyronet.developpez.com/offi.../runtime/2007/

Il n'y a pas d'exécutable c'est une version compilée de l'appli qui est diffusée. Elle est lue et exécutée par msaccess.exe.

A+

[marot_r]

Naphta, spoker04 veut protéger son application lors de la distribution pour éviter les copies pirates et comme tu le dis si bien le runtime standard ne permet pas cela.

Quand à l'exécutable de Access je pense qu'il veut dire le mde qui n'est pas vraiment un exécutable au sens strict du terme mais s'en rapproche le plus.

spoker04, il existait, dans mon jeune temps, des compagnies spécialisées dans la fourniture de clef de protection physique, la solution évoquée par electrosat03. Peut-être une piste pour toi.

Note il existait aussi des outils de craquage de ces même clefs mais c'est ce que j'ai expérimenté de plus solide dans le domaine. Les clefs logicielles, dans leur ensemble, ne duraient pas vraiment longtemps.

WinDev procède ainsi pour son IDE.

A+

[Pierre Fauconnier]

Le problème des clés physiques (clé usb ou autre), c'est que si tous les logiciels requéraient ce genre de protection, il faudrait des racks de clés usb...

En ce qui concerne la protection logicielle, il me semble qu'il faut évaluer le danger.

Si un logiciel non protégé est évidemment très facilement piratable, il n'est pas pour autant nécessaire d'établir un "fort Knox" autour de son application.

En supposant que le logiciel développé n'est pas "grand public", une clé logicielle basique peut être parfaitement adaptée à la situation... N'oublions pas que s'il faut fournir une clé physique, le problème de la diffusion de l'application se posera. Il faudra alors prévoir une version démo sans clé, puis prévoir un envoi de la clé physique avec tout ce que cela suppose comme frais et manipulations...

Le jeu en vaut-il la chandelle?

[argyronet]

Bonjour,

Le souci de la protection des appli a déjà été évoqué.
Il y a moulte solutions, la première étant une simple version d'évaluation.

Tu peux par exemple dans ton projet interdire de créer plus de 10 enregistrements avec un simple COUNT(*) qui jette l'utilisateur tant que sa version est dite TRIAL et qu'il tente de continuer...
Et ça, c'est une belle contrainte

Vaste sujet [...]

Argy

[electrosat03]

Salut, voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Option Compare Database
Public fso As FileSystemObject
Public Drive As Drive
Public NumSerieUSB As Long
Public DongleOK As Boolean
 
 
Private Sub Form_Load()
 
'************ Tester si la clé est presente au démarrage ************
 
    NumSerieUSB = 217259051    ' Numéro de série de la clé USB
    DongleOK = False        ' Met le Dongle absent
    Scan_Dongle             ' Va à la procédure Scan du dongle
    If DongleOK = False Then     'Si pas de dongle on quitte l'appli
        DoCmd.Quit
        Exit Sub
    End If
Ens Sub
 
 
'************ TESTER si (USB se connecte) ************
'************ si oui, ne traiter que les périphériques de stockage de type USB ************
Private Sub SysInfo1_DeviceArrival(ByVal devicetype As Long, ByVal deviceid As Long, ByVal devicename As String, ByVal devicedata As Long)
    ' Ne traiter que les unités de stockage de type data0
    If devicetype <> 2 Or devicedata <> 0 Then Exit Sub
 
    ' Scan de la presence du dongle
    Scan_Dongle
    'Text2.Visible = True    ' <<<< A supprimer "affiche votre N° de série" !!!!
 
    If DongleOK = True Then
        'Code de démarrage    ' si le dongle est présent démarrage du programme
    End If
End Sub
 
 
'************ TESTER si (USB se déconnecte) ************
'************ si oui, ne traiter que les périphériques de stockage de type USB ************
Private Sub SysInfo1_DeviceRemoveComplete(ByVal devicetype As Long, ByVal deviceid As Long, ByVal devicename As String, ByVal devicedata As Long)
 
    'Text2.Visible = True    ' <<<< A supprimer "affiche votre N° de série"
 
    ' Ne traiter que les unités de stockage de type data0
    If devicetype <> 2 Or devicedata <> 0 Then
        Exit Sub
    End If
 
    'Si le dongle est déconnecté fin du prog
    If Log(deviceid) / Log(2) + 65 = DongleLettre Then
        Unload Me  'Code pour quitter le programme
    End If
End Sub
 
'************ Tester si la clé USB est présente
Sub Scan_Dongle()
    On Error GoTo Err
    If DongleOK = True Then
        Exit Sub    ' si Dongle déja présent pas de scan
    End If
 
    ' Retrouver le dongle et son numéro de serie
    Set fso = New FileSystemObject
    For Each Drive In fso.Drives
        If Drive.IsReady = True And Drive.DriveLetter <> "a:" And Drive.DriveLetter <> "b:" Then
            'Text2.Text = fso.Drives(Drive + "\").SerialNumber ' <<<< A supprimer "affiche votre N° de série"
 
            If NumSerieUSB = fso.Drives(Drive + "\").SerialNumber Then
                DongleOK = True                     ' dongle present
                DongleLettre = Asc(Left$(Drive, 1))   ' memorise la lettre du dongle
                Set fso = Nothing
                'Text1.Visible = True               ' efface text1
                Exit Sub
            End If
        Else
            Série = fso.Drives(Drive + "\").SerialNumber
            Msg = MsgBox("Il y a un problème avec le lecteur " & Drive & vbCrLf & "Erreur: " & Err.Description, vbInformation + vbOKOnly, "Erreur disque")
        End If
    Next
Err:
    If Err.Number = 71 Then
        Msg = MsgBox("Il y a un problème avec le lecteur " & Drive & vbCrLf & "Erreur: " & Err.Description, vbInformation + vbOKOnly, "Erreur disque")
    End If
End Sub

Code à adapter à vos besoin.

Évidement, si il faut une clé USB sur plusieurs PC, il faudra mettre des conditions dans le code pour tester tous les N° de séries des différentes clés.

Vous pouvez également essayer de mettre une date limite d'utilisation, un Nbre. max d'utilisation, etc.. Comme pour le soft DinkeyDongle décrit par cirot.

Il existe des soft pour protéger par PW des dossier, donc rien ne vous empêche de le faire sur votre USB.

A+

[morpheus007]

bonjour
j'expérimente la protection avec clé usb mais j'ai trouve un petit problème, si la personne par inadvertance format la clé alors le numéro de série change et on peut aussi créer des clés avec ce numéro de série.
je cherche a savoir si les clés usb disposent de numero physique qui ne change pas meme si on formate.
ma deuxième idée est de détruire des secteurs dans ma clé usb et de vérifier si dans la clé si c même secteur ne sont pas bon. j'ai pas pu mettre en place.
merci

[naphta]

Bonjour,

Je suis surpris de retrouver cette discussion !
A l'époque je lisais trop vite et de travers, désolé.

Bon là, je soumets une idée ...
Ne peut-on faire la chose suivante :
Un algorithme basé sur le n° de série du disque dur (qui ne change pas)

1 conversion ascii de tous les caractères du N° de série du disque dur
2 le chiffre obtenu par la conversion soumis à un algorithme pour obtenir une clé
3 avec la clé on fait un n° de série de validation transmis au client pour valider l'installation.

A+

[Pierre Fauconnier]

Moi, j'ai mis un algorithme basé sur un numéro de série, le nom du client et la date d'extinction de la licence. Cet algo repose sur le hashage MD5. Si l'utilisateur modifie une des trois données, il faut recalculer la clé de licence, sinon, le logiciel se ferme. Il n'est donc pas possible de modifier, par exemple, le nom du client, sans devoir me demander une nouvelle licence...

Cela n'empêche pas la copie, mais comme je prévois d'imprimer le nom du client tel que renseigné sur le voucher de licence sur tous les états de l'application, cela réduit considérablement l'utilisation frauduleuse à des fins professionnelles.

Je préfèe, en tout cas, un verrou logiciel à un verrou matériel (clé usb, dongle, ...)

[naphta]

Bonjour,

C'est l'éditeur qui permet le fonctionnement de l'appli.

Effectivement, pourquoi aller trop loin, très bonne idée Pierre Fauconnier, une clé basée sur des infos simples et disponibles.


a+

[clemclem2121]

Bonjour j'aimerai en savoir plus concernant la solution de Pierre Fauconnier.

Merci