begin process at 2012 02 17 09:04:42
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

VBScript

 > CGI D'AUTHENTIFICATION APACHE À LA VOLÉE (VBS DONC SOUS WINDOWS)

CGI D'AUTHENTIFICATION APACHE À LA VOLÉE (VBS DONC SOUS WINDOWS)


 Information sur la source

 Description

voici un script qui permet de modifier l'identifiant du fichier  .htpassword de l'authentification apache et ceci à la volée cette identifiant est envoyé par mail des que l'internautre ce connecte il lui reste plus que à faire un copier coller de l'identifiant recu par mail et il se connecte.

biensur il faut faire appel a ce script via une page html
dans mon cas j'utilise le SSI d'apache pour executer ce script

pourquoi ce script:
tout simplement afin d'éviter que les personne ce connectant à mon site ce passe des identifiants fixes.

Source

  • lettres = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
  • nLettres = Len(lettres)
  • pwd = ""
  • randomize
  • for i = 1 to 12
  • car = int(nLettres * rnd + 1)
  • pwd = pwd + Mid(lettres,car,1)
  • next
  • 'affiche le mot de passe
  • 'Inputbox "","Generated Password",pwd
  • On Error Resume Next
  • Dim OFS, MonFichier, FR, textCont
  • '1 je cr?la r?rence du fichier
  • Set OFS = CreateObject("Scripting.FileSystemObject")
  • '2 je vais obtenir le fichier toto.txt qui est dans le r?rtoire windows.
  • Set Monfichier = OFS.GetFile("C:\Program Files\Apache Software Foundation\Apache2.2\secret\password.txt")
  • '3 maintenant je vais ouvrir le fichier en lecture
  • Set FR = Monfichier.OpenAsTextStream( 1,0)
  • '4 je vais maintenant obtenir 12 caract?s du fichier fichier donc le login .
  • textCont = FR.Read(12)
  • '5B Je ferme le fichier.
  • FR.Close
  • Const ForReading = 1, ForWriting = 2, ForAppending = 8
  • Dim fso, f
  • Dim st
  • Set fso = CreateObject("Scripting.FileSystemObject")
  • 'Ouverture et lecture du fichier ?odifier
  • Set f = fso.OpenTextFile("C:\Program Files\Apache Software Foundation\Apache2.2\secret\password.txt", ForReading)
  • st = f.readAll
  • f.Close
  • 'ecriture du fichier modifier... apr?avoir remplacer "Salut" par "bonjour"..
  • Set f = fso.OpenTextFile("C:\Program Files\Apache Software Foundation\Apache2.2\secret\password.txt", ForWriting)
  • f.Write replace(st,textCont,pwd)
  • f.close
  • ' envois du mail avec identifiant
  • Set objEmail = CreateObject("CDO.Message")
  • objEmail.From = "mail de lexpediteur@login.com"
  • objEmail.To = "mai du destinataire@login.com"
  • objEmail.Subject = " sujet du mail :Identifiants du site https://xxx.com ne pas à répondre ce mail"
  • objEmail.Textbody = "Bonjour"& vbCrLf &""& vbCrLf &"Ci joint les nouveaux identifiants du site" & vbCrLf &"Nom d'utilisateur: "& pwd & vbCrLf &"mot de passe : ne saisir aucun mot de passe"& vbCrLf &""& vbCrLf&"Cordialement"& vbCrLf &"Keaoner"
  • objEmail.Configuration.Fields.Item _
  • ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  • objEmail.Configuration.Fields.Item _
  • ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  • objEmail.Configuration.Fields.Item _
  • ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
  • "smtp.DU_FAI.fr"
  • objEmail.Configuration.Fields.Item _
  • ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  • objEmail.Configuration.Fields.Update
  • objEmail.Send
lettres = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
nLettres = Len(lettres)
pwd = ""

randomize 

for i = 1 to 12
    car = int(nLettres * rnd + 1)
    pwd = pwd + Mid(lettres,car,1)
next 


'affiche le mot de passe
'Inputbox "","Generated Password",pwd

On Error Resume Next 



Dim OFS, MonFichier, FR, textCont 


'1 je cr?la r?rence du fichier 
Set OFS = CreateObject("Scripting.FileSystemObject") 
'2 je vais obtenir le fichier toto.txt qui est dans le r?rtoire windows. 
Set Monfichier = OFS.GetFile("C:\Program Files\Apache Software Foundation\Apache2.2\secret\password.txt") 
'3 maintenant je vais ouvrir le fichier en lecture 
Set FR = Monfichier.OpenAsTextStream( 1,0) 
'4 je vais maintenant obtenir 12 caract?s du fichier fichier donc le login . 
textCont = FR.Read(12) 
'5B Je ferme le fichier. 
FR.Close

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Dim st
Set fso = CreateObject("Scripting.FileSystemObject")


'Ouverture et lecture du fichier ?odifier
Set f = fso.OpenTextFile("C:\Program Files\Apache Software Foundation\Apache2.2\secret\password.txt", ForReading)
st = f.readAll
f.Close

'ecriture du fichier modifier... apr?avoir remplacer "Salut" par "bonjour"..
Set f = fso.OpenTextFile("C:\Program Files\Apache Software Foundation\Apache2.2\secret\password.txt", ForWriting)
f.Write replace(st,textCont,pwd)
f.close
' envois du mail avec identifiant
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "mail de lexpediteur@login.com"
objEmail.To = "mai du destinataire@login.com"
objEmail.Subject = " sujet du mail :Identifiants du site https://xxx.com ne pas à répondre ce mail" 
objEmail.Textbody = "Bonjour"& vbCrLf &""& vbCrLf &"Ci joint les nouveaux identifiants du site" & vbCrLf &"Nom d'utilisateur: "& pwd & vbCrLf &"mot de passe : ne saisir aucun mot de passe"& vbCrLf &""& vbCrLf&"Cordialement"& vbCrLf &"Keaoner"
objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
           "smtp.DU_FAI.fr" 
objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send

 Conclusion

aucune


 Sources du même auteur

FIREWALL WINDOWS XP SP 2 DESACTIVER LE BLOCAGE DE CERTAINS P...
ENVOIE D'UN MAIL VIA LE SERVEUR SMTP DE YAHOO

 Sources de la même categorie

Source avec Zip Source avec une capture RECHERCHE & SAUVEGARDE DES FICHIERS PAR LEURS EXTENSIONS par hackoo
Source avec Zip Source avec une capture [VBS] SPLASH SCREEN EN VBSCRIPT par hackoo
Source avec Zip Source avec une capture [VBS] GOOGLE EASTER EGGS par hackoo
Source avec Zip Source avec une capture FILE2COMPARE: COMPARAISON DE DEUX FICHIERS LIGNE PAR LIGNE par hackoo
Source avec Zip Source avec une capture [VBS] COMMENT CRÉER UN DOSSIER ET LE PROTÉGER PAR MOT DE PAS... par hackoo

 Sources en rapport avec celle ci

GÉNÉRATEUR DE MAIL OUTLOOK AVEC MISE EN FORME VIA UNE SYNTAX... par 8Tnerolf8
Source avec Zip Source avec une capture Source .NET (Dotnet) ENVOI DE MAIL AVEC PIÈCE JOINTE par EhJoe
Source avec Zip Source avec une capture EDITEUR DE BBCODE & ENVOI MAIL ANIMÉ PAR L'AGENT MERLIN LE M... par hackoo
Source avec Zip Source avec une capture ENVOI MAIL AVEC MERLIN LE MAGICIEN par hackoo
Source avec Zip Source avec une capture SMTP : PROJET COMPLET D'ENVOI DE COURRIEL, SANS UTILISATION ... par fkuchta

Commentaires et avis

Aucun commentaire pour le moment.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

UN MAIL VIA MAPI A PLUSIEURS DESTINATAIRES ! [ par BOUL ] Comment envoyer un mail via Mapi a plusieurs destinataires le plus simplement possible please !Merci d'avance !Boul Lecture d'un piecs jointe ds un e-mail [ par ft ] Comment proceder pour pouvoir copier un fichier recu en piece jointe par un mail dans un dossier de son choix ! Envoie de mail [ par Echarlier ] Peut-on encoyer automatiquement des mails en Vb en utilisant comme logiciel de messagerie Netscape. Envoyer un mail à partir d'Access97 [ par Progsam ] Je cherche a envoyer un mail a partird'access97 via outlook express.Il est possible de le faire avec outlook en declarant une variable outlook.applica Programmeur fortiche sur l'envoi de mail? [ par jeromax ] Salutj'ai créé une dll qui permet d'envoyer des mails (Mapi) via une page ASP. Le probleme, c'est que, comme c'est le serveur qui les envoie, les mail Lire un mail (direct OR outlook) [ par Kerad ] *** INTRO ****Cette question peut être stupide voir banale mais je n'ai jamais touché à la prog internet (sauf sous Delphi) = je n'y connais rien et d Mail automatique [ par gty ] Comment peut-on envoyer le résultat d'une page asp en mail à plusieurs destinataires et cela sans devoir cliquer sur un bouton ou un lien. MAPI et envoie de mail [ par Yann ] Je suis en reseaux et j'ai utilise les control MAPIMessage et MAPISession pour envoyer des mails a partir du VB.Mais voila je veux parametrer le from Comment envoyer un mail [ par TotalRecall ] voilà en HTML on ferait ça :mailto:destinataire@machin.com?subject=MonSujetc koi lequivalent en Vb ? merci tous Urgent:Comment envoyer un mail [ par Noura ] pouvez vous me donner un code source pour envoyer un état que j'ai créeé avec Data Report de visual basic par e-mail càd une fois l'état est pret je v


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,075 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales