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

blowfish encryption - set-key - 1

This commit is contained in:
erana 2012-01-20 13:50:17 +09:00
parent 34b9159fa9
commit 8a5d8fb45d
1 changed files with 37 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
scsh/encryption/blowfish.scm
View File

@ -1212,7 +1212,8 @@
(set! ret_xr xl)
)))
(define (blowfish-set-key bc key keylen)
(define (blowfish-set-key bc key keylen) ;; NOTE key is a table
(let ((data (make-table)))
(do ((i 0 (+ i 1)))
((=> i (+ blowfish-rounds 2))0)
@ -1229,5 +1230,26 @@
(do ((i 0 (+ i 1))
(j 0 (+ j 1)))
((>= i (+ blowfish-rounds 2))0)
(if BIG-ENDIAN-HOST
(begin
(table-set! data 0 (table-ref key j))
(table-set! data 1 (table-ref key (remainder (+ j 1) keylen)))
(table-set! data 2 (table-ref key (remainder (+ j 2) keylen)))
(table-set! data 3 (table-ref key (remainder (+ j 3) keylen)))
)
(begin
(table-set! data 3 (table-ref key j))
(table-set! data 2 (table-ref key (remainder (+ j 1) keylen)))
(table-set! data 1 (table-ref key (remainder (+ j 2) keylen)))
(table-set! data 0 (table-ref key (remainder (+ j 3) keylen)))
))
(vector-set! (blowfish-p bc) i (bitwise-xor
(vector-ref (blowfish-p bc) i)
(+ (table-ref data 0)
(table-ref data 1)
(table-ref data 2)
(table-ref data 3))))
))
)