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 ecb5d7cf3ed30413f7b0a6e8048d6e59802c6948..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     ...
@@ -42,16 +45,19 @@ Table hbytes HBytes_SubCommand
                v       hbv
                length  int
                =>      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
+       pkcs5
+               meth    enum(PadMethod, "hbytes pad subcommand")
+               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,9 +68,3 @@ Table hbytes HBytes_SubCommand
 #              key     hb
 #              maclen  int
 #              =>      hb
-
-#Table padmethod PadMethod
-#      pa      1, 0
-
-#EntryExtra PadMethod
-#      int pad, algname;