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

fixified blowfish for guile use

This commit is contained in:
erana 2012-01-20 22:43:52 +09:00
parent 2839ccddbc
commit c8ddaac924
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
scsh/encryption/blowfish.scm
View File

@ -32,6 +32,17 @@
(getenv "BIG_ENDIAN_HOST")
#t)) ;; NOTE : Do not forget to set this !
(display "If you're using guile, load this first :")(newline)
(display "(define bitwise-and logand)
(define bitwise-ior logior)
(define bitwise-xor logxor)
(define arithmetic-shift ash)")(newline)
;;(define bitwise-and logand)
;;(define bitwise-ior logior)
;;(define bitwise-xor logxor)
;;(define arithmetic-shift ash)
(define blowfish-ks0 (make-dictionary 256))
(dictionary-add! blowfish-ks0 0 '0xD1310BA6)
(dictionary-add! blowfish-ks0 1 '0x98DFB5AC)
@ -1137,6 +1148,7 @@
(dictionary-add! blowfish-ps 7 'EC4E6C89)
(dictionary-add! blowfish-ps 8 '452821E6)
(dictionary-add! blowfish-ps 9 '38D01377)
;;FIXME1 (dictionary-add! blowfish-ps 9 '38D01377)
(dictionary-add! blowfish-ps 10 'BE5466CF)
(dictionary-add! blowfish-ps 11 '34E90C6C)
(dictionary-add! blowfish-ps 12 'C0AC29B7)
@ -1395,4 +1407,4 @@
(if (not (eq? buffer plain3))
(display "Blowfish selftest failed - 2."))
)))
)))