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 :

Hachage HMAC SHA1


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 Hachage HMAC SHA1
    Bonjour,

    Pour un projet entreprise, je dois, via un fichier Excel, hacher des données du type Text String avec une clé secrète Hex String via l'algorithme HMAC SHA1, auriez vous des idées pour le faire ?

    Merci d'avance,

    Jérémy

  2. #2
    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
    J'ai trouvé le code ci-dessous qui fonctionne bien mais la clé secrète n'est pas en hexadécimal.. or la mienne si.

    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
    Public Function HEX_HMACSHA1(ByVal sTextToHash As String, ByVal sSharedSecretKey As Variant)
        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
    Jeremy,

Discussions similaires

  1. Hachage en SHA1
    Par totot dans le forum Développement Web en Java
    Réponses: 6
    Dernier message: 22/07/2014, 11h37
  2. Hachage SHA1
    Par gasper06 dans le forum Langage
    Réponses: 7
    Dernier message: 01/03/2010, 20h20
  3. quid du hachage sha1
    Par Christophe Charron dans le forum Général JavaScript
    Réponses: 1
    Dernier message: 16/03/2007, 00h39
  4. [VB6]Hachage SHA1
    Par shaftJackson dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 02/01/2007, 12h31
  5. Algorithme hachage type Md5 ou sha1
    Par shaun_the_sheep dans le forum Sécurité
    Réponses: 5
    Dernier message: 22/09/2006, 17h47

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