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

use dup surround instead of 3append

db4
Doug Coleman 2009-10-29 14:06:59 -05:00
parent 939e2a3e6d
commit 53d760c4dd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
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
password salt password 3append md5 checksum-bytes salt password dup surround 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