Skip to content
Browse files

make CAST5-S-BOX visible in CAST5-DECRYPT-BLOCK; fixes #28

  • Loading branch information...
1 parent 8773097 commit ac2d33b716f5c3707a3669588f696d8a5685370c @froydnj committed Sep 13, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/ciphers/cast5.lisp
View
2 src/ciphers/cast5.lisp
@@ -351,7 +351,6 @@
(when (= n-rounds 16)
,@(subseq forms 12)))))
(store-words ciphertext ciphertext-start r0 l0))))
-) ; MACROLET
(define-block-decryptor cast5 8
(let ((mask-vector (mask-vector context))
@@ -375,6 +374,7 @@
,@(subseq forms 0 4))
,@(subseq forms 4))))
(store-words plaintext plaintext-start r0 l0))))
+) ; MACROLET
(defun generate-cast5-key-schedule (key)
(declare (type (simple-array (unsigned-byte 8) (16)) key))

0 comments on commit ac2d33b

Please sign in to comment.
Something went wrong with that request. Please try again.