blob: e639b3ad9a4ac00f5b8221e9c0cf0470c53000eb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
;;;; padding.lisp
(in-package :crypto-tests)
(rtest:deftest pkcs7-padding
(loop with block-size = 16
and array = (make-array 16 :element-type '(unsigned-byte 8)
:initial-element 0)
and padding = (make-instance 'crypto::pkcs7-padding)
for i from 0 below block-size
do (crypto::add-padding-bytes padding array 0 i block-size)
finally (return
(dotimes (i block-size :ok)
(unless (= (aref array i) (- block-size i))
(return :error)))))
:ok)
|