Mercurial > hg > php_nacl

comparison tests/test.phpt @ 1:84e0f7ead583

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changed the order of function arguments to match those of the original code
author Ivo Smits <Ivo@UCIS.nl>
date Sun, 27 Feb 2011 23:56:54 +0100
parents 96c976fb3c3d
children 130a6a714966
comparison
equal deleted inserted replaced
0:96c976fb3c3d 1:84e0f7ead583
13 $n = str_repeat("\0", NACL_CRYPTO_BOX_curve25519xsalsa20poly1305_NONCEBYTES); 13 $n = str_repeat("\0", NACL_CRYPTO_BOX_curve25519xsalsa20poly1305_NONCEBYTES);
14 $sk = pack('H*' , 'b3d1187a0034cbf17c5deacfb457c57e83577df7fc7a3e14630bace4bb84f4fc'); 14 $sk = pack('H*' , 'b3d1187a0034cbf17c5deacfb457c57e83577df7fc7a3e14630bace4bb84f4fc');
15 $pk = nacl_crypto_box_curve25519xsalsa20poly1305_getpublickey($sk); 15 $pk = nacl_crypto_box_curve25519xsalsa20poly1305_getpublickey($sk);
16 echo strlen($pk).' - '.bin2hex($pk)."\n"; 16 echo strlen($pk).' - '.bin2hex($pk)."\n";
17 $pk = pack('H*', 'd394ec9fce78084c1fbc208e5a17bef3bdc4f38cc1ed9e54b9e68ecb56be1418'); 17 $pk = pack('H*', 'd394ec9fce78084c1fbc208e5a17bef3bdc4f38cc1ed9e54b9e68ecb56be1418');
18 $c = nacl_crypto_box_curve25519xsalsa20poly1305($m, $pk, $sk, $n); 18 $c = nacl_crypto_box_curve25519xsalsa20poly1305($m, $n, $pk, $sk);
19 echo strlen($c).' - '.bin2hex($c)."\n"; 19 echo strlen($c).' - '.bin2hex($c)."\n";
20 $m = nacl_crypto_box_curve25519xsalsa20poly1305_open($c, $pk, $sk, $n); 20 $m = nacl_crypto_box_curve25519xsalsa20poly1305_open($c, $n, $pk, $sk);
21 echo strlen($m).' - '.bin2hex($m)."\n"; 21 echo strlen($m).' - '.bin2hex($m)."\n";
22 $k = nacl_crypto_box_curve25519xsalsa20poly1305_beforenm($pk, $sk); 22 $k = nacl_crypto_box_curve25519xsalsa20poly1305_beforenm($pk, $sk);
23 echo strlen($k).' - '.bin2hex($k)."\n"; 23 echo strlen($k).' - '.bin2hex($k)."\n";
24 $c = nacl_crypto_box_curve25519xsalsa20poly1305_afternm($m, $k, $n); 24 $c = nacl_crypto_box_curve25519xsalsa20poly1305_afternm($m, $n, $k);
25 echo strlen($c).' - '.bin2hex($c)."\n"; 25 echo strlen($c).' - '.bin2hex($c)."\n";
26 $m = nacl_crypto_box_curve25519xsalsa20poly1305_open_afternm($c, $k, $n); 26 $m = nacl_crypto_box_curve25519xsalsa20poly1305_open_afternm($c, $n, $k);
27 echo strlen($m).' - '.bin2hex($m)."\n"; 27 echo strlen($m).' - '.bin2hex($m)."\n";
28 echo "ok\n"; 28 echo "ok\n";
29 ?> 29 ?>
30 --EXPECT-- 30 --EXPECT--
31 32 31 32