[EX] MakeCert, un programme de création de certificat

[perfaram]

Bonjour à tous.
Je vais vous présenter un de mes programmes pas finis, MakeCert (originalement DoCert, qui est une affreuse faute d'anglais). Petite capture : (en bas)
C'est vrai, ce n'est pas très joli.

Qu'est que c'est ?
<pub>
MakeCert est un merveilleux petit programme destiné à la création simple de certificat OpenSSL auto-signé, pour votre site par exemple.
</pub>

Comment ça marche ?
MakeCert récupère les infos entrées dans la GUI et les insères dans un "squelette" de fichier texte (extension créée pour l'occasion, .dcc). Vous devez cliquer sur le bouton "Générer" et choisir l'emplacement de sauvegarde. Après, il est sensé* lancer un batch qui créera le certificat lorsque vous appuyez sur le second bouton.

* : Ne marche pas, car pas fini.

Et maintenant, le script :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

#Region ### GUI Begin ### Début GUI
Opt("GUIOnEventMode", 1)
Global $MakeCert = GUICreate("MakeCertificates - OpenSSL", 520, 120, 242, 183)
GUISetOnEvent($GUI_EVENT_CLOSE, "DCClose")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "DCMinimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "DCMaximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "DCRestore")
GUICtrlCreateGroup("Informations", 152, 0, 361, 113)
GUICtrlCreateLabel("Émetteur", 160, 24, 46, 17)
GUICtrlCreateLabel("Délivré à", 160, 48, 46, 17)
GUICtrlCreateLabel("Adresse email", 160, 72, 69, 17)
Global $CN = GUICtrlCreateInput("", 216, 24, 281, 21, BitOR($ES_AUTOHSCROLL,$WS_GROUP))
Global $O = GUICtrlCreateInput("", 216, 48, 281, 21, BitOR($ES_AUTOHSCROLL,$WS_GROUP))
Global $EM = GUICtrlCreateInput("", 240, 72, 257, 21, BitOR($ES_AUTOHSCROLL,$WS_GROUP))
GUICtrlCreateButton("Créer DCC !", 8, 8, 131, 52, $BS_MULTILINE)
GUICtrlSetFont(-1, 11, 400, 0, "Tahoma")
GUICtrlSetBkColor(-1, 0x00FF00)
GUICtrlSetOnEvent(-1, "DCCClick")
GUICtrlCreateButton("Générer le certificat", 8, 64, 131, 52, $BS_MULTILINE)
GUICtrlSetFont(-1, 11, 400, 0, "Tahoma")
GUICtrlSetBkColor(-1, 0x00FF00)
GUICtrlSetOnEvent(-1, "GENClick")
GUISetState(@SW_SHOW)
#EndRegion ### GUI End ### Fin GUI


#Region ### GUI Funcs Begin ### Début Fonctions GUI
Func DCClose()
    Exit
EndFunc   ;==>FCClose

Func DCMaximize()

EndFunc   ;==>FCMaximize

Func DCMinimize()
    $MakeCertIsOpen = False
EndFunc   ;==>FCMinimize

Func DCRestore()
    $MakeCertIsOpen = True
EndFunc   ;==FCRestore
#EndRegion ### GUI Funcs End ### Fin Fonctions GUI


Func DCCClick()
    $content = ""
    $DCCLoc = FileSaveDialog("Enregistrer sous", @ScriptDir, "DCert Config(*.dcc)", 16, "config.dcc")

    $content &="[ req ]" & @CRLF
    $content &="distinguished_name = req_dn" & @CRLF
    $content &="prompt             = no" & @CRLF
    $content &="" & @CRLF
    $content &="[ req_dn ]" & @CRLF
    $content &="C                  = FR" & @CRLF
    $content &="O                  = "& Guictrlread($O) & @CRLF
    $content &="CN                 = "& Guictrlread($CN) & @CRLF
    $content &="emailAddress       = "& Guictrlread($EM) & @CRLF

    $dcc_file = FileOpen($DCCLoc, 2)
    FileWrite($dcc_file, $content)
    FileClose($dcc_file)
EndFunc

Func GENClick()
    Run (@ScriptDir & "\MakeCert.bat")
EndFunc

While 1
Sleep(100)
WEnd

Et voilà.
Si vous avez des suggestions, c'est ici !