HTA password pour accès

Invité · 30/07/2012, 04h16

Question de s'amuser...

J'ai créé un petit hta (script 1) qui permet l'accès a un autre hta (second script) si un mot de passe déterminé est inscrit...je me demandais y aurait-il un option de faire le même principe à l'intérieur du second script sans passer par le premier...En fait y a t-il moyen de "barrer" l'utilisation d'un hta a l'aide d'un mot de passe à même le script

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
Sub TestSub
	If PasswordArea.Value = "motdepasse" Then
		Set objShell = CreateObject("WScript.Shell")
			objShell.Run("C:\Users\padawan\Choice.hta")
		window.close
		Else
		MsgBox "Wrong Password Dude..."
    	Location.Reload(True) 
	End If 
End Sub
 
</SCRIPT>
 
<!--HTMLPORTION-->
<input type="password" name="PasswordArea" size="30"><P>
<input id=runbutton  class="button" type="button" value="Accès" name="run_button"  onClick="TestSub">

À la limite aussi avec une tentative de 3 essais autrement "quit"...

Merci

**hackoofr** · 02/08/2012, 15h49

à tester chez vous

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
<html> 
<head> 
<HTA:APPLICATION 
    ICON="Explorer.exe"
    APPLICATIONNAME = "Login" 
    BORDER="dialog"
    BORDERSTYLE="complex"
    CONTEXTMENU="no"
    SYSMENU="yes"
    MAXIMIZEBUTTON="no"
    SCROLL="no" 
>
<title>VerifPass+NBEssais © Hackoo</title> 
<script language="VBScript">
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim WS : Set WS = CreateObject("wscript.shell")
Temp = WS.ExpandEnvironmentStrings("%Temp%")
Essais = Temp &"\Essais.txt"
Sub window_onload()
       CenterWindow 280,180
       Call TextFocus
       Call Fermer("Explorer.exe")
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 VerifPass
Dim NB_MAX : NB_MAX = 3
Password = "motdepasse"
Set Readfile = objFSO.OpenTextFile(Essais,1)
Compteur = Readfile.ReadAll
Readfile.Close
Controle = True
While Controle
        Compteur = Compteur + 1
        NB_Essais_Restant = NB_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
                Call Ouvrir("Explorer.exe")
                resultat=WS.Run("Calc.exe",1,False)'si le mot est correct on lance l'application calculatice
                Controle = False
                window.close
            Exit Sub
        End If
          If Compteur = NB_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)
               Exec = WS.Run(Command,0,False) 
               window.close
             End If
        Exit Sub
wend     
End Sub
 
Sub TextFocus
  PasswordArea.Focus 
End Sub
 
Sub Fermer(Process)
Set Ws = CreateObject("Wscript.Shell")
Command = "cmd /c Taskkill /F /IM "&Process&""
Execution = Ws.Run(Command,0,True)
End Sub
 
Sub Ouvrir(Process)
Set Ws = CreateObject("Wscript.Shell")
Command = "cmd /c Start "&Process&""
Execution = Ws.Run(Command,0,True)
End Sub
 
</SCRIPT>
</head> 
<body STYLE="font:14 pt arial; color:white;filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=1, StartColorStr='#000033', EndColorStr='#0000FF')"
<!--HTMLPORTION-->
<center>Mot de Passe<br><br><input type="password" name="PasswordArea" size="20" onKeyUp="TextFocus"><P>
<input id=runbutton  class="button" type="Submit" value="Accès" name="run_button"  onClick="VerifPass">
</body>
</html>

**hackoofr** · 04/08/2012, 12h31

Pour les tentatives on est d'accord, et on peut même les configurer. Juste vous modifiez le NB_Essais_MAX dans le HTA

Pour utiliser un mot de passe afin d'accéder à un 2 ème HTA j'ai pensé de générer ce dernier dans le même HTA de cette façon dans la pièce-jointe :

Invité · 05/08/2012, 16h16

Vraiment intéressant...

J'ai utilisé le premier exemple/en changeant quelques éléments avec les tentatives d'essai et c'est parfait...

Toutefois pour ce qui est du deuxième (celui généré a même) J'obtient une erreur ligne 178 -2 Fichier introuvable....ce qui est

CreateObject("WScript.Shell").Run "Sleeper.vbs" & MSecs,1 , True

Merci pour ces exemples j'adore apprendre de la sorte

**hackoofr** · 05/08/2012, 18h46

On ne peut pas utiliser le ~~WScript.Sleep~~ dans une Application HTA.
Donc pour contourner ce genre de problème on va utiliser cette fonction Sleep(MSecs)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Sleep(MSecs)' Fonction pour faire une pause car wscript.sleep ne marche pas dans un HTA 
 Set fso = CreateObject("Scripting.FileSystemObject")
 Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
 Dim tempName : tempName = "Sleeper.vbs"
  If Fso.FileExists(tempFolder&"\"&tempName)=False Then
  Set objOutputFile = fso.CreateTextFile(tempFolder&"\"&tempName, True)
  objOutputFile.Write "wscript.sleep WScript.Arguments(0)"
  objOutputFile.Close
  End If
 CreateObject("WScript.Shell").Run tempFolder&"\"&tempName &" "& MSecs,1,True
End Sub

Donc dans la ligne N°178 j'ai oublié de changer le chemin de sleeper.vbs de cette façon :
au lieu de

Code :

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

CreateObject("WScript.Shell").Run "Sleeper.vbs" & MSecs,1 , True

il faut le changer comme ceci :

Code :

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

CreateObject("WScript.Shell").Run tempFolder&"\"&tempName &" "& MSecs,1,True

Normalement ça va marcher maintenant pour vous donc juste vous re-téléchagez le fichier dans la pièce-jointe que je l'ai modifié

Invité · 08/08/2012, 03h42

Merci hackoofr

Je vais travailler la dessus et adapter en fonction de ce que je veux...à la base ton exemple me donne une très bonne idée...

Merci encore

HTA password pour accès

VBScript

Vue hybride

Discussions similaires

Partager

Partager