155 lines
6.5 KiB
Racket
155 lines
6.5 KiB
Racket
#lang racket/base
|
|
;;
|
|
;;; Copyright 2010, 2011, 2012, 2013 Tony Garnock-Jones <tonyg@ccs.neu.edu>
|
|
;;;
|
|
;;; This file is part of marketplace-ssh.
|
|
;;;
|
|
;;; marketplace-ssh is free software: you can redistribute it and/or
|
|
;;; modify it under the terms of the GNU General Public License as
|
|
;;; published by the Free Software Foundation, either version 3 of the
|
|
;;; License, or (at your option) any later version.
|
|
;;;
|
|
;;; marketplace-ssh is distributed in the hope that it will be useful,
|
|
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
;;; General Public License for more details.
|
|
;;;
|
|
;;; You should have received a copy of the GNU General Public License
|
|
;;; along with marketplace-ssh. If not, see
|
|
;;; <http://www.gnu.org/licenses/>.
|
|
|
|
(require "aes-ctr.rkt")
|
|
(require rackunit)
|
|
(require (planet tonyg/bitsyntax))
|
|
|
|
(check-equal? (let ((x (start-aes-ctr (make-bytes 16 97) (make-bytes 16 0))))
|
|
(aes-ctr-process! x #"abcdefghijklmnop"))
|
|
#"\275XO-\317^<d\16(\262\257Fv}e" ;; = bd584f2dcf5e3c640e28b2af46767d65
|
|
)
|
|
|
|
(check-equal? (let ((x (start-aes-ctr (make-bytes 16 97) (make-bytes 16 0))))
|
|
(let* ((b1 (aes-ctr-process! x #"abcdef"))
|
|
(b2 (aes-ctr-process! x #"ghijklmnop")))
|
|
(list b1 b2)))
|
|
(list #"\275XO-\317^"
|
|
#"<d\16(\262\257Fv}e"))
|
|
|
|
(check-equal? (let ((x (start-aes-ctr (make-bytes 16 97) (make-bytes 16 0))))
|
|
(aes-ctr-process! x #"\275XO-\317^<d\16(\262\257Fv}e"))
|
|
#"abcdefghijklmnop")
|
|
|
|
(check-equal? (let ((x (start-aes-ctr (make-bytes 16 97) (make-bytes 16 0))))
|
|
(let* ((b1 (aes-ctr-process! x #"\275XO-\317^"))
|
|
(b2 (aes-ctr-process! x #"<d\16(\262\257Fv}e")))
|
|
(list b1 b2)))
|
|
(list #"abcdef"
|
|
#"ghijklmnop"))
|
|
|
|
(check-equal? (let ((x (start-aes-ctr (make-bytes 16 97) (make-bytes 16 0))))
|
|
(aes-ctr-process! x #"abcdefghijklmnopabcdefghijklmnop"))
|
|
#"\275XO-\317^<d\16(\262\257Fv}e!v\301\23\6@\330\305\314c\27\374\276\330 \342")
|
|
|
|
(check-equal? (let ((x (start-aes-ctr (make-bytes 16 97) (make-bytes 16 0))))
|
|
(aes-ctr-process! x
|
|
#"\275XO-\317^<d\16(\262\257Fv}e!v\301\23\6@\330\305\314c\27\374\276\330 \342"))
|
|
#"abcdefghijklmnopabcdefghijklmnop")
|
|
|
|
;; Test vectors from http://tools.ietf.org/html/draft-ietf-ipsec-ciph-aes-ctr-05
|
|
|
|
(define (hex-string->bytes str) ;; grumble
|
|
(define cleaned (regexp-replace* #rx"[^0-9a-fA-F]+" str ""))
|
|
(define bits (* (string-length cleaned) 4))
|
|
(define n (string->number cleaned 16))
|
|
(integer->bit-string n bits #t))
|
|
|
|
(define (test-enc description key ivec plaintext ciphertext)
|
|
(let ((state (start-aes-ctr (hex-string->bytes key)
|
|
(hex-string->bytes ivec))))
|
|
(check-equal? (aes-ctr-process! state (hex-string->bytes plaintext))
|
|
(hex-string->bytes ciphertext)
|
|
(format "test-enc ~v" description))))
|
|
|
|
;; Test Vector #1: Encrypting 16 octets using AES-CTR with 128-bit key
|
|
(test-enc 1
|
|
"AE 68 52 F8 12 10 67 CC 4B F7 A5 76 55 77 F3 9E"
|
|
"00 00 00 30 00 00 00 00 00 00 00 00 00 00 00 01"
|
|
"53 69 6E 67 6C 65 20 62 6C 6F 63 6B 20 6D 73 67"
|
|
"E4 09 5D 4F B7 A7 B3 79 2D 61 75 A3 26 13 11 B8")
|
|
|
|
;; Test Vector #2: Encrypting 32 octets using AES-CTR with 128-bit key
|
|
(test-enc 2
|
|
"7E 24 06 78 17 FA E0 D7 43 D6 CE 1F 32 53 91 63"
|
|
"00 6C B6 DB C0 54 3B 59 DA 48 D9 0B 00 00 00 01"
|
|
(string-append "00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F"
|
|
"10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D 1E 1F")
|
|
(string-append "51 04 A1 06 16 8A 72 D9 79 0D 41 EE 8E DA D3 88"
|
|
"EB 2E 1E FC 46 DA 57 C8 FC E6 30 DF 91 41 BE 28"))
|
|
|
|
;; Test Vector #3: Encrypting 36 octets using AES-CTR with 128-bit key
|
|
(test-enc 3
|
|
"76 91 BE 03 5E 50 20 A8 AC 6E 61 85 29 F9 A0 DC"
|
|
"00 E0 01 7B 27 77 7F 3F 4A 17 86 F0 00 00 00 01"
|
|
(string-append "00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F"
|
|
"10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D 1E 1F"
|
|
"20 21 22 23")
|
|
(string-append "C1 CF 48 A8 9F 2F FD D9 CF 46 52 E9 EF DB 72 D7"
|
|
"45 40 A4 2B DE 6D 78 36 D5 9A 5C EA AE F3 10 53"
|
|
"25 B2 07 2F"))
|
|
|
|
;; Test Vector #4: Encrypting 16 octets using AES-CTR with 192-bit key
|
|
(test-enc 4
|
|
"16 AF 5B 14 5F C9 F5 79 C1 75 F9 3E 3B FB 0E ED 86 3D 06 CC FD B7 85 15"
|
|
"00 00 00 48 36 73 3C 14 7D 6D 93 CB 00 00 00 01"
|
|
"53 69 6E 67 6C 65 20 62 6C 6F 63 6B 20 6D 73 67"
|
|
"4B 55 38 4F E2 59 C9 C8 4E 79 35 A0 03 CB E9 28")
|
|
|
|
;; Test Vector #5: Encrypting 32 octets using AES-CTR with 192-bit key
|
|
(test-enc 5
|
|
"7C 5C B2 40 1B 3D C3 3C 19 E7 34 08 19 E0 F6 9C 67 8C 3D B8 E6 F6 A9 1A"
|
|
"00 96 B0 3B 02 0C 6E AD C2 CB 50 0D 00 00 00 01"
|
|
(string-append "00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F"
|
|
"10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D 1E 1F")
|
|
(string-append "45 32 43 FC 60 9B 23 32 7E DF AA FA 71 31 CD 9F"
|
|
"84 90 70 1C 5A D4 A7 9C FC 1F E0 FF 42 F4 FB 00"))
|
|
|
|
;; Test Vector #6: Encrypting 36 octets using AES-CTR with 192-bit key
|
|
(test-enc 6
|
|
"02 BF 39 1E E8 EC B1 59 B9 59 61 7B 09 65 27 9B F5 9B 60 A7 86 D3 E0 FE"
|
|
"00 07 BD FD 5C BD 60 27 8D CC 09 12 00 00 00 01"
|
|
(string-append "00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F"
|
|
"10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D 1E 1F"
|
|
"20 21 22 23")
|
|
(string-append "96 89 3F C5 5E 5C 72 2F 54 0B 7D D1 DD F7 E7 58"
|
|
"D2 88 BC 95 C6 91 65 88 45 36 C8 11 66 2F 21 88"
|
|
"AB EE 09 35"))
|
|
|
|
;; Test Vector #7: Encrypting 16 octets using AES-CTR with 256-bit key
|
|
(test-enc 7
|
|
(string-append "77 6B EF F2 85 1D B0 6F 4C 8A 05 42 C8 69 6F 6C"
|
|
"6A 81 AF 1E EC 96 B4 D3 7F C1 D6 89 E6 C1 C1 04")
|
|
"00 00 00 60 DB 56 72 C9 7A A8 F0 B2 00 00 00 01"
|
|
"53 69 6E 67 6C 65 20 62 6C 6F 63 6B 20 6D 73 67"
|
|
"14 5A D0 1D BF 82 4E C7 56 08 63 DC 71 E3 E0 C0")
|
|
|
|
;; Test Vector #8: Encrypting 32 octets using AES-CTR with 256-bit key
|
|
(test-enc 8
|
|
(string-append "F6 D6 6D 6B D5 2D 59 BB 07 96 36 58 79 EF F8 86"
|
|
"C6 6D D5 1A 5B 6A 99 74 4B 50 59 0C 87 A2 38 84")
|
|
"00 FA AC 24 C1 58 5E F1 5A 43 D8 75 00 00 00 01"
|
|
(string-append "00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F"
|
|
"10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D 1E 1F")
|
|
(string-append "F0 5E 23 1B 38 94 61 2C 49 EE 00 0B 80 4E B2 A9"
|
|
"B8 30 6B 50 8F 83 9D 6A 55 30 83 1D 93 44 AF 1C"))
|
|
|
|
;; Test Vector #9: Encrypting 36 octets using AES-CTR with 256-bit key
|
|
(test-enc 9
|
|
(string-append "FF 7A 61 7C E6 91 48 E4 F1 72 6E 2F 43 58 1D E2"
|
|
"AA 62 D9 F8 05 53 2E DF F1 EE D6 87 FB 54 15 3D")
|
|
"00 1C C5 B7 51 A5 1D 70 A1 C1 11 48 00 00 00 01"
|
|
(string-append "00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F"
|
|
"10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D 1E 1F"
|
|
"20 21 22 23")
|
|
(string-append "EB 6C 52 82 1D 0B BB F7 CE 75 94 46 2A CA 4F AA"
|
|
"B4 07 DF 86 65 69 FD 07 F4 8C C0 B5 83 D6 07 1F"
|
|
"1E C0 E6 B8"))
|