mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-17 04:44:39 +03:00
8 lines
203 B
Plaintext
8 lines
203 B
Plaintext
|
pad : {n, m, b} (64>=width(n), b==512-((n+65)%512), m==65+n+b) => [n]->[m]
|
||
|
|
pad message = (message#[True])#(0:[b])#sz
|
||
|
|
where
|
||
|
|
sz : [64]
|
||
|
|
sz = width message
|
||
|
|
|
||
|
|
test = pad
|