|
|
|
|
|
|
|
|
- Exemple d'utilisation de la fonction SOAPAjouteAssertionSAML
SOAPAjouteAssertionSAML (Exemple)
Exemple d'utilisation de la fonction SOAPAjouteAssertionSAML Cet exemple permet de créer une signature XML et d'ajouter une assertion SAML à une requête d'un Webservice.
MaRequête est un wsRequête
MaSecu est un Security
// Construit un identifiant
id est une chaîne = DonneGUID(guidFormaté)
id = "_" + Milieu(id, 2, Taille(id) - 2)
// Initialise la signature
cMaSignature est une xmlSignature
cMaSignature.AlgorithmeNormalisation = atC14NExclu
cMaSignature.AlgorithmeSignature = asRSA_SHA_256
// Fichier de clé OU certificat
// récupéré par les fonctions certificats
cMaSignature.Clé = fRepExe + fSep + "macle.p12"
cMaSignature.MotDePasseClé = "password"
cMaSignature.TypeFichierClé = tfcPKCS12
cMaSignature.Référence[1].AlgorithmeHash = HA_SHA_256
cMaSignature.Référence[1].URI = "#" + id
cMaSignature.Référence[1].Transformation[1] = atEnveloppée
cMaSignature.Référence[1].Transformation[2] = atC14NExclu
x509 est un xmlSignatureInformationCléX509
x509.AvecCertificat = Vrai
cMaSignature.InformationClé[1] = x509
// Fin initialisation de la signature
dhDateHeureCourante est un DateHeure
// Ajoute l'assertion SAML
nIndAssertion est un entier
nIndAssertion = SOAPAjouteAssertionSAML(MaRequête, ...
MaSecu.Assertion, cMaSignature)
MaSecu.Assertion[nIndAssertion].Issuer = "Test"
MaSecu.Assertion[nIndAssertion].Issuer:Format = ...
"urn:oasis:names:tc:SAML:1.1:nameid-format:X509SubjectName"
MaSecu.Assertion[nIndAssertion].Subject.NameID = "01254155"
MaSecu.Assertion[nIndAssertion].Subject.NameID:NameQualifier = "Test"
MaSecu.Assertion[nIndAssertion].AttributeStatement.Attribute:Name = "ID"
MaSecu.Assertion[nIndAssertion].AttributeStatement.Attribute.AttributeValue = ""
Documentation également disponible pour…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|