Protéger une application monoposte [Résolu]

[LeSkwal]

Bon ça y'est mon application tourne (Un GRAND merci à Renardo, mikeGo20, et à tous ceux que j'oublie involontairement qui m'ont donné un sacré coup de main)

Pour Info : Cette application est une partie de ma validation professionnelle. Cependant je ne souhaite pas vraiment que ma boîte s'en empare et me "remercie" ensuite . Je voudrais donc la protéger le temps de mon évaluation.

Cette application dans un premier temps est monoposte pour être ensuite configurée pour fonctionner sur le réseau interne.

Je voudrais donc la protéger ... OH PAS UNE USINE A GAZ mais une double protection que je pense être assez simple à mettre en œuvre (mais bon ma méconnaissance du langage VB m'empêche d'aller plus loin).

1 / Empêcher l'ouverture du fichier en mode édition en restant appuyé sur la touche "Shift" lors du lancement.

2 / Protection un peu plus velue.

Lors du premier lancement :
a - Je capte la date du jour et celle-ci s'inscrit dans un fichier "CACHE" sous le répertoire Windows. (Une constante se crée = A)

Lors des lancements suivants :
b - Une donnée variable ( = B ) , correspondant à la date du jour se créer.
Cette donnée variable "B" est comparée à la constante du fichier caché "A".
La période d'essai de l'application est égale à 60 jours.

Si B < A + 60 jours alors
L'application continue (comme si de rien n'était)

Sinon
msgbox "période d'essai révolue"

et sortie de l'application.

Si quelqu'un peut se pencher sur cette petite protection...

Merci d'avance

Pascal

[Heureux-oli]

Pour la première de tes questions, jette un oeil ici

[Renardo]

teste cette exemple tu verras si cela te convient

Code :

Empêcher l'ouverture du fichier en mode édition en restant appuyé sur la touche "Shift" lors du lancement

Sous access 2003 il faut convertir ton mdb en mde pour 2007 je ne l'est pas sous la main (a voir)

[LeSkwal]

Je sèche...


Pascal

[Renardo]

Tu sèche a quel niveau?

[Philippe JOCHMANS]

Envoyé par LeSkwal

Pour Info : Cette application est une partie de ma validation professionnelle. Cependant je ne souhaite pas vraiment que ma boîte s'en empare et me "remercie" ensuite . Je voudrais donc la protéger le temps de mon évaluation.

Attention, cette application ne t'appartient pas, elle appartient à ta boite d'un point de vu légale. Car tu l'a développé pour elle, avec ses outils.
Tu peux te mettre dans l'illégalité en protégeant ton application de la sorte.

Starec

[LeSkwal]

Cette application a été développée avec mes propres outils (Pack office 2007) alors que la boîte n'est qu'en 2003. Cette application a été développée HTT(le week-end). Et enfin la forme de l'application n'intègre aucunement le logo ni la marque de l'entreprise. De plus cette application est généraliste et peut se vendre à d'autres boîtes...

Cordialement

Pascal

[Philippe JOCHMANS]

Envoyé par LeSkwal

Cette application a été développée avec mes propres outils (Pack office 2007) alors que la boîte n'est qu'en 2003. Cette application a été développée HTT(le week-end). Et enfin la forme de l'application n'intègre aucunement le logo ni la marque de l'entreprise. De plus cette application est généraliste et peut se vendre à d'autres boîtes...

Cordialement

Pascal

OK dans ce cas

[LeSkwal]

Tu sèches à quel niveau?

Bah en fait à tous.

Ça peut paraître C... mais je ne suis même pas foutu de reproduire la création de ta table "jour de lancement" et "jour de fin = Jour de lancement + 30 jours"

De plus même en réussissant à la refaire, je suis incapable d'écrire les conditions décrites dans mon premier message.

Cordialement.



Pascal

[Renardo]

Je te joint ou j'essai de t'expliquer comment j'ai fait

[LeSkwal]

Vraiment merci

Pascal

[LeSkwal]

Créer une table: date (ça j'ai bon)

Au premier démarrage de l'application dateFin prendra la valeur date + 60 jours (où indique t-on ces 60 jours (si je veux 30, ou 90 jours j'indique ça où ?))
une fois la datefin égalée ou dépassée l'application se fermera 'Condition IF then Else à inclure à quel endroit ?
DateFin devra etre vide avant de distribuer l'application (ça , ça coulait de source ...)
il faut aussi cacher les champs date et datefin ou les rendre nom modifiable

Donc pour résumer :

Je lance mon appli:
La table date se lance en premier (vérification des dates)

La date est bonne : le menu de mon aplli se lance (Comment indique t-on de lancer mon appli ?..Load... ? et Ou place t-on cette commande ?)

La date n'est plus bonne : Où place t-on le MsgBox indiquant que la période est dépassée ? où place t-on la commande "exit".

Voilà
Je pourrais copier bêtement ta table et l'inclure dans mon apli mais j'aimerais comprendre ce que actuellement je ne comprends pas.

Cordialement

Pascal

"LES CONS ÇA OSENT TOUT, C'EST MÊME A ÇA QU'ON LES RECONNAIT !" dixit M. Fernand (Lino VENTURA) dans "Les tontons flingueurs"

[Renardo]

Bonjour
Le formulaire menu se lance au démarrage de l'application
dans la propriété Sur activation du formulaire menu il y a se code

Code :

1
2
3
4
5
6
7
8
9
Private Sub Form_Current()
Me.Datedebut = Date
If IsNull(Me.DateFin) Then
Me.DateFin = Date + 60
ElseIf Me.Datedebut >= Me.DateFin Then
MsgBox "fermerl'application"
DoCmd.Quit
End If
End Sub

au démarrage du form Menu
Date debut: prend la date du jour
DateFin: si elle est vide prend la date du jour + 60 si elle contient une date elle reste a cette date
ElseIf Me.Datedebut >= Me.DateFin Then:Compare Date debut et date fin si datedebut est Sup ou = a DateFin tu a le Message "Fermer l'application"(Tu marque ce que tu veux)
enfin DoCmd.Quit:Ferme Access
j'espere que se serra plus claire Bon courrage

[LeSkwal]

Je vais regarder ça de plus près ce soir.

Pascal

[Renardo]

Salut
si tu veux faire des essais tu modifi la dateFin manuellement dans la table

[LeSkwal]

Afin d'éviter que des petits malins changent la date du système pour d'arriver à faire fonctionner l'appli j'ai rajouté une autre condition. (Bon, je sais que "cracker" ce bidouillage ne posera sans doute aucun problème à certains mais bon ...)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Form_Load()
   Me.Date1 = Date
 If IsNull(Me.Datetest) Then
            Me.Datetest = Date1
            End If
            
            If Me.Date1 >= Me.Datetest Then
            Me.Datetest = Me.Date1
            Else: MsgBox "Ah, Ah : Vous avez tenté de changer la date du système; c'est pas bien...Pascal. Désolé, Au revoir !"
            DoCmd.Quit
            End If

            If IsNull(Me.DateFin) Then
            Me.DateFin = Date + 90
            ElseIf Me.Date1 >= Me.DateFin Then
            MsgBox "fermerl'application"
            DoCmd.Quit
            End If

End Sub

J'ai rajouté une variable "Datetest".

Ca à l'air de très bien fonctionner. Ce qui oblige la personne à se remettre à la date réelle qui inéluctablement mène à la fin de la période d'essai.

Si quelqu'un pense que ce bout de code peut poser des problèmes que je n'aurais pas identifié qu'il me le dise.
Enfin si cela peut servir à d'autres, tant mieux...

Cordialement

Pascal

[Renardo]

Bonjour
Comment fais tu une fois la date dépassée si tu décide de prolonger le délais ?

[LeSkwal]

Soit j'ai été validé professionnellement (contrat de travail en poche) et donc je vire la protection et je transfert l'appli sur le réseau avec une dorsale et une frontale.

Sinon si je ne suis pas embauché ils auront une appli inutilisable dans le temps et comme cette base est une gestion clients...dommage de ne pas avoir les dates actualisées ...

Voilà.

Pour effectivement enlever la date de bridage, si j'avais du développer une appli commerciale, je pense que j'aurais rajouté une condition ALPHA.

Cette condition aurait été la suivante :

Identification du numéro du disque dur + algorithme (A) à 3 € pour donner une chaîne.

Un autre algorithme (B) sera nécessaire... (voir plus bas)

Chaîne envoyée sur ton mail.

Décryptage inversé de l'algo.

Numéro de série du HDD obtenu.

Avec ce numéro de HDD + algorithme (B) = tu obtiens une chaîne de caractère que tu envoies à ton client.

Ce numéro correspond à ta variable ALPHA de départ.

Lorsque ton client lance ton appli :

1 - vérification qu'il n'a pas bidouillé les dates

2 - date de fin indiqué

Plusieurs conditions :

a - l'appli va chercher le numéro de ton HDD et fonctionnement des 2 Algo.

une fenêtre apparait : si il veut s'enregistrer : 1 bouton qui ouvre un formulaire d'enregistrement avec la chaîne HDD + Algo A (Possibilité de te l'envoyer par la poste, ou par mail).

1 champ où il pourra inscrire le numéro que tu lui aura envoyé (HDD + Algo B).


En inscrivant ce numéro et après validation, il sera comparé à la valeur Alpha calculé par ton appli (correspondant au HDD + Algo B).

Si c'est faux alors "date indiquée" de fin de période d'essai actif et fermeture de ton appli.

Si Alpha = au chiffre inscrit alors la valeur de ta fin de période d'essai sera continuellement repoussée de plus 1 jour par exemple. Datefin = Date1 + 1.

Voir même si tu propose une licence annuelle tu mets 365 jours et hop.


J'espère avoir été assez clair.

Cordialement

Pascal

[Renardo]

Aucun probleme pour moi
Bonne chance pour le poste

[LeSkwal]

Renardo, encore merci pour tes interventions fréquentes.

Peut-être à bientôt quand j'aurai (je l'espère) à installer cette appli sur le réseau. Notre relation risque encore d'être du type :...............................................Enfin comme d'hab

Cordialement

Pascal