Discussion :

[xavier1936]

Bonjour,

J'ai une application qui doit se connecter à un serveur qui nécessite un certificat .p12.
Je ne sais pas comment faire pour installer ce certificat lorsque l'application est lancer. Je voudrais creer un bouton qui permettrais à l'utilisateur d'installer le certificat quans il veut.
Il faudrait aussi que l'application verifie au démarrage si le certificat est présent ou pas.

Je suis sous vb6.

Merci d'avance

[Delbeke]

Une piste, le sdk microsoft CAPICOM

[xavier1936]

Pourrais tu m'en dire un peu plus sur capicom ?

[Delbeke]

CapiCom est une interface gérant les certificats de microsoft
Tu peux charger le sdk ici
Je suis encore en train de l'etudier, il permet egalement de signer des données
mais utilisé comme tu l'entends, la je ne peux pas t'aider.

[xavier1936]

Je ne vois pas comment l'utiliser, quelles sont les fonctions de la librairie

[Delbeke]

Voici un exemple gérant les certificats que j'ai écrit
Il vaut ce qu'il vaut, mais j'en suis encore à l'etude de cette dll.

Exemple

[xavier1936]

Ok, je vais regarder cela

[xavier1936]

Comment lancer un fichier .p12 avec une application VB6 ?

[Delbeke]

c'est simple, on peut pas, pas plus que lancer un fichier image ou un fichier son. Vb est pas equipé pour. mais potentiellement , il p)eut le faire, faut juste coder.
Personellement he ne comprends ce qu'est censé faire un fichier pk12 lancé et ma boule de cristal est pasée dans la tondeuse à gazon ce weekend, (c'est pas vrai, juste mes lunettes en fait )

[xavier1936]

Lol

Je voudrais créer un bouton qui permet de lancer le fichier pk12, c'est pas possible de le faire ?

[Delbeke]

Désolé, je ne comprends pas ton expression lancer un fichier pk12
C'est sensé faire quoi ? Visualiser le certificat ?
Le fichier pk12, c'est un document ?

[xavier1936]

Cette commande est censé lancer l'assistant d'installation du fichier .p12 comme si on double cliqué dessus lorsqu'on utilise l'explorateur windows.

[Delbeke]

Alors il faut utiliser un shellExecute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
'partie déclaration de la form
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'dans ton programme
lRet = ShellExecute(Me.hWnd, "open", FileName, vbNullString, vbNullString, SW_SHOWNORMAL)

Mais ceci n'est pas spécifique au fichier pk12, cela s'applique a tout fichier connu de Windows.

[xavier1936]

Je te remercie, je vais essayer et je te dirais quoi

[Delbeke]

Apres un tour dans l'explorateur windows, j'ai vu que la commande exécutée par l'explorateur wndows pour installer un fichier p12 etait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rundll32.exe cryptext.dll,CryptExtAddPFX %1

Ce qui fait que sous vb ca donnerait

lRet = Shell "rundll32.exe cryptext.dll,CryptExtAddPFX " & filename,vbNorMalFocus

Pas besoin de shellExecute, le shell intégré devrait faire l'affaire.

[xavier1936]

Ca ne marche pas, il ne me lance rien du tout.
Le fichier .p12 est un fichier PFX

[xavier1936]

Il marche a moitié.

Quand le fichier .p12 est dans le dossier Mes Documents et que je tapes cette syntaxe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lret = Shell("rundll32.exe cryptext.dll,CryptExtAddPFX fichier.p12", vbNormalFocus)

Cela marche trés bien

Si je change de place le fichier ou je veux mettre le l'adresse où se trouve le fichier, cela ne marche pas.