pad-last-block ( bytes big-endian? length -- blocks )

Vocabulary

checksums.common

Inputs

bytes	an object
big-endian?	an object
length	an object

Outputs

blocks

an object

Definition

USING: byte-arrays endian grouping kernel make math ;

IN: checksums.common

: pad-last-block ( bytes big-endian? length -- blocks )
    [
        [ % ] 2dip 128 ,
        [ 63 bitand calculate-pad-length <byte-array> % ]
        [ 3 shift 8 rot [ >be ] [ >le ] if % ] bi
    ] B{ } make 64 group ;