steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Updating contrib/crypto/ for latest changes

darcs
slava 2006-06-15 05:41:58 +00:00
parent 59c64064a7
commit e26e4d6cc7
4 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/crypto/common.factor
View File

@ -1,5 +1,5 @@
IN: crypto-internals IN: crypto-internals
USING: kernel io strings sequences namespaces math parser lists ; USING: kernel io strings sequences namespaces math parser ;
: w+ ( int -- int ) + HEX: ffffffff bitand ; inline : w+ ( int -- int ) + HEX: ffffffff bitand ; inline
: nth-int ( string n -- int ) 2 shift dup 4 + rot <slice> le> ; inline : nth-int ( string n -- int ) 2 shift dup 4 + rot <slice> le> ; inline

2
contrib/crypto/md5.factor
View File

@ -1,4 +1,4 @@
USING: kernel io strings sequences namespaces math parser lists crypto ; USING: kernel io strings sequences namespaces math parser crypto ;
IN: crypto-internals IN: crypto-internals
SYMBOL: a SYMBOL: a

4
contrib/crypto/random.factor
View File

@ -1,5 +1,5 @@
USING: kernel math sequences namespaces errors hashtables words arrays parser USING: kernel math math-contrib sequences namespaces errors
compiler syntax lists io threads ; hashtables words arrays parser compiler syntax io threads ;
IN: crypto IN: crypto
: make-bits ( quot numbits -- n | quot: -- 0/1 ) : make-bits ( quot numbits -- n | quot: -- 0/1 )
0 -rot [ drop dup call rot 1 shift bitor swap ] each drop ; 0 -rot [ drop dup call rot 1 shift bitor swap ] each drop ;

2
contrib/crypto/sha1.factor
View File

@ -1,5 +1,5 @@
USING: kernel io strings sequences namespaces math parser USING: kernel io strings sequences namespaces math parser
lists vectors hashtables kernel-internals math-contrib crypto ; vectors hashtables kernel-internals math-contrib crypto ;
IN: crypto-internals IN: crypto-internals
! Implemented according to RFC 3174. ! Implemented according to RFC 3174.