opensslがsha256を生成します。

Question 1

my $DgstCmd = "echo \"$msg\" | openssl dgst -sha256 -hmac \"$key\"";

echoメッセージに改行文字を追加します。だからこれは"$msg\n"代わりにLinuxでダイジェストされます$msg。このダイジェスト値を得るためにWindowsで正確に何をするかはわかりませんが、確かに出力以上のものです$msg。

つまり、Perlやopensslには何の問題もありません。 Perlコードと他の入力をopensslに提供するだけです。

Answer

my $DgstCmd = "echo \"$msg\" | openssl dgst -sha256 -hmac \"$key\"";

echoメッセージに改行文字を追加します。だからこれは"$msg\n"代わりにLinuxでダイジェストされます$msg。このダイジェスト値を得るためにWindowsで正確に何をするかはわかりませんが、確かに出力以上のものです$msg。

つまり、Perlやopensslには何の問題もありません。 Perlコードと他の入力をopensslに提供するだけです。

Question 2

あなたは正しいです。ありがとう、スティーブン。

この問題はcrpyto apiが原因で発生します。時にはhmac-sha256を使用してメッセージに署名する必要があります。私の本当の問題は、私のコンピュータが実行されるシステム時間とプロバイダのコンピュータ時間です。

c バージョン Perl と openssl を使用してテストセットが完了した場合。動作するテストベッドに興味がある人は次のとおりです。

以前のチャットで見つかったc関数は実行可能ファイルとしてパッケージ化されています。

// using openssl; compile with [-Wall -g -O2] -lcrypto
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <openssl/evp.h>
#include <openssl/hmac.h>

#define VERBOSE 1
void usage (char*);
/*-----------------------------------------------------------------------------
 * mx_hmac_sha256 - wrapper to HMAC and EVP_sha256
 *-------------------------------------------------------------------------- */
unsigned char *mx_hmac_sha256 (const void *key, int keylen,
                              const unsigned char *data, int datalen,
                              unsigned char *result, unsigned int *resultlen) {
    return HMAC (EVP_sha256(), key, keylen, data, datalen, result, resultlen);
}

/*-----------------------------------------------------------------------------
 * main - begin coding
 *-------------------------------------------------------------------------- */
int main (int argc, char **argv) {
register char *p;
char flag = 0, *key = 0, *msg = 0, *buffer;
extern char *optarg;
extern int optind;
unsigned char *result = NULL;
unsigned int i, keylen, msglen, resultlen = (-1);
int c;

    while ((c = getopt(argc, argv, "?hvk:m:")) != -1) {
        switch (c) {
            case 'h':
            case '?':   usage (argv[0]);
                        return (0);
            case 'v':   flag |= VERBOSE;
                        break;
            case 'k':   key = optarg;
                        break;
            case 'm':   msg = optarg;
                        break;
            default:    printf ("unknown option <%c>\n", c);
                        usage (argv[0]);
                        return (-1);
        }
    }
    if ((argc - optind) > 0 ) {
        printf ("err: to many parameters, confused\n");
        usage (argv[0]);
        return (-2);
    }

    if (!key) {
        key = strdup ("security is awesome");
    }
    keylen = strlen(key);
    if (!msg) {
        msg = strdup ("this is highly sensitive user data");
    }
    msglen = strlen(msg);

    result = mx_hmac_sha256 ((const void *)key, keylen, (unsigned char *) msg, msglen, result, &resultlen);
    if (resultlen) {
        c = (2 * resultlen) + 1;
        buffer = malloc ((sizeof(char) *c));
        memset (buffer, 0, c);
        for (i = 0, p = buffer; i < resultlen; i++) {
          sprintf (p, "%02x", result[i]);
          p += 2;
        }
        if (flag & VERBOSE) {
            printf ("message: <%s>\nkey: <%s>\nsignature <%s>\n", key, msg, buffer);
        } else {
            printf ("%s",buffer);
        }
        return (0);
    } else {
        printf ("no signature\n");
    }
}

/*---------------------------------------------------------------------------
 * usage
 *-------------------------------------------------------------------------*/
void usage (char *pgm) {
    printf ("usage: %s [-h?v] [-k key] [-m message]\n\
      h|? = this helptext\n\
      k   = key\n\
      m   = message\n\
      v   = verbose\n\n",pgm);
    return;
}

ドライバPerlスクリプト：

use strict;
use warnings;
use Digest::SHA qw(sha256 hmac_sha256_hex hmac_sha256_base64);
use Digest::HMAC qw(hmac_hex);

my $msg = 'Value-corresponding_to_openssls_EVP_MD structure';
my $key = 'fq6if8aaxLTw0EHRAEkyvCbfa5O9BclbCCB6mtVsWO14KtyIdzIakzzlFGttMaw0';
my ($p1Sig, $p2Sig, $p3Sig, $odSig, $funcSig, $omSig);
#unix my $DgstCmd = "echo -n \"$msg\" | openssl dgst -sha256 -hmac \"$key\"";
my $DgstCmd = "echo|set /p=\"$msg\" | openssl dgst -sha256 -hmac \"$key\"";
#documented openssl-mac is not not existent anymore
#my $MacCmd = "echo -n \"$msg\" | openssl-mac -macopt digest:SHA256 \"$key\"";
my $FuncCmd = "HmacSha256Tst -k \"$key\" -m \"$msg\"";

$p1Sig = hmac_sha256_hex($msg, $key);
$p2Sig = hmac_hex($msg, $key, \&sha256);
$p3Sig = hmac_sha256_base64($msg, $key);

$odSig = `$DgstCmd`;
$odSig =~ /= (\w*)/;

$funcSig = `$FuncCmd`;
print "message\t<$msg>\nkey\t<$key>\nsignatures:\n  openssl  = <$1>\n  c-func   = <$funcSig>\n  perlSHA  = <$p1Sig>\n  perlHMAC = <$p2Sig>\n  perlSHAbase = <$p3Sig>\n";

system ("openssl version");

示す:

message <Value-corresponding_to_openssls_EVP_MD structure>
key     <fq6if8aaxLTw0EHRAEkyvCbfa5O9BclbCCB6mtVsWO14KtyIdzIakzzlFGttMaw0>
signatures:
  openssl  = <2782c620c8c799d2c6b77d306cfca9be7dd2820effe66483d6b97dab7ada31f5>
  c-func   = <2782c620c8c799d2c6b77d306cfca9be7dd2820effe66483d6b97dab7ada31f5>
  perlSHA  = <2782c620c8c799d2c6b77d306cfca9be7dd2820effe66483d6b97dab7ada31f5>
  perlHMAC = <2782c620c8c799d2c6b77d306cfca9be7dd2820effe66483d6b97dab7ada31f5>
  perlSHAbase = <J4LGIMjHmdLGt30wbPypvn3Sgg7/5mSD1rl9q3raMfU>
OpenSSL 1.1.1g  21 Apr 2020

楽しく過ごしてください

Answer