Comment protéger un programme par mot de passe ?

Version imprimable

21/12/2012, 18h20
hackoofr

Comment protéger un programme par mot de passe ?

:salut:
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.
:merci:
21/12/2012, 19h27
JML19

Citation:

Envoyé par hackoofr

:salut:
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.
- :merci:

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 ?
21/12/2012, 21h10
hackoofr

Citation:

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 ?

:salut:
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.
:merci:
22/12/2012, 10h28
JML19

Citation:

Envoyé par hackoofr

:salut:
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.
:merci:

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.

Citation:

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.

:salut:
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:

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>

23/12/2012, 21h06
JML19

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.
23/12/2012, 21h13
hackoofr

Oui, c'est exactement pour ça que je cherche une autre idée :mouarf:
23/12/2012, 21h40
JML19

Je ne programme pas en VB, je programmais en assembleur 8086 en GWBasic et en TBasic il y a longtemps, mais je pense que tu devrais renommer le fichier exécutable le mettre dans un dossier que tu créais bien caché.

Puis mettre à la place ton code avec mot de passe du même nom que l'exécutable et à l'intérieur le chemin vers le vrai exécutable renommé.

Lorsque quelqu'un veut protéger un exécutable, il doit te donner son nom et l'endroit où il se trouve.

Dans ce cas dans une boite de dialogue, tu peux bien prendre ces informations dans ton programme, pour renommer le partie mot de passe le même nom que l'exécutable et pour le déplacer et le renommer.

Le programme de mot de passe prendra le nom de l'exécutable renommé.

Donc il te faut deux programmes :

- Un programme de mot de passe toujours le même ce programme sera renommé par le nom de l'exécutable que tu dois protéger.

- Un programme qui paramétrera tout ceci et qui récupérera les informations de l'exécutable puis qui le déplacera le renommera avec des donnés qui seront déjà inscrite dans le programme de mot de passe.

Dans l'exécutable de mot de passe il ne faudra que changer son nom par le nom de l'exécutable à protéger.

Le nouveau nom et le nouveau chemin de l'exécutable à protéger seront déjà inscrits dans le programme mot de passe toujours les mêmes.
24/12/2012, 23h57
hackoofr

:salut: et :merci: pour votre idée, juste il me reste la partie programmation :ccool:
Donc je passe le sujet en :resolu:
27/12/2012, 22h26
Montor

tu ne peux pas modifier le code de Calac.exe est protéger par le système
il y a une copie de secoure dans dllcach
27/12/2012, 22h31
hackoofr

Citation:

Envoyé par Montor

tu ne peux pas modifier le code de Calac.exe est protéger par le système
il y a une copie de secoure dans dllcach

Qu'entendez-vous par Calac.exe :koi:
28/12/2012, 19h41
Montor

Citation:

Envoyé par hackoofr

Qu'entendez-vous par Calac.exe :koi:

c'est a dire que tu ne peux pas modifier les applications signées livrées avec windows

Autre alternative est de gérer l'extension .exe depuis le registre

A+