Artifact
0174e269dbaf5cae04e346d153fb7d12a96a606c6d9ba701ecf4447dcd2fa1bb:
Wiki page
[examples] by
alex
2018-07-18 19:09:18.
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