Updating contrib/crypto/ for latest changes
parent
59c64064a7
commit
e26e4d6cc7
|
@ -1,5 +1,5 @@
|
|||
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
|
||||
: nth-int ( string n -- int ) 2 shift dup 4 + rot <slice> le> ; inline
|
||||
|
|
|
@ -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
|
||||
|
||||
SYMBOL: a
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
USING: kernel math sequences namespaces errors hashtables words arrays parser
|
||||
compiler syntax lists io threads ;
|
||||
USING: kernel math math-contrib sequences namespaces errors
|
||||
hashtables words arrays parser compiler syntax io threads ;
|
||||
IN: crypto
|
||||
: make-bits ( quot numbits -- n | quot: -- 0/1 )
|
||||
0 -rot [ drop dup call rot 1 shift bitor swap ] each drop ;
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
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
|
||||
|
||||
! Implemented according to RFC 3174.
|
||||
|
|
Loading…
Reference in New Issue