DOUKILéééééééé

  1. Dim Questionmodule As String * 256
  2. Dim HASH1 As String * 32
  3. Dim HASH2 As String * 32
  4. Dim HASH3 As String * 32
  5. Dim HASH4 As String * 32
  6. Dim HASH5 As String * 32
  7. Dim buffer1 As String * 32
  8. Dim buffer2 As String * 256
  9. Dim HASH As clsMD5
  10. 
  11. 
  12. 
  13. 
  14. 
  15. Public Function EnregistreUtil(Utilisateur As String, pass As String, question As String, reponse As String)
  16. Set HASH = New clsMD5 'procedure pour utiliser les fonctions du module de classe (CLSMD5)
  17. File = FreeFile 'Obtenir un numero de fichier libre
  18. Set objfso = CreateObject("Scripting.FileSystemObject") 'création de l'objet necessaire a la vérification de l'existence d'un fichier ou dossier
  19. Questionmodule = question 'la question secréte et placer dans une variable string formater (256 octet)
  20. HASH1 = HASH.DigestStrToHexStr(Utilisateur & pass) 'HASH résultant du Nom d'utilisateur et du mots de passe
  21. HASH2 = HASH.DigestStrToHexStr(Utilisateur & reponse) ' HASH résultant de la question formater sur 256 octet et de la réponse
  22. HASH3 = HASH.DigestStrToHexStr(Utilisateur) 'HASH résultant du nom de l'utilisateur
  23. cheminFile = App.Path & "\hist.{BD84B380-8CA2-1069-AB1D-08000948F534}\" & HASH3 & ".hist" 'Chemin d'accer du fichier utilisateur a crée
  24. Chemin = App.Path & "\hist.{BD84B380-8CA2-1069-AB1D-08000948F534}" 'Chemin d'accer du dossier ou l'on place le fichier utilisateur a crée
  25. If Not objfso.FolderExists(Chemin) Then 'On verifie que le dossier existe, si il n'existe pas
  26. objfso.CreateFolder (Chemin) ' on le crée
  27. End If
  28. If Not (objfso.FileExists(cheminFile)) Then 'On verifie que le fichier utilisateur que l'on va crée n'existe pas deja, dans quel cas, la fonction renvéra le message "Pseudo déja utilisée"
  29. Open cheminFile For Binary As #File 'si le fichier n'existe pas, on le crée
  30. Put #File, 1, HASH2 'On ecrit : 32 premier octet > HASH question, reponse
  31. Put #File, 32 + 1, Questionmodule '256 octet suivant > question
  32. Put #File, 32 + 256 + 1, HASH1 '32 octet suivant > HASH utilisateur & pass
  33. Close #File
  34. EnregistreUtil = "Utilisateur enregistrer" 'Message que renvéra la fonction
  35. Else
  36. EnregistreUtil = "Le pseudo et deja utilisée"
  37. End If
  38. End Function
  39. 
  40. Public Function LectureUtil(Mode As Integer, Utilisateur As String, Optional pass As String, Optional reponse As String)
  41. '...........................................................................................
  42. '...........................................................................................
  43. ''LES ENTREES : ..
  44. ' Mode possible : - "1 + Utilisateur + pass" - pour vérification ..
  45. ' Mode possible : - "2 + Utilisateur" - pour demande de question secréte ..
  46. ' Mode possible : - "3 + Utilisateur + reponse" - pour vérification par réponse secréte ..
  47. ' ..
  48. ''LES SORTIES : ..
  49. 'Mode 1 : - "0 ACCEPTER" ..
  50. ' - "1 REFUSER, MOTS DE PASS INCORRECT" ..
  51. ' - "4 refuser, il n'existe aucun trace de cette utilisateur" ..
  52. ' ..
  53. 'Mode 2 : - "2 CONTENUE DE LA REPONSE SECRETE" ..
  54. ' - "4 refuser, il n'existe aucun trace de cette utilisateur" ..
  55. ' ..
  56. 'Mode 3 : - "0 ACCEPTER" ..
  57. ' - "3 REFUSER REPONSE INCORRECTE" ..
  58. '...........................................................................................
  59. '...........................................................................................
  60. 
  61. Set objfso = CreateObject("Scripting.FileSystemObject")
  62. Set HASH = New clsMD5
  63. File = FreeFile
  64. HASH3 = HASH.DigestStrToHexStr(Utilisateur)
  65. cheminFile = App.Path & "\hist.{BD84B380-8CA2-1069-AB1D-08000948F534}\" & HASH3 & ".hist"
  66. 
  67. If (objfso.FileExists(cheminFile)) Then
  68.  Open cheminFile For Binary As #File
  69. 
  70.  Select Case Mode
  71. 
  72.  Case 1:
  73.    Get #File, 32 + 256 + 1, buffer1
  74.    If buffer1 = HASH.DigestStrToHexStr(Utilisateur & pass) Then
  75.    LectureUtil = "0 Accepter"
  76.    Else
  77.    LectureUtil = "1 refuser, mots de pass incorrect"
  78.    End If
  79. 
  80.  Case 2:
  81.    Get #File, 32 + 1, buffer2
  82.  LectureUtil = "2 " & Trim(buffer2)
  83. 
  84.  Case 3:
  85.    Get #File, 1, buffer1
  86.    If HASH.DigestStrToHexStr(Utilisateur & reponse) = buffer1 Then
  87.    LectureUtil = "0 Accepter"
  88.    Else
  89.    LectureUtil = "3 refuser, réponse incorrecte"
  90.    End If
  91. 
  92.  End Select
  93. 
  94.  Close #File
  95. 
  96. Else
  97.  LectureUtil = "4 refuser, il n'existe aucun trace de cette utilisateur"
  98. End If
  99. 
 100. 
 101. 
 102. End Function
 103. 
 104. 
 105. Public Function ModifUtil(Mode As Byte, Utilisateur As String, pass As String, Optional Newpass As String, Optional question As String, Optional reponse As String)
 106. 
 107. '.............................
 108. '.............................
 109. 'LES ENTREES :
 110. ' mode possible : 1 - "Utilisateur + pass + NewPass" changement de mots de passe
 111. ' mode possible : 2 - "Utilisateur + pass + question + reponse" changement de question/réponse
 112. 
 113. 
 114. 'LES SORTIES:
 115. 'mode 1 : -"2 UTILISATEUR INEXISTANT"
 116. ' -"1 MOTS DE PASSE ERRONER"
 117. ' -"0 NOUVEAU MOTS DE PASSE ACTIF"
 118. 'mode 2 : -"2 UTILISATEUR INEXISTANT"
 119. ' -"1 MOTS DE PASSE ERRONER
 120. ' -"0 NOUVELLE QUESTION/REPONSE ACTIF"
 121. 
 122. Set objfso = CreateObject("Scripting.FileSystemObject")
 123. Set HASH = New clsMD5
 124. File = FreeFile
 125. HASH3 = HASH.DigestStrToHexStr(Utilisateur)
 126. cheminFile = App.Path & "\hist.{BD84B380-8CA2-1069-AB1D-08000948F534}\" & HASH3 & ".hist"
 127. HASH1 = HASH.DigestStrToHexStr(Utilisateur & pass)
 128. HASH2 = HASH.DigestStrToHexStr(Utilisateur & Newpass)
 129. 
 130. If (objfso.FileExists(cheminFile)) Then
 131. 
 132. Open cheminFile For Binary As #File
 133. 
 134. Get #File, 32 + 256 + 1, HASH4
 135. 
 136. Select Case Mode
 137. 
 138. Case 1:
 139. 
 140. If HASH4 = HASH1 Then
 141. Put #File, 32 + 256 + 1, HASH2
 142. ModifUtil = "0 Nouveau mots de passe actif"
 143. Else
 144. ModifUtil = "1 Mots de passe erroner"
 145. End If
 146. 
 147. Case 2:
 148. 
 149. HASH5 = HASH.DigestStrToHexStr(Utilisateur & reponse)
 150. 
 151. If HASH4 = HASH1 Then
 152. Questionmodule = question
 153. Put #File, 1, HASH5
 154. Put #File, 32 + 1, Questionmodule
 155. 
 156. ModifUtil = "0 Nouvelle question/reponse actif"
 157. Else
 158. ModifUtil = "1 Mots de passe erroner"
 159. End If
 160. 
 161. End Select
 162. 
 163. Else
 164. ModifUtil = "2 Utilisateur inexistant"
 165. End If
 166. 
 167. Close #File
 168. End Function