info-hash ( metainfo -- hash )


Vocabulary
bittorrent

Inputs
metainfoan object


Outputs
hashan object


Definition
USING: assocs bencode checksums checksums.sha kernel ;

IN: bittorrent

: info-hash ( metainfo -- hash )
"info hash" swap dup
'[ drop _ "info" of >bencode sha1 checksum-bytes ] cache ;