PureBasic

Code : Tout sélectionner

MessageRequester("Bienvenu", "Ce programme va te permaître de générer des mots de passes compatibles avec le fichier .htaccess. Clique sur OK pour continuer.", #mb_ok | #mb_iconasterisk)
user$ = InputRequester("Générateur de mot de passes", "Entre le login auquel sera associé le mot de passe:", "")
If user$ = ""
  MessageRequester("Information", "Aucun login entré. Fin d'exécution du programme.", #mb_ok | #mb_iconexclamation)
  End
EndIf
mdp$ = InputRequester("Générateur de mot de passes", "Entre le mot de passe pour le login " + user$ + ":", "")
If mdp$ = ""
  MessageRequester("Information", "Aucun mot de passe entré. Fin d'exécution du programme.", #mb_ok | #mb_iconexclamation)
  End
EndIf
key$ = InputRequester("Générateur de mot de passes", "Entre la clée de cryptage (2 caractères):", "")
If key$ = ""
  MessageRequester("Information", "Aucune clée de cryptage entrée. Fin d'exécution du programme.", #mb_ok | #mb_iconexclamation)
  End
ElseIf Len(key$) > 2 Or Len(key$) < 2
  MessageRequester("Information", "La clée " + key$ + " n'est pas valide car elle doit contenire 2 caractères. Fin d'exécution du programme.", #mb_ok | #mb_iconexclamation)
  End
EndIf
final$ = user$ + ":" + DESFingerprint(mdp$, key$)
MessageRequester("générateur de mot de passes", "Copies la ligne " + final$ + " dans ton fichier qui contient les mot de passes.", #mb_ok | #mb_iconasterisk)
reponse = MessageRequester("Générateur de mot de passes", "Veux-tu copier cette ligne dans ton Presse-Papier?", #mb_yesno | #mb_iconquestion)
If reponse = #idyes
  SetClipboardText(final$)
  MessageRequester("Information", "Le texte contenu dans ton presse-Papier est désormais " + GetClipboardText() + ". Tu peux le coller dans ton fichier de mot de passes.", #mb_ok | #mb_iconasterisk)
Else
  reponse2 = MessageRequester("Générateur de mot de passes", "Veux-tu ajouter cette ligne dans ton fichier de mot de passes? Note: ceci n'effacera rien dans ce fichier mais ajoutera seulemant à la fin de celui-ci la ligne " + final$ + ".", #mb_yesno | #mb_iconquestion)
  If reponse2 = #idyes
    fichier$ = OpenFileRequester("sélectionner le fichier de mot de passes", "", "Touts les fichiers(*.*)|*.*", 0)
    If fichier$
      If OpenFile(0, fichier$)
        FileSeek(Lof())
        WriteStringN("")
        WriteString(final$)
        FileSeek(Lof() - Len(final$))
        MessageRequester("Information", "La dernière ligne du fichier " + fichier$ + " est maintenant " + ReadString() + ".", #mb_ok | #mb_iconasterisk)
        CloseFile(0)
      Else
        MessageRequester("Erreure", "Impossible d'ouvrire " + fichier$ + ".", #mb_ok | #mb_iconstop)
        End
      EndIf
    Else
      MessageRequester("Erreure", "Aucun fichier sélectionné. Le programme va se fermer.", #mb_ok | #mb_iconstop)
      End
    EndIf
  EndIf
EndIf
MessageRequester("Générateur de mot de passe", "Merci d'avoir utilisé ce programme. Tout s'est terminé correctemant.", #mb_ok | #mb_iconasterisk)
End