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 ] ] dip
[ "info" of >bencode sha1 checksum-bytes ] curry compose
cache ;