chiark / gitweb /
c65db1a4a51d28f0397339c23a2fef7989bb1e0f
[chiark-tcl.git] / crypto / crypto.tct
1 Table hbcrypto_SubCommand
2         blockcipher
3                 op      enum(BlockCipherOp, "op")
4                 ...     obj
5         hash
6                 alg     enum(HashAlgInfo, "hash alg")
7                 message hb
8                 =>      hb
9         hmac
10                 alg     enum(HashAlgInfo, "hash alg for hmac")
11                 message hb
12                 key     obj
13                 ?maclen obj
14                 =>      hb
15         hash-prop
16                 prop    enum(HashAlgPropInfo, "prop")
17                 alg     enum(HashAlgInfo, "alg")
18                 =>      int
19
20 Table padmethodinfo PadMethodInfo
21         pkcs5
22                 =>      int
23         rfc2406
24                 nxthdr  obj
25                 =>      int
26
27 Table blockcipherop BlockCipherOp
28         e       1
29                 v       hbv
30                 alg     enum(BlockCipherAlgInfo, "alg")
31                 key     obj
32                 mode    enum(BlockCipherModeInfo, "mode")
33                 ?iv     hb
34                 =>      hb
35         d       0
36                 v       hbv
37                 alg     enum(BlockCipherAlgInfo, "alg")
38                 key     obj
39                 mode    enum(BlockCipherModeInfo, "mode")
40                 ?iv     hb
41                 =>      hb
42         mac     -1
43                 msg     hb
44                 alg     enum(BlockCipherAlgInfo, "alg")
45                 key     obj
46                 mode    enum(BlockCipherModeInfo, "mode")
47                 iv      hb
48                 =>      hb
49         prop    -1
50                 prop    enum(BlockCipherPropInfo, "prop")
51                 alg     enum(BlockCipherAlgInfo, "alg")
52                 =>      int
53
54 EntryExtra BlockCipherOp
55         int encrypt;