D 2018-07-18T19:09:18.743
L examples
P c47d12c906665293b708d59ea7653fb6de0c44b47f929c4b6ddb94cd60684444
U alex
W 2755
<h3>Examples</h3>

<hr>

<p>Public-key cryptography authenticated encryption using <b>nacl::box</b></p>

<verbatim>
package require nacl

nacl::box keypair pub1 sec1
nacl::box keypair pub2 sec2
set nonce [nacl::randombytes box -nonce]
set message {My Secret Message}

if {[nacl::box encrypted $message $nonce $pub2 $sec1] == 0} {
  if {[nacl::box open decrypted $encrypted $nonce $pub1 $sec2] == 0} {
    puts "message decrypted = '$decrypted'"
  }
}
</verbatim>

<hr>

<p>Public-key cryptography signatures using <b>nacl::sign</b></p>

<verbatim>
package require nacl

nacl::sign keypair pub sec
set message {My Message}

if {[nacl::sign encrypted $message $sec] == 0} {
  if {[nacl::sign verify decrypted $encrypted $pub] == 0} {
    puts "signed message decrypted = '$decrypted'"
  }
}
</verbatim>

<hr>

<p>Secret-key cryptography authenticated encryption using <b>nacl::secretbox</b></p>

<verbatim>
package require nacl

set key [nacl::randombytes secretbox -key]
set nonce [nacl::randombytes secretbox -nonce]
set message {My Secret Message}

if {[nacl::secretbox encrypted $message $nonce $key] == 0} {
  if {[nacl::secretbox open decrypted $encrypted $nonce $key] == 0} {
    puts "message decrypted = '$decrypted'"
  }
}
</verbatim>

<hr>

<p>Secret-key cryptography encryption using <b>nacl::stream</b></p>

<verbatim>
package require nacl

set key [nacl::randombytes stream -key]
set nonce [nacl::randombytes stream -nonce]
set message {My Secret Message}

if {[nacl::stream encrypted $message $nonce $key] == 0} {
  if {[nacl::stream decrypted $encrypted $nonce $key] == 0} {
    puts "message decrypted = '$decrypted'"
  }
}
</verbatim>

<hr>

<p>Secret-key cryptography authentication using <b>nacl::auth</b></p>

<verbatim>
package require nacl

set key [nacl::randombytes auth -key]
set message {My Message}

if {[nacl::auth -hmac512256 auth $message $key] == 0} {
  if {[nacl::auth verify -hmac512256 $auth $message $key] == 0} {
    puts {authentication OK}
  }
}
</verbatim>

<hr>

<p>Secret-key cryptography one-time authentication using <b>nacl::onetimeauth</b></p>

<verbatim>
package require nacl

set key [nacl::randombytes onetimeauth -key]
set message {My Message}

if {[nacl::onetimeauth auth $message $key] == 0} {
  if {[nacl::onetimeauth verify $auth $message $key] == 0} {
    puts {one-time authentication OK}
  }
}
</verbatim>

<hr>

<p>Hashing using <b>nacl::hash</b></p>

<verbatim>
package require nacl

if {[nacl::hash -sha256 hash {NaCl does SHA256}] == 0} {
}
</verbatim>

<p>or</p>

<verbatim>
package require nacl

if {[nacl::hash -sha512 hash {NaCl does SHA512}] == 0} {
}
</verbatim>

Z 6c60617d508645e7dfd154c93213053c