NAME

Crypt::Protocol::SPEKE

PROTOCOL

https://arxiv.org/pdf/1802.04900

EXAMPLE

use Crypt::OpenSSL::EC;
use Crypt::OpenSSL::BaseFunc;
use Crypt::Protocol::SPEKE;

# a, b with same info
my $PRS = 'Password';

my $DSI = 'SPEKEP256_XMD:SHA-256_SSWU_NU_';
my $group_name = 'prime256v1';
my $type = 'sswu';
my $hash_name = 'SHA256';

# a, b calculate_generator G
my ($G, $params_ref) = encode_to_curve( $PRS, $DSI, $group_name, $type, $hash_name, \&expand_message_xmd, 1);
my ($group, $ctx) = @{$params_ref}{qw/group ctx/};
my $G_hex = Crypt::OpenSSL::EC::EC_POINT::point2hex($group, $G, 4, $ctx);
print "G=", $G_hex, "\n\n";

# a send MSGa
my $IDa  = "IDa";
my ($MSGa, $X, $x) = prepare_send_msg($group, $G, 4, $ctx, $IDa);
print "x=", $x->to_hex(), "\n";
print "X=", Crypt::OpenSSL::EC::EC_POINT::point2hex($group, $X, 4, $ctx), "\n";
print "MSGa: ", unpack( "H*", $MSGa ), "\n\n";

# b send Msgb
my $IDb  = "IDb";
my ($MSGb, $Y, $y) = prepare_send_msg($group, $G,  4, $ctx, $IDb);
print "y=", $y->to_hex(), "\n";
print "Y=", Crypt::OpenSSL::EC::EC_POINT::point2hex($group, $Y, 4, $ctx), "\n";
print "MSGb: ", unpack( "H*", $MSGb ), "\n\n";

# a recv Msgb, calc K
my $Ka = calc_K($group, $x, $MSGa, $MSGb, 'SHA256', $ctx);
print "a calc K: ", unpack("H*", $Ka), "\n";

# b recv Msga, calc K
my $Kb = calc_K( $group, $y, $MSGb, $MSGa, 'SHA256', $ctx);
print "b calc K: ", unpack("H*", $Kb), "\n";

FUNCTION

prepare_send_msg

my ($msg, $point, $rnd) = prepare_send_msg( $group, $G, $point_hex_type, $ctx, $ID );

calc_K

my $K = calc_K( $group, $rnd, $msg_send, $msg_recv, $hash_name, $ctx );