view release on metacpan or  search on metacpan

t/compat_pqclean.t  view on Meta::CPAN

# Test vector from qbitcoin-perl test suite (generated with Crypt::PQClean::Sign)
my $sign_data = "\x55\xaa" x 700;

# The signature hex includes a 1-byte algo prefix (0x81 = CRYPT_ALGO_FALCON = 129)
# followed by the raw Falcon-512 signature of hash256(sign_data)
my $sign_hex = "813961c32c0fcc6132c89b74f34894091d4d598c53d284597e7fcf2bace22a41460fb99436f82c151b73836a237a164acde34ff0080eee10be36bcc8545168c22d99deca8d0e25c8e7732f51c419679e05c19670c8497a9760670e3b07f88ad2f850abe77243c0d495f5bf9265a5d887af8da87057...

# The private key from the test contains both private (1281 bytes) and public (897 bytes) key
# We only need the public key (last 897 bytes) for verification
my $private_key_wif = "2Ha9HXWeaemt4enETPZ8WJnH8GqJg1DvbUdoj6g8mLrKZu6aF94UT93nr3VrcaVSyUcFagmrg6SPPGazuPJPKyw4SoFxEjQxMJKzSi3Pawb8NC2cW69eBzaxMU1H7qrKPkGJ7Nmkb4hbxgLdGGHVhyHgshq4nrvAy8v8C5JvYmoSC9bN6cSL7DAk3gxLYyJWtcN5M6U7JpnFTFuW7PSNMD3hzJQomGgaxwL...

# Decode the WIF-encoded private key (base58check)
use Math::BigInt;

my @B58_CHARS = split //, '123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz';
my %b58_val;
$b58_val{$B58_CHARS[$_]} = $_ for 0..$#B58_CHARS;

sub decode_base58 {
    my ($str) = @_;

t/compat_pqclean.t  view on Meta::CPAN

    my $bytes = pack("H*", $hex);
    # Count leading '1's for leading zero bytes
    for my $c (split //, $str) {
        last if $c ne '1';
        $bytes = "\x00" . $bytes;
    }
    return $bytes;
}

# Decode private key from WIF format
my $raw = decode_base58($private_key_wif);
# WIF format: version_byte(1) + payload + checksum(4)
# Strip version byte and checksum
my $pk_data = substr($raw, 1, length($raw) - 5);

# pk_data should be 2178 bytes (1281 private + 897 public)
is(length($pk_data), 2178, "Decoded private key is 2178 bytes (1281 + 897)");

my $pubkey = substr($pk_data, 1281, 897);
is(length($pubkey), 897, "Public key is 897 bytes");