IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

XSL/XSLT/XPATH XML Discussion :

XML - XSLT Décryptage


Sujet :

XSL/XSLT/XPATH XML

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    ERP + Oracle + VBA Excel
    Inscrit en
    Juin 2005
    Messages
    58
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations professionnelles :
    Activité : ERP + Oracle + VBA Excel
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Juin 2005
    Messages : 58
    Par défaut XML - XSLT Décryptage
    Bonjour,

    Dans mon projet, je génère via un classeur Excel et crypte un fichier XML pour l'expédition par email, le destinataire doit pouvoir ouvrir le XML dans un navigateur.

    J'aimerai savoir si le décryptage du fichier pouvait être fait par le biais d'un XSLT ?

    J'ai un XSLT qui existe déjà pour la présentation du fichier dans le navigateur, pour le cryptage j'ai utilisé les librairies de Chilkat software.

    J'ai péniblement réussi à faire ce script en vbscript qui effectue la transformation, mais je ne sais pas l'inclure dans mon XSLT avant affichage.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
     
     
    nom_Fic_entre = WScript.Arguments(0)
     
    Dim fso, outFile
     
    Set fso = CreateObject("Scripting.FileSystemObject")
     
    set xml = CreateObject("Chilkat.Xml")
     
     
    success = xml.LoadXmlFile(nom_Fic_entre)
     
     
    xml.DecryptContent "MotDePasse"
     
     
    success = xml.UnzipTree()
     
    If (success <> 1) Then
        outFile.WriteLine("Failed to unzip tree")
    End If
     
     
    /* récupération du nom exacte du fichier */
    Set xml2 = xml.GetChildWithTag("Identification") 
    Set xml3 = xml2.GetChildWithTag("Nom_document")
    Nom_Fic_sortie = xml3.Content 
     
     
    Set outFile2 = fso.CreateTextFile(Nom_Fic_sortie, True)
    outFile2.WriteLine(xml.GetXml())
    outFile2.close

    Merci d'avance de me donner des informations ou de m'indiquer si je ne prends pas la bonne direction.

  2. #2
    Membre Expert
    Avatar de polymorphisme
    Homme Profil pro
    Publishing
    Inscrit en
    Octobre 2009
    Messages
    1 460
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Publishing
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Octobre 2009
    Messages : 1 460
    Par défaut
    Bonjour,

    J'aimerai savoir si le décryptage du fichier pouvait être fait par le biais d'un XSLT ?
    Tout dépends du ton encryptage, mais cela risque d'être ardu

    J'ai péniblement réussi à faire ce script en vbscript qui effectue la transformation, mais je ne sais pas l'inclure dans mon XSLT avant affichage.
    A priori, tu ne peut pas inclure du vbscript dans du XSLT.

Discussions similaires

  1. [XML+XSLT+MSXML] Ecrire ses propres fonctions
    Par görgh dans le forum XSL/XSLT/XPATH
    Réponses: 6
    Dernier message: 19/05/2005, 13h04
  2. [XML-XSLT] Données dans un tableau
    Par Hoegaarden dans le forum XSL/XSLT/XPATH
    Réponses: 5
    Dernier message: 10/12/2004, 15h51
  3. optimisation de temps de traitement xml/xslt
    Par Erwy dans le forum XSL/XSLT/XPATH
    Réponses: 2
    Dernier message: 06/05/2004, 16h08
  4. Astuces XML/XSLT
    Par haypo dans le forum XSL/XSLT/XPATH
    Réponses: 2
    Dernier message: 25/06/2003, 08h42

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo