Firefox - Reinitialisation du fichier certificat SSL

Vous avez développé un logiciel en PureBasic et vous souhaitez le faire connaitre ?
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Firefox - Reinitialisation du fichier certificat SSL

Message par Ar-S »

Voilà un petit utilitaire qui vous permettra de supprimer le fichier contenant les certificats SSL.
Parfois ce dernier se corrompt ce qui empêche de naviguer vers les sites en question.
Le fichier se recréera de lui même au nouveau lancement de firefox.

Code : Tout sélectionner

; ---------------------------------
;
; RÉINITIALISATION DU FICHIER DE GESTION DES CERTIFICATS SSL DE FIREFOX
; Réinitialise le fichier cert9.db qui contient les options de certificat de sécurité et les certificats SSL que vous avez importé dans Firefox
; Ar-S // 2020 // PB5.71 x64
; 
; ---------------------------------

Global NewList dossier.s()
RootPath$ = GetHomeDirectory()+"AppData\Roaming\Mozilla\Firefox\Profiles\"

If ExamineDirectory(0, RootPath$, "*.*")  
  While NextDirectoryEntry(0)
    If DirectoryEntryType(0) = #PB_DirectoryEntry_Directory And DirectoryEntryName(0)<>"." And DirectoryEntryName(0)<>".."
      AddElement (dossier())
      dossier() = RootPath$+DirectoryEntryName(0)+"\"
    EndIf
  Wend
  FinishDirectory(0)
EndIf

If ListSize(Dossier()) > 1 
  ForEach dossier()
    If FindString(dossier(),"-release",0)
      DossierUser$ =  Dossier()
    EndIf  
  Next
Else
  DossierUser$ = Dossier()
EndIf


If OpenWindow(0, 0, 0, 220, 100, "Réinitialisation du fichier de Certification SSL pour Firefox", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
  TextGadget(0,2,1,215,25,"Réinitialisation du fichier de Certification SSL pour Firefox")
  ButtonGadget  (1, 10, 35, 200, 30, "Reinitialiser")
  StringGadget(2,1,70,217,20, "2020 - by Ar-S",#PB_String_ReadOnly|#ES_CENTER)
  
  Repeat
    Event = WaitWindowEvent()
    
    Select Event
        
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 1 
            
            If FileSize(DossierUser$+"cert9.db") <> -1
              TryToDelete = DeleteFile(DossierUser$+"cert9.db.old",#PB_FileSystem_Force)
              If TryToDelete = 0
                SetGadgetColor(2,#PB_Gadget_BackColor,#Red)
                MessageRequester("Info","Vous devez d'abord fermer l'instance de firefox. Quitter firefox puis recommencez l'opération.",#PB_MessageRequester_Ok)
                SetGadgetText(2,"Fermez firefox puis recommencez !")
              Else
                SetGadgetColor(2,#PB_Gadget_BackColor,#Green)
                MessageRequester("Succés","Le gestionnaire de certificats a été réinitialisé et se reconstruira au prochain lancement de firefox.",#PB_MessageRequester_Ok)
                SetGadgetText(2,"Le fichier a été supprimé")
              EndIf
            Else
              MessageRequester("Erreur","Le gestionnaire de certificats est introuvable dans :" + Chr(10)+ DossierUser$+Chr(10)+"Ce programme va se terminer",#PB_MessageRequester_Ok)
            EndIf     
        EndSelect
        
    EndSelect
  Until Event = #PB_Event_CloseWindow
EndIf

~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels