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 d74353098edf625ecbacc7d411539fdc32044eb1..922f844ac4e47938078ea99abd78184e63182a14 100644 (file)
--- a/base/tables-examples.tct
+++ b/base/tables-examples.tct
@@ -28,7 +28,7 @@ Table hbytes HBytes_SubCommand
                v       hbv
                str     ...
        rep-info
-               v       hb
+               v       obj
                =>      obj
        concat
                str     ...
@@ -50,13 +50,14 @@ Table hbytes HBytes_SubCommand
                v       hbv
                block   obj
                =>      int
-#      blockcipher
-#              encrypt charfrom("de","encrypt/decrypt")
-#              v       hbv
-#              alg     enum(BlockCipherAlgInfo, "alg")
-#              mode    enum(BlockCipherModeInfo, "mode")
-#              ?iv     hb
-#              =>      hb
+       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