Les .htaccess & .htpasswd chez multimania

Soyez le premier à donner votre avis sur cette source.

Vue 6 878 fois - Téléchargée 501 fois

Description

C'est un petit programme qui configure les fichiers .htaccess et .htpasswd pour le dossier que vous voulez protéger.
Dans le zip se trouve le fichier htpw-dos.exe c'est lui qui crypte les mots de passe et il est impératif qu'il reste dans le même dossier que l'exécutable du programme.

Encore un fois toutes les fonctions sont basic.

Mais toutefois s'il vous faut un renseignement ou autre je suis là.

Attention : cette configuration n'est valable que chez Multimania.

Source / Exemple :


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

Conclusion :


Ce programme a été fait pour gagner du temps et simplifier l'utilisation de ses fichiers chez Multimania.

La méthode qui permet de copier le fichier htpw-dos.exe sur c:\ vient de se site.

Codes Sources

A voir également

Ajouter un commentaire

Commentaire


enfin un code utile!
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.