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

remove two tucks

db4
Doug Coleman 2009-10-29 13:38:16 -05:00
parent 438e250e1b
commit 939e2a3e6d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/crypto/passwd-md5/passwd-md5.factor
View File

@ -18,7 +18,7 @@ PRIVATE>
:: passwd-md5 ( magic salt password -- bytes ) :: passwd-md5 ( magic salt password -- bytes )
password magic salt 3append password magic salt 3append
salt password tuck 3append md5 checksum-bytes password salt password 3append md5 checksum-bytes
password length password length
[ 16 / ceiling swap <repetition> concat ] keep [ 16 / ceiling swap <repetition> concat ] keep
head-slice append head-slice append
@ -42,7 +42,7 @@ PRIVATE>
11 final nth 2 to64 3append ; 11 final nth 2 to64 3append ;
: parse-shadow-password ( string -- magic salt password ) : parse-shadow-password ( string -- magic salt password )
"$" split harvest first3 [ "$" tuck 3append ] 2dip ; "$" split harvest first3 [ "$" dup surround ] 2dip ;
: authenticate-password ( shadow password -- ? ) : authenticate-password ( shadow password -- ? )
'[ parse-shadow-password drop _ passwd-md5 ] keep = ; '[ parse-shadow-password drop _ passwd-md5 ] keep = ;