mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-11-14 11:16:33 +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
|