view release on metacpan or  search on metacpan

t/19.spake2plus-P256-SHA256-HKDF.t  view on Meta::CPAN

#!/usr/bin/perl
#spake2plus: https://www.potaroo.net/ietf/ids/draft-bar-cfrg-spake2plus-03.html
#SPAKE2+-P256-SHA256-HKDF draft-01
use strict;
use warnings;

#use bigint;
use Test::More;

#use Smart::Comments;

use lib '../lib';
use Crypto::Utils::SPAKE2Plus;
use Crypto::Utils::OpenSSL;

my $spake2plus = Crypto::Utils::SPAKE2Plus->new( curve_name => 'prime256v1' );
my $curve_hr   = $spake2plus->{curve_hr};
my $curve      = $spake2plus->{curve};
my $M          = $spake2plus->init_M_or_N('M');

#my $M = $spake2plus->encode_ec_point($M_Point);
my $N = $spake2plus->init_M_or_N('N');

#my $N = $spake2plus->encode_ec_point($N_Point);
my $P = $spake2plus->{P};

my $Context = 'SPAKE2+-P256-SHA256-HKDF draft-01';
### $Context
my $A = 'client';
### $A
my $B = 'server';
### $B

# A, B: w0, w1, L = w1*P
my $w0    = 'e6887cf9bdfb7579c69bf47928a84514b5e355ac034863f7ffaf4390e67d798c';
my $w0_bn = hex2bn($w0);
### $w0
my $w1    = '24b5ae4abda868ec9336ffc3b78ee31c5755bef1759227ef5372ca139b94e512';
my $w1_bn = hex2bn($w1);
### $w1

my $L_Point = $spake2plus->calc_L($w1_bn);
my $L       = point2hex( $spake2plus->{curve_name}, $L_Point, 4 );
### $L
is(
    $L,
'0495645CFB74DF6E58F9748BB83A86620BAB7C82E107F57D6870DA8CBCB2FF9F7063A14B6402C62F99AFCB9706A4D1A143273259FE76F1C605A3639745A92154B9',
    'L'
);

# A : X = x*P + w0*M
my $x    = '8b0f3f383905cf3a3bb955ef8fb62e24849dd349a05ca79aafb18041d30cbdb6';
my $x_bn = hex2bn($x);
my $X_Point = $spake2plus->A_calc_X( $w0_bn, $x_bn );
my $X       = point2hex( $spake2plus->{curve_name}, $X_Point, 4 );
### $X
is(
    $X,
'04AF09987A593D3BAC8694B123839422C3CC87E37D6B41C1D630F000DD64980E537AE704BCEDE04EA3BEC9B7475B32FA2CA3B684BE14D11645E38EA6609EB39E7E',
    'X'
);

# B : Y = y*P + w0*N
my $y = '2e0895b0e763d6d5a9564433e64ac3cac74ff897f6c3445247ba1bab40082a91';
### $y
my $y_bn    = hex2bn($y);
my $Y_Point = $spake2plus->B_calc_Y( $w0_bn, $y_bn );

#my $Y       = $spake2plus->encode_ec_point( $Y_Point );
my $Y = point2hex( $spake2plus->{curve_name}, $Y_Point, 4 );
#### $Y
is(
    $Y,
'04417592620AEBF9FD203616BBB9F121B730C258B286F890C5F19FEA833A9C900CBE9057BC549A3E19975BE9927F0E7614F08D1F0A108EEDE5FD7EB5624584A4F4',
    'Y'
);

# A: Z = h*x*(Y - w0*N), V = h*w1*(Y - w0*N)
my ( $A_Calc_Z_Point, $A_Calc_V_Point ) =
  $spake2plus->A_calc_ZV( $w0_bn, $w1_bn, $x_bn, $Y_Point );
my $A_Calc_Z = point2hex( $spake2plus->{curve_name}, $A_Calc_Z_Point, 4 );
my $A_Calc_V = point2hex( $spake2plus->{curve_name}, $A_Calc_V_Point, 4 );
is(
    $A_Calc_Z,
'0471A35282D2026F36BF3CEB38FCF87E3112A4452F46E9F7B47FD769CFB570145B62589C76B7AA1EB6080A832E5332C36898426912E29C40EF9E9C742EEE82BF30',
    'A, Z'
);
is(
    $A_Calc_V,
'046718981BF15BC4DB538FC1F1C1D058CB0EECECF1DBE1B1EA08A4E25275D382E82B348C8131D8ED669D169C2E03A858DB7CF6CA2853A4071251A39FBE8CFC39BC',
    'A, V'
);

# B: Z = h*y*(X - w0*M), V = h*y*L
my ( $B_Calc_Z_Point, $B_Calc_V_Point ) =
  $spake2plus->B_calc_ZV( $w0_bn, $L_Point, $y_bn, $X_Point );
my $B_Calc_Z = point2hex( $spake2plus->{curve_name}, $B_Calc_Z_Point, 4 );
my $B_Calc_V = point2hex( $spake2plus->{curve_name}, $B_Calc_V_Point, 4 );
is( $A_Calc_Z, $B_Calc_Z, 'B, Z' );
is( $A_Calc_V, $B_Calc_V, 'B, V' );

## A/B calc TT
my $TT = $spake2plus->generate_TT( $Context, $A, $B, $X_Point, $Y_Point,
    $A_Calc_Z_Point, $A_Calc_V_Point, $w0_bn );
### TT: unpack("H*", $TT)
is(
    unpack( 'H*', $TT ),