use v6;
use NativeCall;
use Crypt::TweetNacl::Constants;

unit module Crypt::TweetNacl::Sign;



head

Crypt::TweetNacl::Sign - public key crypto library for signing


In case problems arise this is reported by an exception.


Various other(not documented) classes and methods might be exported
by the library. Please ignore them.


- https://nacl.cr.yp.to/sign.html
- https://tweetnacl.cr.yp.to/tweetnacl-20131229.pdf





DOC INIT {
        use Pod::To::Text;
        pod2text($





#     unsigned char pk[crypto_sign_PUBLICKEYBYTES];
#     unsigned char sk[crypto_sign_SECRETKEYBYTES];

#     crypto_sign_keypair(pk,sk);

sub crypto_sign_keypair_int(CArray[uint8], CArray[uint8]) is symbol('crypto_sign_keypair') is native(TWEETNACL) returns int { * }

class KeyPair is export
{
    has $.secret;
    has $.public;
    submethod BUILD()
    {
        $!secret := CArray[uint8].new;
        $!public := CArray[uint8].new;
        $!secret[CRYPTO_SIGN_SECRETKEYBYTES - 1] = 0; # extend the array to 32 items
        $!public[CRYPTO_SIGN_PUBLICKEYBYTES - 1] = 0; # extend the array to 32 items
        my $ret = crypto_sign_keypair_int($!public,$!secret);
        if ($ret != 0) {
            die "crypto_box_keypair_int, bad return code: $ret";
        }
    }
}




# C NaCl also provides a crypto_sign function callable as follows:

#      #include "crypto_sign.h"

#      const unsigned char sk[crypto_sign_SECRETKEYBYTES];
#      const unsigned char m[...]; unsigned long long mlen;
#      unsigned char sm[...]; unsigned long long smlen;

#      crypto_sign(sm,&smlen,m,mlen,sk);

# The crypto_sign function signs a message m[0], ..., m[mlen-1] using
# the signer's secret key sk[0], sk[1], ...,
# sk[crypto_sign_SECRETKEYBYTES-1], puts the length of the signed
# message into smlen and puts the signed message into sm[0], sm[1],
# ..., sm[smlen-1]. It then returns 0.
# The maximum possible length smlen is mlen+crypto_sign_BYTES. The
# caller must allocate at least mlen+crypto_sign_BYTES bytes for sm.

#my $len = CArray[ulonglong].new; $len[0] = 0;
sub crypto_sign_int(CArray[uint8], CArray[ulonglong], CArray[uint8], ulonglong, CArray[uint8]) is symbol('crypto_sign') is native(TWEETNACL) returns int { * }
sub crypto_sign_open_int(CArray[uint8], CArray[ulonglong], CArray[uint8], ulonglong, CArray[uint8]) is symbol('crypto_sign_open') is native(TWEETNACL) returns int { * }


class CryptoSign is export
{
    has $.signature;
    submethod BUILD(Blob :$buf!, CArray[uint8] :$sk!)
    {
        my $mlen = $buf.elems;
        $!signature = CArray[uint8].new;
        my $msg = CArray[uint8].new;
        my $tmp = CArray[uint8].new;
        $tmp[CRYPTO_SIGN_BYTES + $mlen - 1] = 0;
        my $i;
        loop ($i=0; $i < $buf.elems; ++$i)
        {
            $msg[$i] = $buf[$i];
        }
        my $slen = CArray[ulonglong].new;
        $slen[0] = 0; # alloc
        my $ret = crypto_sign_int($tmp, $slen, $msg, $mlen, $sk);
        if ($ret != 0) {
            die "crypto_sign_int, bad return code: $ret";
        }
        $!signature[$slen[0] - 1] = 0;
        loop ($i=0; $i < $slen[0]; ++$i)
        {
             $!signature[$i] = $tmp[$i];
        }
    }
}


#  C NaCl also provides a crypto_sign_open function callable as follows:

#      #include "crypto_sign.h"

#      const unsigned char pk[crypto_sign_PUBLICKEYBYTES];
#      const unsigned char sm[...]; unsigned long long smlen;
#      unsigned char m[...]; unsigned long long mlen;

#      crypto_sign_open(m,&mlen,sm,smlen,pk);

# The crypto_sign_open function verifies the signature in sm[0], ...,
# sm[smlen-1] using the signer's public key pk[0], pk[1], ...,
# pk[crypto_sign_PUBLICKEYBYTES-1]. The crypto_sign_open function puts
# the length of the message into mlen and puts the message into m[0],
# m[1], ..., m[mlen-1]. It then returns 0.

# The maximum possible length mlen is smlen. The caller must allocate
# at least smlen bytes for m.

# If the signature fails verification, crypto_sign_open instead
# returns -1, possibly after modifying m[0], m[1], etc.


class CryptoSignOpen is export
{
    has $.message;
    submethod BUILD(CArray[uint8] :$buf!, CArray[uint8] :$pk!)
    {
        my $smlen = $buf.elems;
        my $imessage := Buf.new;
        my $tmp = CArray[uint8].new;
        $tmp[$smlen - 1] = 0;
        my $i;
        my $mlen = CArray[ulonglong].new;
        $mlen[0] = 0; # alloc
        my $ret = crypto_sign_open_int($tmp, $mlen, $buf, $smlen, $pk);
        if ($ret != 0) {
            die "crypto_sign_int, bad return code: $ret";
        }
        my $xlen = $mlen[0];
        $imessage[$xlen - 1] = 0;
        loop ($i=0; $i < $xlen; ++$i)
        {
             $imessage[$i] = $tmp[$i];
        }
        $!message = $imessage;
    }
}


root

README

SecretKey

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


Sign

NAME

SYNOPSIS

DESCRIPTION

OPTIONS

RETURN VALUE

ERRORS

DIAGNOSTICS

EXAMPLES

ENVIRONMENT

FILES

CAVEATS

BUGS

RESTRICTIONS

NOTES

SEE ALSO

AUTHOR

HISTORY