byte-array>echo ( byte-array -- echo )

Vocabulary

ping.private

Inputs

byte-array

an object

Outputs

echo

an object

Definition

USING: checksums checksums.internet kernel pack sequences ;

IN: ping.private

: byte-array>echo ( byte-array -- echo )
    dup internet checksum-bytes B{ 0 0 } assert= 8 cut
    [ "CCSSS" unpack-be { 0 3 4 } swap nths first3 ] dip
    echo boa ;