Installation limitée dans le temps inno setup VB6 [Résolu]

[santovb6]

Bonjour à tous,

Cela est mon premier message, tout d'abord bravo pour ce site que j'ai consulté souvent avant de m'inscrire.

Ma question est la suivante : comment limiter dans le temps l'intallation d'un logiciel (écrit sous VB6) et empaqueté sous inno setup (merci à l'auteur du tutorial) ?. Je pense à un mot de passe limité dans le temps, mais je ne connais pas le langage d'inno setup.

je viens d'essayer une solution sous VB6. écriture dans un fichier dans la racine de C, ce fichier est incrémenté de une unité à chaque ouverture du programme et est affecté d'un attribu "caché". Aprés un certain nombre d'utilisation le programme vérouille certaines de ses options. Le dévérouillage peut se faire par un mot de passe codé (je garde ce codage secret) en fonction de la date.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim nbutil As Integer
 On Error Resume Next
 Open "c:\espion" For Input As #1
        Input #1, nbutil
 Close
 Text3.Text = "Nb utilisations restantes " + Str(50 - nbutil)
 mnu_chassis.Enabled = True
 mnu_aide = True
 If nbutil <= 50 Then mnu_debrid.Enabled = False Else mnu_debrid = True
 If nbutil > 50 Then
    a = MsgBox("Version démo en fin de droit d'utilisation")
    mnu_chassis.Enabled = False
    mnu_aide = False
 End If
 SetAttr "c:\espion", vbNormal
 Open "c:\espion" For Output As #1
        Print #1, nbutil + 1
 Close
 SetAttr "c:\espion", vbHidden

Cela fonctionne correctement, mais il est vrai qu'un informaticien averti pourra trouver, et modifier, le fichier caché.

Remerciments par avance.

[ThierryAIM]

n'écris pas en clair le nom du fichier, sinon il apparaitra dans l'exe avec un éditeur Hexa

Fais une concaténation de chr()

Code :

1
2
Dim SpyFile as String
SpyFile = chr(101) & chr(115) & chr(112) & chr(105) & chr(111) & chr(110) ' e & s & p & i &o & n

[santovb6]

Merci Thierry pour l'astuce, je suis un peu confu, j'aurais pu y penser.