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

trying to speed up md5

erg 2006-09-07 20:56:40 +00:00
parent 6fd71439d6
commit 2067553f3e
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
contrib/crypto/common.factor
View File

@ -4,7 +4,6 @@ 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
: nth-int-be ( string n -- int ) 2 shift dup 4 + rot <slice> be> ; inline : nth-int-be ( string n -- int ) 2 shift dup 4 + rot <slice> be> ; inline
: float-sin ( int -- int ) sin abs 4294967296 * >bignum ; inline
: update ( num var -- ) [ w+ ] change ; inline : update ( num var -- ) [ w+ ] change ; inline
: update-old-new ( old new -- ) : update-old-new ( old new -- )
@ -13,8 +12,8 @@ USING: kernel io strings sequences namespaces math parser ;
: calculate-pad-length ( length -- pad-length ) : calculate-pad-length ( length -- pad-length )
dup 56 < 55 119 ? swap - ; dup 56 < 55 119 ? swap - ;
! pad 0x80 then 00 til 8 bytes left, then 64bit length in bits
: preprocess-plaintext ( string big-endian? -- padded-string ) : preprocess-plaintext ( string big-endian? -- padded-string )
#! pad 0x80 then 00 til 8 bytes left, then 64bit length in bits
>r >sbuf r> over [ >r >sbuf r> over [
HEX: 80 , HEX: 80 ,
dup length HEX: 3f bitand calculate-pad-length 0 <string> % dup length HEX: 3f bitand calculate-pad-length 0 <string> %

8
contrib/crypto/md5.factor
View File

@ -10,6 +10,12 @@ SYMBOL: old-b
SYMBOL: old-c SYMBOL: old-c
SYMBOL: old-d SYMBOL: old-d
: calculate-sin ( int -- int )
sin abs 4294967296 * >bignum ; inline
SYMBOL: md5-sin-table
65 [ calculate-sin ] map md5-sin-table set-global
: initialize-md5 ( -- ) : initialize-md5 ( -- )
HEX: 67452301 dup a set old-a set HEX: 67452301 dup a set old-a set
HEX: efcdab89 dup b set old-b set HEX: efcdab89 dup b set old-b set
@ -31,7 +37,7 @@ SYMBOL: old-d
: (ABCD) ( s i x vars result -- ) : (ABCD) ( s i x vars result -- )
#! bits to shift, input to float-sin, x, func #! bits to shift, input to float-sin, x, func
swap >r w+ swap float-sin w+ r> dup first >r swap r> update swap >r w+ swap md5-sin-table get nth w+ r> dup first >r swap r> update
dup first get rot 32 bitroll over second get w+ swap first set ; dup first get rot 32 bitroll over second get w+ swap first set ;
: ABCD { a b c d } swap (F) (ABCD) ; inline : ABCD { a b c d } swap (F) (ABCD) ; inline