Comment protéger un programme par mot de passe ?

**hackoofr** · 21/12/2012, 18h20

Je cherche comment protéger un programme par mot de passe càd au niveau programmation exemple (par Vbscript) et quelle sont les paramètres système (modification de la Base de registre) qui vont être modifié pour aboutir a ce but ou bien s'il y a des trucs et des astuces qui peuvent répondre a mon souhait.
NB:je ne cherche pas à utiliser un programme extérieure car il y a pas mal de soft dans le net qui peuvent répondre a ma question.mais je cherche comment ils fonctionnent.

**JML19** · 21/12/2012, 19h27

Envoyé par hackoofr

Je cherche comment protéger un programme par mot de passe càd au niveau programmation exemple (par Vbscript) et quelle sont les paramètres système (modification de la Base de registre) qui vont être modifié pour aboutir a ce but ou bien s'il y a des trucs et des astuces qui peuvent répondre a mon souhait.
NB:je ne cherche pas à utiliser un programme extérieure car il y a pas mal de soft dans le net qui peuvent répondre a ma question.mais je cherche comment ils fonctionnent.
-

Bonsoir

Oui mais je ne comprends pas ton propos, tu veux protéger un programme :

- Pour son installation ?
- Pour son exécution ?
- Pour sa copie ?
- Pour son utilisation ?
- Pour son code source ?

**hackoofr** · 21/12/2012, 21h10

Envoyé par JML19

Bonsoir
Oui mais je ne comprends pas ton propos, tu veux protéger un programme :
- Pour son installation ?
- Pour son exécution ?
- Pour sa copie ?
- Pour son utilisation ?
- Pour son code source ?

Pour son exécution par exemple ce programme : EXE Password Protector est un utilitaire système qui vous permet de protéger par mot de passe n'importe quel fichier exécutable de Windows.
Donc ce que je cherche c'est la technique et le principe pour sa programmation.

**JML19** · 22/12/2012, 10h28

Envoyé par hackoofr

Pour son exécution par exemple ce programme : EXE Password Protector est un utilitaire système qui vous permet de protéger par mot de passe n'importe quel fichier exécutable de Windows.
Donc ce que je cherche c'est la technique et le principe pour sa programmation.

Bonjour

D'accord lors du lancement du programme celui ci demande un mot de passe ?

Je vois deux cas :

Un programme de mot de passe qui récupère le code de l'exécutable en rajoutant la couche mot de passe et le produit fini reprend le nom de cet exécutable.

Un programme de mot de passe qui inclut le changement de nom de l'exécutable puis créait un lien vers ce programme renommé et prend son nom d'exécutable.

**hackoofr** · 23/12/2012, 20h44

Envoyé par JML19

Je vois deux cas :
Un programme de mot de passe qui récupère le code de l'exécutable en rajoutant la couche mot de passe et le produit fini reprend le nom de cet exécutable.
Un programme de mot de passe qui inclut le changement de nom de l'exécutable puis créait un lien vers ce programme renommé et prend son nom d'exécutable.

Donc il y a du travail à faire

Alors, j'ai pensé de verrouiller et déverrouiller le fichier en utilisant l'outil Cacls, voici une tentative en HTA

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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
<html> 
<head> 
<HTA:APPLICATION 
ICON="Explorer.exe"
SINGLEINSTANCE="yes"
APPLICATIONNAME = "File Protection © Hackoo © 2012" 
BORDER="dialog"
BORDERSTYLE="complex"
CONTEXTMENU="no"
SYSMENU="yes"
MAXIMIZEBUTTON="no"
SCROLL="no" 
>
<title>File Protection © Hackoo © 2012</title> 
BORDER="THIN" 
BORDERSTYLE="NORMAL" 
ICON="Explorer.exe" 
INNERBORDER="NO" 
MAXIMIZEBUTTON="NO" 
MINIMIZEBUTTON="NO" 
SCROLL="NO" 
SELECTION="NO" 
SINGLEINSTANCE="YES"/></HEAD> 
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES"> 
<BODY TOPMARGIN="1" LEFTMARGIN="1"><CENTER><DIV><SPAN ID="ONSCR"></SPAN></DIV></CENTER></BODY>

<script language="VBScript">
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim WS : Set WS = CreateObject("wscript.shell")
Titre = "File Protection © Hackoo © 2012"
Temp = WS.ExpandEnvironmentStrings("%Temp%")
Essais = Temp &"\Essais.txt"
Sub window_onload()
    CenterWindow 250,150
    Call TextFocus
    Dim Compteur : Compteur = 0
    If Not objFSO.FileExists(Essais) Then 
        Dim Logfile : Set Logfile = objFSO.OpenTextFile(Essais,2,True)
        Logfile.writeline Compteur
        Logfile.Close
    end if
End Sub

Sub CenterWindow(x,y)
    window.resizeTo x, y
    iLeft = window.screen.availWidth/2 - x/2
    itop = window.screen.availHeight/2 - y/2
    window.moveTo ileft, itop
End Sub

Sub PasswordForm()
    Self.document.title = "Mot de passe"
    Self.document.bgColor = "#BBBFFF"
    ONSCR.InnerHTML="<center><FONT COLOR=""#FFFFFF"" SIZE=""+1"" FACE=""VERDANA,ARIAL,HELVETICA,SANS-SERIF"">Mot de Passe</FONT<br><input type=""password"" name=""PasswordArea"" size=""20"" onKeyUp=""TextFocus""><P>"_
    &"<input  type=""Submit"" STYLE=""HEIGHT:25;WIDTH:110"" value=""Accès Au Menu"" name=""run_button""  onClick=""VerifPass"">"_
END Sub

Sub VerifPass
    Dim NB_Essais_MAX : NB_Essais_MAX = 3
    Password = "123"
    Set Readfile = objFSO.OpenTextFile(Essais,1)
    Compteur = Readfile.ReadAll
    Readfile.Close
    Controle = True
    While Controle
        Compteur = Compteur + 1
        NB_Essais_Restant = NB_Essais_MAX - Compteur
        Set Logfile = objFSO.OpenTextFile(Essais,2,True)
        Logfile.writeline Compteur
        Logfile.Close
        If PasswordArea.Value <> Password Then
            MsgBox "Mauvais Mot de passe et NB° ESSAIS est " & Compteur &vbCr&_
            "Le Nombre d'essais restant est "& NB_Essais_Restant,16,"Mauvais Mot de passe"
            Location.Reload(True)
        end if
        If PasswordArea.Value = Password Then
            
            MsgBox "Mot de Passe Correct !",64,"Mot de Passe Correct !"
            If objFSO.FileExists(Essais) Then objFSO.DeleteFile Essais,True
            Controle = False
            Call MenuPrincipal()
            Exit Sub
        End If
        If Compteur = NB_Essais_MAX Then
            If objFSO.FileExists(Essais) Then objFSO.DeleteFile Essais,True
                       MsgBox "Le Nombre Limite d'essais est atteint ! "&vbcr& "L'ordinateur va Rebooter dans 30 secondes ",48,"Le Nombre Limite de Essai est atteint"
                       Command="cmd /c Shutdown.exe -r -t 30 -c " & chr(34) & "Sauvegarder votre Travail car l'ordinateur va rebooter dans 30 secondes" & chr(34)
                       Executer = WS.Run(Command,0,False) 
                       window.close
        End If
            Exit Sub
        wend     
    End Sub
    
    Sub TextFocus
        PasswordArea.Focus 
    End Sub
    
    SUB InnerWindowSize(intWidth,intHeight) 
        Self.ResizeTo intWidth,intHeight 
        Self.ResizeTo intWidth+(intWidth-Document.Body.OffsetWidth),intHeight+(intHeight-Document.Body.OffsetHeight) 
        Self.MoveTo (Screen.Width/2)-(intWidth/2),(Screen.Height/2)-(intHeight/2) 
    END SUB 
    
    SUB MenuPrincipal() 
        CALL InnerWindowSize(350,150) 
        Self.document.title = "File Protection © Hackoo © 2012"
        
        ONSCR.InnerHTML="<input type=""file"" name=""file"" id=""file"" /><br><br>"&_
        "<CENTER><INPUT TYPE=""BUTTON"" STYLE=""HEIGHT:25;WIDTH:165"" VALUE=""Protect File"" ONCLICK=""Deny(file.value)""><P>"&_
        "<CENTER><INPUT TYPE=""BUTTON"" STYLE=""HEIGHT:25;WIDTH:165"" VALUE=""UnProtect File"" ONCLICK=""Allow(file.value)""><P>" 
    END SUB 
    
    Function Deny(objet)
        Titre = "File Protection © Hackoo © 2012"
        Set Ws = CreateObject("WScript.Shell")
        Set ProcessEnv = Ws.Environment("Process")
        NomUtilisateur = ProcessEnv("USERNAME")
        If objet = "" Then 
            MsgBox "Le Fichier n'existe pas, il faut choisir un Fichier",VbExclamation,Titre
            Exit Function
        End if
        Command = "%COMSPEC% /c Echo o| cacls "& qq(objet) &" /P " & qq(NomUtilisateur) & ":N administrateurs:N"
        Result = ws.Run(Command,0,True) 'exécution de la commande sans afficher la console MS-DOS
        MsgBox "Le Fichier  "& qq(objet) &" est verouillé avec succés !",64,"Le  "& qq(objet) &" est Verouillé avec succés !"
    End Function
    
    Function Allow(objet)
        Titre = "File Protection © Hackoo © 2012"
        Set Ws = CreateObject("WScript.Shell")
        Set ProcessEnv = Ws.Environment("Process")
        NomUtilisateur = ProcessEnv("USERNAME")
        If objet = "" Then 
            MsgBox "Le Fichier n'existe pas, il faut choisir un Fichier",VbExclamation,Titre
            Exit Function
        End if
        Command = "%COMSPEC% /c Echo o| cacls "& qq(objet) &" /g " & qq(NomUtilisateur) & ":f administrateurs:f"
        Result = ws.Run(Command,0,True) 'exécution de la commande sans afficher la console MS-DOS
        MsgBox "Le Fichier "& qq(objet) &" est déverouillé avec succés !",64,"Le  "& qq(objet) &" est Déverouillé avec succés !"
    End Function
    
    Function qq(strIn)
        qq = Chr(34) & strIn & Chr(34)
    End Function
    
    Sub PasswordForm()
        Self.document.title = "Mot de passe"
        Self.document.bgColor = "#BBBFFF"
        ONSCR.InnerHTML="<center><FONT COLOR=""#FFFFFF"" SIZE=""+1"" FACE=""VERDANA,ARIAL,HELVETICA,SANS-SERIF"">Mot de Passe</FONT<br><input type=""password"" name=""PasswordArea"" size=""20"" onKeyUp=""TextFocus""><P>"_
        &"<input  type=""Submit"" STYLE=""HEIGHT:25;WIDTH:110"" value=""Accès Au Menu"" name=""run_button""  onClick=""VerifPass"">"_
    END Sub
    Call PasswordForm()
    </script>

**JML19** · 23/12/2012, 21h06

Je pense que tu as le même problème avec la fonction cacls. En protégeant le fichier ou le dossier par mot de passe quelqu'un d'administrateur peut supprimer ces protections.

Comment protéger un programme par mot de passe ?

Sécurité

Vue hybride

Discussions similaires

Partager

Partager