77 lines
1.7 KiB
Forth
77 lines
1.7 KiB
Forth
\ Copyright 2022 Bradley D. Nelson
|
|
\
|
|
\ Licensed under the Apache License, Version 2.0 (the "License");
|
|
\ you may not use this file except in compliance with the License.
|
|
\ You may obtain a copy of the License at
|
|
\
|
|
\ http://www.apache.org/licenses/LICENSE-2.0
|
|
\
|
|
\ Unless required by applicable law or agreed to in writing, software
|
|
\ distributed under the License is distributed on an "AS IS" BASIS,
|
|
\ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
\ See the License for the specific language governing permissions and
|
|
\ limitations under the License.
|
|
|
|
needs hashing.fs
|
|
|
|
internals hashing definitions
|
|
|
|
$3ff0001c constant peri_clk_en
|
|
$3ff00020 constant peri_rst_en
|
|
$3ff03000 constant sha_text
|
|
$3ff03080 constant sha1_start
|
|
$3ff03084 constant sha1_continue
|
|
$3ff03088 constant sha1_load
|
|
$3ff0308c constant sha1_busy
|
|
|
|
$f peri_clk_en !
|
|
$0 peri_rst_en !
|
|
|
|
: WMOVE ( a a n -- )
|
|
0 ?DO
|
|
2DUP SWAP UL@ SWAP L!
|
|
4 + SWAP 4 + SWAP
|
|
LOOP 2DROP ;
|
|
|
|
: wait begin sha1_busy @ 0= until ;
|
|
variable started
|
|
: chunk
|
|
w sha_text 16 WMOVE
|
|
started @ if
|
|
1 sha1_continue !
|
|
else
|
|
1 sha1_start ! 1 started !
|
|
then
|
|
wait
|
|
;
|
|
|
|
: >w { msg n }
|
|
w 64 ERASE msg w n CMOVE $80 w n + c! w 64 <->* ;
|
|
|
|
40 constant sha1-size
|
|
create sha1-hash sha1-size allot
|
|
|
|
: >dig ( a n -- a )
|
|
BASE @ >R HEX <# # # # # # # # # #> R> BASE !
|
|
ROT 2DUP + >R SWAP CMOVE R> ;
|
|
: format
|
|
sha_text w 20 CMOVE
|
|
sha1-hash 5 0 DO I @w >dig LOOP DROP ;
|
|
|
|
: sha1 { msg n -- hash n } n 64 /mod { edge wholes }
|
|
wholes 0 ?DO msg 64 >w chunk 64 +TO msg LOOP
|
|
edge 0= IF
|
|
0 0 >w
|
|
ELSE
|
|
msg edge >w
|
|
edge 56 >= IF chunk w 64 ERASE THEN
|
|
THEN
|
|
n 8 * 16 RSHIFT 16 RSHIFT 14 !w
|
|
n 8 * 15 !w chunk
|
|
1 sha1_load ! wait
|
|
sha_text w 5 WMOVE
|
|
format sha1-hash sha1-size
|
|
;
|
|
|
|
forth definitions
|