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

VBA Discussion :

Caractères spéciaux UTF-8


Sujet :

VBA

  1. #1
    Candidat au Club
    Homme Profil pro
    Consultant MOA
    Inscrit en
    mars 2021
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Consultant MOA

    Informations forums :
    Inscription : mars 2021
    Messages : 5
    Points : 4
    Points
    4
    Par défaut Caractères spéciaux UTF-8
    Bonjour,

    Petit soucis sur le code VBA (code qui hache des données avec une clé secrète via l'algo HMAC SHA1) ci-dessous :

    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
    34
    35
    36
    37
    38
    39
    40
    Public Function HEX_HMACSHA1(ByVal sTextToHash As String, ByVal sSharedSecretKey As String)
        Dim asc As Object, enc As Object
        Dim TextToHash() As Byte
        Dim SharedSecretKey() As Byte
     
        Set asc = CreateObject("System.Text.UTF8Encoding")
        Set enc = CreateObject("System.Security.Cryptography.HMACSHA1")
     
     
        TextToHash = asc.Getbytes_4(sTextToHash)
        SharedSecretKey = asc.Getbytes_4(sSharedSecretKey)
        enc.Key = SharedSecretKey
     
        Dim Bytes() As Byte
        Bytes = enc.ComputeHash_2((TextToHash))
        HEX_HMACSHA1 = ConvToHexString(Bytes)
        Set asc = Nothing
        Set enc = Nothing
     
    End Function
     
     
    Private Function ConvToHexString(vIn As Variant) As Variant
        'Check that Net Framework 3.5 (includes .Net 2 and .Net 3 is installed in windows
        'and not just Net Advanced Services
     
        Dim oD As Object
     
        Set oD = CreateObject("MSXML2.DOMDocument")
     
          With oD
            .LoadXML "<root />"
            .DocumentElement.DataType = "bin.Hex"
            .DocumentElement.nodeTypedValue = vIn
          End With
        ConvToHexString = Replace(oD.DocumentElement.Text, vbLf, "")
     
        Set oD = Nothing
     
    End Function
    La variable "sSharedSecretKey" contient des caractères spéciaux, or les caractères spéciaux sont de la forme "«". Le résultat du code n'est pas celui attendu car la conversion en Byte n'est pas bonne.
    Je suppose que c'est à cause de l'encodage UTF8 mais je ne sais pas du tout comment changer ça.

    Pourriez vous m'aider ?

    Jérémy

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Developpeur VBA, C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    14 139
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 37
    Localisation : Canada

    Informations professionnelles :
    Activité : Developpeur VBA, C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 14 139
    Points : 32 249
    Points
    32 249
    Par défaut
    Bonjour,

    tu peux utiliser des pistes comme celle proposée ici
    https://www.developpez.net/forums/d1.../#post10755831
    Cycle de vie d'un bon programme :
    1/ ca fonctionne 2/ ca s'optimise 3/ ca se refactorise

    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016 et Access 2019

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

Discussions similaires

  1. caractère spéciaux utf
    Par frto0 dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 04/08/2011, 10h42
  2. caractères spéciaux et utf-8
    Par Marcelino dans le forum Balisage (X)HTML et validation W3C
    Réponses: 10
    Dernier message: 05/12/2008, 17h22
  3. utf-8 comparaison caractères spéciaux
    Par jboll dans le forum Langage
    Réponses: 3
    Dernier message: 04/11/2008, 21h44
  4. Réponses: 1
    Dernier message: 25/10/2007, 11h49

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