20 lines
427 B
Text
20 lines
427 B
Text
[ table ] is crctable ( n --> n )
|
|
|
|
256 times
|
|
[ i^ 8 times
|
|
[ dup 1 >>
|
|
swap 1 & if
|
|
[ hex EDB88320 ^ ] ]
|
|
' crctable put ]
|
|
|
|
[ hex FFFFFFFF swap
|
|
witheach
|
|
[ over ^ hex FF &
|
|
crctable
|
|
swap 8 >> ^ ]
|
|
hex FFFFFFFF ^ ] is crc-32 ( [ --> n )
|
|
|
|
$ "The quick brown fox jumps over the lazy dog" crc-32
|
|
16 base put
|
|
echo
|
|
base release
|