un code qui permet de recuperer un mot de passe crypté avec un cgi sous linux
sinon ca peut aussi servir a plein de personne pour voir comment recuperer un page web entierement
Source / Exemple :
#Region "pour avoir un htpasswd sous windows"
Private Function passcrypte(ByVal pass_orig As String)
Dim str As String = "http://url_dun_site_quigere_le_htpasswd/cgi-bin/htpass.cgi?" + pass_orig
Dim lol As Object
Dim pass As String
lol = htmltakker(str)
pass = parsepass(lol)
return(pass)
End Function
Public Function htmltakker(ByVal str As String)
Dim sStream As Stream
Dim URLReq As HttpWebRequest
Dim URLRes As HttpWebResponse
Try
URLReq = WebRequest.Create(str)
URLRes = URLReq.GetResponse()
sStream = URLRes.GetResponseStream()
Return New StreamReader(sStream).ReadToEnd()
Catch ex As Exception
Return ex.Message
End Try
End Function
Function parsepass(ByVal HTMLC As String) As String
Dim b, fin As Integer
Dim c As String
b = HTMLC.IndexOf(":") + 1
fin = HTMLC.Length - b
c = HTMLC.Substring(b, fin)
Return c
End Function
#End Region
Conclusion :
Il suffit juste de trouver un serveur qui vous laisse lancer des cgi et qui puisse gerer le htpasswd... moi j'en avais un sous la main... mais bon c pas cool vu que c un site commercial...
bref vous avez juste a remplacer "url_dun_site_quigere_le_htpasswd" par www.xxx.com
apres pour vous servir de ces fonctions suffit de faire un appel à :
passcrypte("motdepasse")
et cette derniere vous renverra le mot de passe htpasswd
y a plus qu'a le mettre dans un fichier .pass (accordé bien sur avec un fichier .htaccess) et voila votre dossier sera protege des malvenus
(pour voir un exemple de ce que ca donne www.samba.fr/adm/ )
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.