4

我正在尝试使用 Racket Crypto 库使用16 字节密钥加密16 字节块。我期望有一个 16 字节的输出块，但我得到一个 32 字节的输出块。一个 15 字节的输入块提供一个 16 位的输出。

#lang racket

(require (planet vyzo/crypto))

(bytes-length (encrypt cipher:aes-128-ecb
                       (string->bytes/latin-1 "0123456789ABCDEF") ; 16-byte key
                       (make-bytes 16) ; IV
                       (string->bytes/latin-1 "0123456789ABCDEF"))) ; 16-byte data
; -> 32

(bytes-length (encrypt cipher:aes-128-ecb
                       (string->bytes/latin-1 "0123456789ABCDEF") ; 16-byte key
                       (make-bytes 16)
                       (string->bytes/latin-1 "0123456789ABCDE"))) ; 15-byte data
; -> 16

我在某个地方错了吗？这是由于填充吗？

注意：我知道 ECB 模式的问题，我的目标是实现 CBC 模式。

4

2 回答 2

3

你是对的，这是因为填充。不幸的是，vyzo/crypto 库的 API不允许您轻松禁用填充（正确的是，请参阅下面的警告）。

如何禁用填充

但是，根据Racket users mailing list 上的这个 Thread，您可以像这样禁用填充：

#lang racket

(require (planet vyzo/crypto) (planet vyzo/crypto/util))

(define (cipher-encrypt-unpadded type key iv)
  (lambda (ptext)
    (let ((octx (cipher-encrypt type key iv #:padding #f)))
      (bytes-append (cipher-update! octx ptext)
                    (cipher-final! octx)))))

(define (cipher-decrypt-unpadded type key iv)
  (lambda (ctext)
    (let ((ictx (cipher-decrypt type key iv #:padding #f)))
      (bytes-append (cipher-update! ictx ctext)
                    (cipher-final! ictx)))))

; bytes-> bytes
; convenience function for encryption
(define enc-aes-128-ecb-unpadded 
   (cipher-encrypt-unpadded cipher:aes-128-ecb 
                            (string->bytes/latin-1 "0123456789ABCDEF"); 16-byte key
                            (make-bytes 16)))

; bytes -> bytes
; convenience function for decryption       
(define dec-aes-128-ecb-unpadded 
   (cipher-decrypt-unpadded cipher:aes-128-ecb 
                            (string->bytes/latin-1 "0123456789ABCDEF"); 16-byte key
                            (make-bytes 16)))

(define message (string->bytes/latin-1 "0123456789ABCDEF")) ; 16-byte data

(bytes-length (enc-aes-128-ecb-unpadded message))
; -> 16


(dec-aes-128-ecb-unpadded (enc-aes-128-ecb-unpadded message))
; -> #"0123456789ABCDEF"

这在我的机器上运行良好。此外，切换到 CBC 模式也很简单。

警告

当您禁用填充时，您的消息的长度必须是块大小的倍数。对于 AES128，这是 16 字节的精确倍数。否则，该功能将在您的脸上爆炸：

(enc-aes-128-ecb-unpadded (string->bytes/latin-1 "too short!"))
EVP_CipherFinal_ex: libcrypto error: data not multiple of block length [digital envelope routines:EVP_EncryptFinal_ex:101183626]
于 2013-06-01T14:50:46.337 回答
1

看起来所有输入都被填充到下一个块边界。这意味着 16 字节的输入将被填充到 32 字节的下一个边界。如果您的所有输入都是精确的块大小，那么您可以关闭填充。如果输入可以在块的中间结束，那么您将不得不打开填充。

如果您要使用 CBC 模式，那么您可能还需要考虑身份验证。如果您确实需要它，那么 HMAC 可能是最容易上手的。

于 2013-06-01T13:13:23.760 回答