Início / coding / Perguntas / 79564834
Accepted
Sergiu Starciuc
Asked: 2025-04-10 00:15:02 +0800 CST

Como gerar HMAC no Haskell Crypton, como com o openssl HMAC?

  • 772

Usando cryptono pacote Haskell, estou tentando gerar a mesma saída, openssl dgstmas não consigo descobrir o que estou fazendo errado. Por favor, ajudem.

openssl dgst:

$ echo "TheMessage" | openssl dgst -sha256 -mac HMAC -macopt key:"TheKey"
SHA2-256(stdin)= 7b2e5669f4a5fa30a3fa0e9147f8975883cddff77725c99a6db07395b9665974

criptônio:

ghci> hmacGetDigest ( hmac ("TheKey" :: ByteString) ("TheMessage" :: ByteString) :: HMAC SHA256 )
39c17c48adbc2ea4d469af9ecb2569f921053843af2a0a7716b7a180b0cedff6

Obrigado.

haskell

1 respostas

  1. Best Answer

    Você se deparou com um problema comum ao testar código criptográfico na linha de comando. O echocomando adiciona uma quebra de linha à saída, então você precisa fazer um hash "TheMessage\n"no código Haskell ou usar echo -n "TheMessage"para suprimir a quebra de linha no seu opensslteste.

    Qualquer:

    $ echo -n "TheMessage" | openssl dgst -sha256 -mac HMAC -macopt key:"TheKey"
SHA2-256(stdin)= 39c17c48adbc2ea4d469af9ecb2569f921053843af2a0a7716b7a180b0cedff6

ghci> hmacGetDigest (hmac ("TheKey" :: ByteString) ("TheMessage" :: ByteString) :: HMAC SHA256)
39c17c48adbc2ea4d469af9ecb2569f921053843af2a0a7716b7a180b0cedff6

    ou:

    $ echo "TheMessage" | openssl dgst -sha256 -mac HMAC -macopt key:"TheKey"
SHA2-256(stdin)= 7b2e5669f4a5fa30a3fa0e9147f8975883cddff77725c99a6db07395b9665974

ghci> > hmacGetDigest (hmac ("TheKey" :: ByteString) ("TheMessage\n" :: ByteString) :: HMAC SHA256)
7b2e5669f4a5fa30a3fa0e9147f8975883cddff77725c99a6db07395b9665974
    • 2

relate perguntas