scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

blowfish fixes - 6

This commit is contained in:
erana 2012-01-20 18:09:47 +09:00
parent e72e486b44
commit d9f94aa194
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/encryption/blowfish.scm
View File

@ -1353,9 +1353,13 @@
(cipher3 (vector 'E1 '13 'F4 '10 '2C 'FC 'CE '43))) (cipher3 (vector 'E1 '13 'F4 '10 '2C 'FC 'CE '43)))
(let ((bc blowfish-context)) (let ((bc blowfish-context))
(display "starting test...")(newline)
(blowfish-set-key bc (list->vector (string->list "abcdefghijklmnopqrstuvwxyz")) 26) (blowfish-set-key bc (list->vector (string->list "abcdefghijklmnopqrstuvwxyz")) 26)
(display "pass 1")(newline)
(blowfish-encrypt-block bc buffer plain) ;; should give \x32\x4e\xd0\xfe\xf4\x13\xa2\x03 (blowfish-encrypt-block bc buffer plain) ;; should give \x32\x4e\xd0\xfe\xf4\x13\xa2\x03
(display "pass 2")(newline)
(blowfish-decrypt bc buffer buffer) (blowfish-decrypt bc buffer buffer)
(display "pass 3")(newline)
(if (not (eq? buffer plain)) (if (not (eq? buffer plain))
(display "Blowfish selftest failed - 1.")) (display "Blowfish selftest failed - 1."))

2
scsh/encryption/dictionary.scm
View File

@ -85,7 +85,7 @@
(define make-dictionary make-dictionary1) (define make-dictionary make-dictionary1)
(define (dictionary-ref dict key) ((dict 'get) key)) (define (dictionary-ref dict key) ((dict 'get) key))
(define (dictionary-ref-with-index dict i value) ((dict 'get-with-index) i)) (define (dictionary-ref-with-index dict i) ((dict 'ref-with-index) i))
;; NOTE: dictionary-ref-substring: match key part with keys in dict ;; NOTE: dictionary-ref-substring: match key part with keys in dict
(define (dictionary-ref-substring dict key) ((dict 'get-substring) key)) (define (dictionary-ref-substring dict key) ((dict 'get-substring) key))
(define (dictionary-set! dict key value) ((dict 'set) key value)) (define (dictionary-set! dict key value) ((dict 'set) key value))