Soyez le premier à donner votre avis sur cette source.
Vue 7 014 fois - Téléchargée 519 fois
Private Sub Command2_Click() If Text1.Text = "" Then MsgBox "Veuillez remplir tous les champs.", vbInformation, "Erreur" Text1.SetFocus Exit Sub ElseIf Len(Text1) < 3 Then MsgBox "il faut un minimum de trois lettres comme nom de membre.", vbInformation, "Erreur" ElseIf Text2.Text = "" Then MsgBox "Veuillez remplir tous les champs.", vbInformation, "Erreur" Text2.SetFocus Exit Sub ElseIf Text3.Text = "" Then MsgBox "Veuillez remplir tous les champs.", vbInformation, "Erreur" Text3.SetFocus Exit Sub ElseIf List1.ListCount = 0 Then MsgBox "Veuillez introduire des membres.", vbInformation, "Erreur" Text4.SetFocus Exit Sub Else MsgBox "Si un fichier .htaccess ou .htpasswd existe sur c:\ ils vont être supprimés.", vbInformation, "Info" On Error Resume Next Kill "c:\.htaccess" Kill "c:\.htpasswd" Open "c:\htaccess.txt" For Output As #1 Print #1, "AuthUserFile /data/perso/" & Mid(Text1.Text, 1, 1) & "/" & Mid(Text1.Text, 2, 1) & "/" & Mid(Text1.Text, 3, 1) & "/" & Text1.Text & Text2.Text & "/.htpasswd" Print #1, "AuthGroupFile /dev/Null" Print #1, "AuthName " & Chr(34) & Text3.Text & Chr(34) Print #1, "AuthType Basic" Print #1, "" Print #1, "<Limit GET>" Print #1, "require valid-user" Print #1, "</Limit>" Close #1 Open "c:\htpasswd.txt" For Output As #1 Close #1 Open "c:\cfg.bat" For Output As #1 Print #1, "@echo off" Print #1, "cls" For i = 0 To List1.ListCount - 1 List1.ListIndex = i Print #1, "c:\htpw-dos.exe " & "c:\htpasswd.txt " & List1.Text Next i Print #1, "c:\command.com /c attrib -R -S -H +A c:\htpw-dos.exe" Print #1, "c:\command.com /c del c:\htpw-dos.exe" Print #1, "c:\command.com /c ren c:\htaccess.txt .htaccess" Print #1, "c:\command.com /c ren c:\htpasswd.txt .htpasswd" Close #1 List1.Clear Set fso = CreateObject("Scripting.FileSystemObject") fso.CopyFile App.Path & "\htpw-dos.exe", "c:\", True Shell "c:\cfg.bat", vbNormalFocus MsgBox "Le fichier .htaccess & le fichier .htpasswd ont été créés sur c:\ et sont prêts à être uploadés dans le dossier suivant :" & Chr(13) & Chr(13) & "http://www.multimania.com/" & Text1.Text & Text2.Text & "/", vbInformation, "Fin" End If End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii = "13" Then List1.AddItem Text4.Text Text4.Text = "" End If End Sub
C cool!
bon travail!
http://www.e-security.fr.st
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.