Mercurial > hg > php_nacl
annotate tests/test.phpt @ 9:765303f4f2da
Attempt to fix randombytes.c for unpatched NaCl
| author | Ivo Smits <Ivo@UCIS.nl> |
|---|---|
| date | Thu, 14 Jul 2011 16:49:21 +0200 |
| parents | 84e0f7ead583 |
| children | 130a6a714966 |
| rev | line source |
|---|---|
| 0 | 1 --TEST-- |
| 2 Test the nacl cryptography functions | |
| 3 --FILE-- | |
| 4 <?php | |
| 5 echo NACL_CRYPTO_BOX_curve25519xsalsa20poly1305_PUBLICKEYBYTES."\n"; | |
| 6 echo NACL_CRYPTO_BOX_curve25519xsalsa20poly1305_SECRETKEYBYTES."\n"; | |
| 7 echo NACL_CRYPTO_BOX_curve25519xsalsa20poly1305_BEFORENMBYTES."\n"; | |
| 8 echo NACL_CRYPTO_BOX_curve25519xsalsa20poly1305_NONCEBYTES."\n"; | |
| 9 echo NACL_CRYPTO_BOX_curve25519xsalsa20poly1305_ZEROBYTES."\n"; | |
| 10 echo NACL_CRYPTO_BOX_curve25519xsalsa20poly1305_BOXZEROBYTES."\n"; | |
| 11 $m = 'HELLO WORLD'; | |
| 12 echo strlen($m).' - '.bin2hex($m)."\n"; | |
| 13 $n = str_repeat("\0", NACL_CRYPTO_BOX_curve25519xsalsa20poly1305_NONCEBYTES); | |
| 14 $sk = pack('H*' , 'b3d1187a0034cbf17c5deacfb457c57e83577df7fc7a3e14630bace4bb84f4fc'); | |
| 15 $pk = nacl_crypto_box_curve25519xsalsa20poly1305_getpublickey($sk); | |
| 16 echo strlen($pk).' - '.bin2hex($pk)."\n"; | |
| 17 $pk = pack('H*', 'd394ec9fce78084c1fbc208e5a17bef3bdc4f38cc1ed9e54b9e68ecb56be1418'); | |
|
1
84e0f7ead583
Changed the order of function arguments to match those of the original code
Ivo Smits <Ivo@UCIS.nl>
parents:
0
diff
changeset
|
18 $c = nacl_crypto_box_curve25519xsalsa20poly1305($m, $n, $pk, $sk); |
| 0 | 19 echo strlen($c).' - '.bin2hex($c)."\n"; |
|
1
84e0f7ead583
Changed the order of function arguments to match those of the original code
Ivo Smits <Ivo@UCIS.nl>
parents:
0
diff
changeset
|
20 $m = nacl_crypto_box_curve25519xsalsa20poly1305_open($c, $n, $pk, $sk); |
| 0 | 21 echo strlen($m).' - '.bin2hex($m)."\n"; |
| 22 $k = nacl_crypto_box_curve25519xsalsa20poly1305_beforenm($pk, $sk); | |
| 23 echo strlen($k).' - '.bin2hex($k)."\n"; | |
|
1
84e0f7ead583
Changed the order of function arguments to match those of the original code
Ivo Smits <Ivo@UCIS.nl>
parents:
0
diff
changeset
|
24 $c = nacl_crypto_box_curve25519xsalsa20poly1305_afternm($m, $n, $k); |
| 0 | 25 echo strlen($c).' - '.bin2hex($c)."\n"; |
|
1
84e0f7ead583
Changed the order of function arguments to match those of the original code
Ivo Smits <Ivo@UCIS.nl>
parents:
0
diff
changeset
|
26 $m = nacl_crypto_box_curve25519xsalsa20poly1305_open_afternm($c, $n, $k); |
| 0 | 27 echo strlen($m).' - '.bin2hex($m)."\n"; |
| 28 echo "ok\n"; | |
| 29 ?> | |
| 30 --EXPECT-- | |
| 31 32 | |
| 32 32 | |
| 33 32 | |
| 34 24 | |
| 35 32 | |
| 36 16 | |
| 37 11 - 48454c4c4f20574f524c44 | |
| 38 32 - 4867685134ac5017b584228fab5096983173b99aee10074706ce3c9f820b0a23 | |
| 39 27 - d7f25d6171ee1fac7242ed7c7546ddd56ee983ea24a6c7bf3bced8 | |
| 40 11 - 48454c4c4f20574f524c44 | |
| 41 32 - 76726914c6c1a5132931a2fc11179746c70982e948811ce93008b07f9a439001 | |
| 42 27 - d7f25d6171ee1fac7242ed7c7546ddd56ee983ea24a6c7bf3bced8 | |
| 43 11 - 48454c4c4f20574f524c44 | |
| 44 ok |