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