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

VBScript Discussion :

[VBS] Problème d'encodage POST


Sujet :

VBScript

  1. #1
    Membre confirmé
    Inscrit en
    Août 2010
    Messages
    156
    Détails du profil
    Informations forums :
    Inscription : Août 2010
    Messages : 156
    Par défaut [VBS] Problème d'encodage POST
    Bonjour,
    J'ai crée un script qui envoie des fichiers encodé en base64 de PC vers un serveur en ligne via HTTP, mais quand je décode le Ficheir reçus en PHP (Base64_decode) , le fichier est corrempu !!

    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
    Function upload(f,n)
     
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Type = 1
    objStream.Open()
    objStream.LoadFromFile(f)
     
    Set objXML = CreateObject("MSXml2.DOMDocument")
    Set objDocElem = objXML.createElement("Base64Data")
    objDocElem.dataType = "bin.base64"
    objDocElem.nodeTypedValue = objStream.Read()
    '--------------------Send file ------------------------------------------
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    xmlHttp.open "POST", URL, false
    xmlhttp.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 5.1; rv:9.0.1) Gecko/20100101 Firefox/9.0.1"
    xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    xmlhttp.send "name="+ n + "&" + "data=" + objDocElem.text
     
    Set objXML = Nothing
    Set objDocElem = Nothing
    Set objStream = Nothing
    End Function
    Je suis sûre que l'erreur viens de cette ligne:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    J'ai utilisé POST vue que GET est limité en lenght !

    Au niveau de PHP j'ai utilisé ce code:
    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
    <?php
     
    if (isset($_POST['name']) && isset($_POST['data']))
    {
     
    $today = date("m.d.y.H.i.s");
    $data = $_POST['data'];
     
     $w_file=@fopen("./doc/".$_POST['name'].".".$today.".txt","w");
     if($w_file) {
    	@fputs($w_file,urldecode(base64_decode($data)));
    	@fclose($w_file);
     }
    }
     
    ?>
    NB: la fonction BASE64 de VBS marche nickel vue que je l'est testé apart, suivis de décodage par de PHP en local ...

    Merci de m'aider.

  2. #2
    Membre Expert Avatar de tsuji
    Inscrit en
    Octobre 2011
    Messages
    1 558
    Détails du profil
    Informations forums :
    Inscription : Octobre 2011
    Messages : 1 558
    Par défaut
    ... mais quand je décode le Ficheir reçus en PHP (Base64_decode) , le fichier est corrempu !!
    Base64 contient, en général, certains caractères qui ne sont pas uri secure que on doit faire encodage pour les transmettre via http. Ils sont les caractères +, / et =.

    Voici ce qu'il faut faire comme vbs n'a pas la fonction comme il y en a dans jscript: encodeURIComponent.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    'xmlhttp.send "name="+ n + "&" + "data=" + objDocElem.text
    'dim sdata
    sdata=objDocElem.text
    sdata=replace(sdata,"+","%2b")
    sdata=replace(sdata,"/","%2f")
    sdata=replace(sdata,"=","%3d")
    xmlhttp.send "name="+ n + "&" + "data=" + sdata

  3. #3
    Membre confirmé
    Inscrit en
    Août 2010
    Messages
    156
    Détails du profil
    Informations forums :
    Inscription : Août 2010
    Messages : 156
    Par défaut
    Merci beaucoup pour la réponse, mais j'ai remarqué que le + est changé en ESPACE :S

    Malgré le fait qu'il y a urldecode

    Une solution ?

  4. #4
    Membre Expert Avatar de tsuji
    Inscrit en
    Octobre 2011
    Messages
    1 558
    Détails du profil
    Informations forums :
    Inscription : Octobre 2011
    Messages : 1 558
    Par défaut
    ...mais j'ai remarqué que le + est changé en ESPACE :S
    Je n'ai pas compris... il n'y contient aucunement l'espace dans base64, ce n'est pas possible.
    Ou bien vous voulez dire sans encodage que j'ai mis; alors c'est normal, et c'est pour ça qu'il faut faire l'encodage que j'ai posté.

  5. #5
    Membre confirmé
    Inscrit en
    Août 2010
    Messages
    156
    Détails du profil
    Informations forums :
    Inscription : Août 2010
    Messages : 156
    Par défaut
    voila, j'ai fait une comparaison des deux fichiers (celui que j'ai encoder en base64 sur mon pc, et celui qui est uploadé par le fichier VBS)
    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
     
    ***** 1.txt
    bv45cz5nDTCNcZhSz0/eQPdQtV0I25Ns4xD4aR730LKzL06WW2vQIGT7uvIWIOxDu4SGoLyt
    xw62fT7wIjZV5bfx/21zKv4MPW9+8c7x8Wy6WLw5zxuc0GTTCS8ALzzolepw4kqH0OMG7vrg
    o8EepKozLSfl0aGnNo3CrfzE/NN3Vfbes3ObcAtWr8VjY0+Hd3iLp8dF2rlyDr6UxbrpIrRs
    oVN9PpZnrfBtswmzJjT44TKyYYCWP/x/tSzc/oPIzMLzMxmGXwW2rBm9b381lFuTPZ0eY42s
    mdpoY/SufXyMR8jRk0MGYJGrzmSXdhLtqx+lu42MoQesIwKnqZdGMoRzzbKRLHB83haeoUv/
    5GDxU/L+fwAAAP//AwBQSwECLQAUAAYACAAAACEA3fyVN2YBAAAgBQAAEwAAAAAAAAAAAAAA
    AAAAAAAAW0NvbnRlbnRfVHlwZXNdLnhtbFBLAQItABQABgAIAAAAIQAekRq38wAAAE4CAAAL
    AAAAAAAAAAAAAAAAAJ8DAABfcmVscy8ucmVsc1BLAQItABQABgAIAAAAIQDWZLNR+gAAADED
    AAAcAAAAAAAAAAAAAAAAAMMGAAB3b3JkL19yZWxzL2RvY3VtZW50LnhtbC5yZWxzUEsBAi0A
    ***** 2.TXT
    bv45cz5nDTCNcZhSz0/eQPdQtV0I25Ns4xD4aR730LKzL06WW2vQIGT7uvIWIOxDu4SGoLyt
    xw62fT7wIjZV5bfx/21zKv4MPW9 8c7x8Wy6WLw5zxuc0GTTCS8ALzzolepw4kqH0OMG7vrg
    o8EepKozLSfl0aGnNo3CrfzE/NN3Vfbes3ObcAtWr8VjY0 Hd3iLp8dF2rlyDr6UxbrpIrRs
    oVN9PpZnrfBtswmzJjT44TKyYYCWP/x/tSzc/oPIzMLzMxmGXwW2rBm9b381lFuTPZ0eY42s
    mdpoY/SufXyMR8jRk0MGYJGrzmSXdhLtqx lu42MoQesIwKnqZdGMoRzzbKRLHB83haeoUv/
    5GDxU/L fwAAAP//AwBQSwECLQAUAAYACAAAACEA3fyVN2YBAAAgBQAAEwAAAAAAAAAAAAAA
    AAAAAAAAW0NvbnRlbnRfVHlwZXNdLnhtbFBLAQItABQABgAIAAAAIQAekRq38wAAAE4CAAAL
    AAAAAAAAAAAAAAAAAJ8DAABfcmVscy8ucmVsc1BLAQItABQABgAIAAAAIQDWZLNR gAAADED
    AAAcAAAAAAAAAAAAAAAAAMMGAAB3b3JkL19yZWxzL2RvY3VtZW50LnhtbC5yZWxzUEsBAi0A
    *****
    Ce qui donne que la deffirence c'est l'espace et le +

  6. #6
    Membre Expert Avatar de tsuji
    Inscrit en
    Octobre 2011
    Messages
    1 558
    Détails du profil
    Informations forums :
    Inscription : Octobre 2011
    Messages : 1 558
    Par défaut
    Réferez la deuxième phrase dans ma réponse desus.

  7. #7
    Membre confirmé
    Inscrit en
    Août 2010
    Messages
    156
    Détails du profil
    Informations forums :
    Inscription : Août 2010
    Messages : 156
    Par défaut
    Oui je l'es fait;
    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
    '---------------------UPLOAD -------------------------------------------- 
    Function upload(f,n)
     
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Type = 1
    objStream.Open()
    objStream.LoadFromFile(f)
     
    Set objXML = CreateObject("MSXml2.DOMDocument")
    Set objDocElem = objXML.createElement("Base64Data")
    objDocElem.dataType = "bin.base64"
    objDocElem.nodeTypedValue = objStream.Read()
    '--------------------Send file ------------------------------------------
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    xmlHttp.open "POST", URL, false
    xmlhttp.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 5.1; rv:9.0.1) Gecko/20100101 Firefox/9.0.1"
    xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    'xmlhttp.send "name="+ n + "&" + "data=" + objDocElem.text
    dim sdata
    sdata=objDocElem.text
    sdata=replace(sdata,"+","%2b")
    sdata=replace(sdata,"/","%2f")
    sdata=replace(sdata,"=","%3d")
    xmlhttp.send "name=" + NomMachine + "-" + n + "&" + "data=" + sdata

  8. #8
    Membre Expert Avatar de tsuji
    Inscrit en
    Octobre 2011
    Messages
    1 558
    Détails du profil
    Informations forums :
    Inscription : Octobre 2011
    Messages : 1 558
    Par défaut
    @fputs($w_file,urldecode(base64_decode($data)));
    Je me demande quoi qu'il signifie?! J'espère vous faites la même. C'est plutôt l'inverse dans l'ordre des fonctions de décodage?

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Problème d'encodage avec jquery post et serialize (IE8)
    Par Aerofly dans le forum ASP.NET MVC
    Réponses: 1
    Dernier message: 05/11/2012, 16h07
  2. Problème d'encodage du point dans une requête POST
    Par ultraboa dans le forum ActionScript 3
    Réponses: 3
    Dernier message: 07/02/2009, 21h58
  3. Problème d'encodage en Unicode
    Par Skreo dans le forum Entrée/Sortie
    Réponses: 5
    Dernier message: 28/12/2005, 10h43
  4. Problème d'encodage sur MySql 4.1
    Par Blanchet dans le forum Outils
    Réponses: 1
    Dernier message: 04/12/2005, 04h53
  5. [XML::PARSER] Problème d'encodage
    Par frangin2003 dans le forum Modules
    Réponses: 13
    Dernier message: 05/09/2005, 14h59

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