Serpent seems to work. Byte order is very strange.

[chiark-tcl.git] / base / tables-examples.tct

diff --git a/base/tables-examples.tct b/base/tables-examples.tct
index 13a3e5d68a05ab9629c4b254c538eb3e3fab6e51..922f844ac4e47938078ea99abd78184e63182a14 100644 (file)
--- a/base/tables-examples.tct
+++ b/base/tables-examples.tct
@@ -18,6 +18,9 @@ Table hbytes HBytes_SubCommand
        h2raw
                hex     hb
                =>      obj
+       length
+               v       hb
+               =>      int
        prepend
                v       hbv
                str     ...
@@ -25,7 +28,7 @@ Table hbytes HBytes_SubCommand
                v       hbv
                str     ...
        rep-info
-               v       hb
+               v       obj
                =>      obj
        concat
                str     ...
@@ -44,14 +47,17 @@ Table hbytes HBytes_SubCommand
                =>      hb
        pkcs5
                meth    enum(PadMethod, "hbytes pad subcommand")
-               obj     ...
-#      blockcipher
-#              encrypt charfrom("de","encrypt/decrypt")
-#              v       hbv
-#              alg     enum(BlockCipherAlgInfo, "alg")
-#              mode    enum(BlockCipherModeInfo, "mode")
-#              ?iv     hb
-#              =>      hb
+               v       hbv
+               block   obj
+               =>      int
+       blockciph
+               encrypt charfrom("de","encrypt/decrypt")
+               v       hbv
+               alg     enum(BlockCipherAlgInfo, "alg")
+               key     obj
+               mode    enum(BlockCipherModeInfo, "mode")
+               ?iv     hb
+               =>      hb
 #      hash
 #              alg     enum(HashAlgInfo, "hash alg")
 #              message hb
@@ -62,20 +68,3 @@ Table hbytes HBytes_SubCommand
 #              key     hb
 #              maclen  int
 #              =>      hb
-
-Table padmethod PadMethod
-       pa      1
-               v       hbv
-               alg     enum(BlockCipherAlgInfo, "pad alg")
-       ua      0
-               v       hbv
-               alg     enum(BlockCipherAlgInfo, "pad alg")
-       pn      1
-               v       hbv
-               block   int
-       un      0
-               v       hbv
-               block   int
-
-EntryExtra PadMethod
-       int pad;