From e26e4d6cc73eb8d64506ce7a136d4afb5da3872a Mon Sep 17 00:00:00 2001 From: slava Date: Thu, 15 Jun 2006 05:41:58 +0000 Subject: [PATCH] Updating contrib/crypto/ for latest changes --- contrib/crypto/common.factor | 2 +- contrib/crypto/md5.factor | 2 +- contrib/crypto/random.factor | 4 ++-- contrib/crypto/sha1.factor | 2 +- 4 files changed, 5 insertions(+), 5 deletions(-) diff --git a/contrib/crypto/common.factor b/contrib/crypto/common.factor index 88a10e216c..f9c0ba2f48 100644 --- a/contrib/crypto/common.factor +++ b/contrib/crypto/common.factor @@ -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 le> ; inline diff --git a/contrib/crypto/md5.factor b/contrib/crypto/md5.factor index 6651155c34..d78e7bb11d 100644 --- a/contrib/crypto/md5.factor +++ b/contrib/crypto/md5.factor @@ -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 diff --git a/contrib/crypto/random.factor b/contrib/crypto/random.factor index a1271a9f4b..96976463d0 100644 --- a/contrib/crypto/random.factor +++ b/contrib/crypto/random.factor @@ -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 ; diff --git a/contrib/crypto/sha1.factor b/contrib/crypto/sha1.factor index 40cdbf9df3..dcd26f54c4 100644 --- a/contrib/crypto/sha1.factor +++ b/contrib/crypto/sha1.factor @@ -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.