haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix PKCS#1 v1.5 padding

Browse Source 
The padding string is at least 8 bytes long + 3 other bytes,
so it should be 11.
This commit is contained in:
Olivier Chéron 2016-09-25 09:06:35 +02:00 committed by Olivier Chéron
parent 0f43451b4f
commit f4e094aacb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Crypto/PubKey/RSA/PKCS15.hs
View File

@ -111,8 +111,8 @@ pad len m
-- | Produce a standard PKCS1.5 padding for signature
padSignature :: ByteArray signature => Int -> signature -> Either Error signature
padSignature klen signature
| klen < siglen+1 = Left SignatureTooLong
| otherwise = Right (B.pack padding `B.append` signature)
| klen < siglen + 11 = Left SignatureTooLong
| otherwise = Right (B.pack padding `B.append` signature)
where
siglen = B.length signature
padding = 0 : 1 : (replicate (klen - siglen - 3) 0xff ++ [0])