remove rc4, waiting for a better implementation someday.

db4
Doug Coleman 2008-03-10 12:21:53 -05:00
parent 21e0f8c302
commit bf12f94957
2 changed files with 0 additions and 40 deletions

View File

@ -1 +0,0 @@
Doug Coleman

View File

@ -1,39 +0,0 @@
USING: kernel math sequences namespaces ;
IN: crypto.rc4
! http://en.wikipedia.org/wiki/RC4_%28cipher%29
<PRIVATE
SYMBOL: i
SYMBOL: j
SYMBOL: s
SYMBOL: key
SYMBOL: l
! key scheduling algorithm, initialize s
: ksa ( -- )
256 [ ] map s set
0 j set
256 [
dup s get nth j get + over l get mod key get nth + 255 bitand j set
dup j get s get exchange drop
] each ;
: generate ( -- n )
i get 1+ 255 bitand i set
j get i get s get nth + 255 bitand j set
i get j get s get exchange
i get s get nth j get s get nth + 255 bitand s get nth ;
PRIVATE>
: rc4 ( key -- )
[
[ key set ] keep
length l set
ksa
0 i set
0 j set
] with-scope ;