|
|
|
|
|
- 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
id est une chaîne = DonneGUID(guidFormaté)
id = "_" + Milieu(id, 2, Taille(id) - 2)
cMaSignature est un xmlSignature
cMaSignature.AlgorithmeNormalisation = atC14NExclu
cMaSignature.AlgorithmeSignature = asRSA_SHA_256
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
dhDateHeureCourante est une DateHeure
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 = ""
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|