Coffre avec mot de passe

Invité · 14/07/2012, 17h30

Bonjour, je cherche à améliorer un fichier de gestion de dossier-coffre avec mot de passe dont voici le code actuel:

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
@echo off
title Coffre avec mot de passe ^| Version 1.3
mode con cols=60 lines=20
if EXIST "Control Panel.{2227A280-3AEA-1069-A2DE-08002B30309D}" goto ouvre
if NOT EXIST Coffre goto create

:confirm
echo Voulez-vous verrouiller le dossier Coffre?(O/N)
set /p "cho=>"
if %cho%==O goto ferme
if %cho%==o goto ferme
if %cho%==n goto fin
if %cho%==N goto fin
echo Choix incorrect, veuillez r‚pondre Oui ou Non.
goto confirm

:ferme
ren Coffre "Control Panel.{2227A280-3AEA-1069-A2DE-08002B30309D}"
attrib +h +s "Control Panel.{2227A280-3AEA-1069-A2DE-08002B30309D}"
echo Dossier Coffre verouill‚.
goto fin

:ouvre
set passin=%newpass%
if NOT DEFINED passin goto pasdepass
echo Entrez ou confirmez le mot de passe du Dossier Coffre.
set /p "passout=>"
if NOT %passout%==%passin% goto incorrect
attrib -h -s "Control Panel.{2227A280-3AEA-1069-A2DE-08002B30309D}"
ren "Control Panel.{2227A280-3AEA-1069-A2DE-08002B30309D}" Coffre
echo Le dossier Coffre est ouvert.
goto fin

:pasdepass
echo Aucun mot de passe d‚fini.
echo Veuillez d‚finir un mot de passe pour le dossier Coffre.
set /p "newpass=>"
if DEFINED newpass (set passin=%newpass%) else (goto pasdepass)
goto ouvre

:incorrect
echo Mot de passe incorrect.
pause
goto ouvre

:create
md Coffre
echo Le dossier Coffre est cr‚‚.
goto fin

:fin
pause

L'idée serait de permettre, grâce à la sous-routine "pasdepass", de créer un mot de passe mais AUSSI le mémoriser dans le batch. Ainsi, cette sous-routine n'aurait (comme la sous-routine"create") besoin de s'exécuter qu'une fois.
Mais... comment faire???

d'avance pour toute information susceptible d'être utile!

**hackoofr** · 14/07/2012, 19h12

un coup d’œil sur cette discussion [Batch] Protection de Dossiers par Mot de Passe et si vous voulez le faire en Vbscript un coup d’œil sur [VBS] Protection Dossier par Mot de Passe

**hackoofr** · 15/07/2012, 23h40

Bon voici la sortie de la Version 1.4 avec stockage du mot de passe dans la base de Registre

Donc à tester et peut-être qu'on peut l'améliorer ensemble

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
@echo off
Color 9B
title Coffre avec mot de passe ^| Version 1.4 Updated by Hackoo
mode con cols=60 lines=20
if EXIST "Control Panel.{2227A280-3AEA-1069-A2DE-08002B30309D}" goto saisiePass
if NOT EXIST Coffre goto create
reg query ""HKLM\SOFTWARE\Coffre"">Nul
if %errorlevel%==1 goto pasdepass

:confirm
echo Voulez-vous verrouiller le dossier Coffre?(O/N)
set /p "choix=>"
if %choix%==O goto ferme
if %choix%==o goto ferme
if %choix%==n goto fin
if %choix%==N goto fin
echo Choix incorrect, veuillez r‚pondre Oui ou Non.
goto confirm

:ferme
cls
Color 9A
ren Coffre "Control Panel.{2227A280-3AEA-1069-A2DE-08002B30309D}"
attrib +h +s "Control Panel.{2227A280-3AEA-1069-A2DE-08002B30309D}"
echo Dossier Coffre verouill‚.
goto fin

:SaisiePass
echo Entrez le mot de passe du Dossier Coffre.
set /p "passout=>"
echo V‚rification du mot de passe en cours ....
for /f "tokens=3" %%i in ('reg query ""HKLM\SOFTWARE\Coffre"" ^| find "MDP"') do set MDP=%%i
if %passout%==%MDP% goto ouvre
if NOT %passout%==%MDP% goto incorrect
goto fin

:pasdepass
cls
echo Aucun mot de passe n'est d‚fini.
echo Veuillez d‚finir un mot de passe pour le dossier Coffre.
set /p "newpass1=>"
echo Veuillez confirmer de nouveau votre mot de passe
set /p "newpass2=>"
if "%newpass1%"=="%newpass2%" goto AjoutPassReg
if Not "%newpass1%"=="%newpass2%" echo Les Deux mots de passes ne sont pas identiques ? 
PING 1.1.1.1 -n 1 -w 1000 >NUL
goto pasdepass
goto fin
:AjoutPassReg
reg Add ""HKLM\SOFTWARE\Coffre"" /v MDP /t REG_SZ /d %newpass2% > NUL
goto ferme
goto fin
:incorrect
cls
Color BC & echo Mot de passe incorrect ? ? ?
Goto Ping

:create
md Coffre
echo Le dossier Coffre est cr‚‚.
goto pasdepass

:ouvre
cls
attrib -h -s "Control Panel.{2227A280-3AEA-1069-A2DE-08002B30309D}"
ren "Control Panel.{2227A280-3AEA-1069-A2DE-08002B30309D}" Coffre
Color 9A
echo Mot de passe est Correct !
echo Le dossier Coffre est ouvert.
PING 1.1.1.1 -n 1 -w 1000 >NUL
Start Explorer c:\coffre
exit
:Ping
PING 1.1.1.1 -n 1 -w 1000 >NUL
goto SaisiePass
:fin
pause

Invité · 17/07/2012, 16h47

Belle trouvaille, Hackoofr, mais le batch ne reconnaît plus la sous-routine "incorrect". Pour preuve, voici ce qu'il affiche lorsque je tente un déverrouilage en tapant le bon mot de passe:

Code :

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

1
2
3
4
Erreur : Erreur : le système n'a pas trouvé la clé ou la valeur de Registre spécifiée.
'incorrect' n'est pas reconnu en tant que comande interne ou externe, un programme exécutable ou un fichier de commandes.
Appuyez sur une touche pour continuer...

Lorsque je suis l'instruction en gras, le batch se ferme, ce qui me laisse supposer que j'arrive à ce moment-là à la sous-routine "fin". Y a-t-il un moyen de pallier ce problème?