DLD addLibrary: 'libnettle.so.4'. CStruct subclass: NettleRipeMd160 [ init [ ] ripemd160_update: length data: data [ ] ripemd160_digest: length digest: digest [ ] update: data [ self ripemd160_update: (data size) data: data. ] digest [ | result | result := ByteArray new: 20. self ripemd160_digest: 20 digest: result. ^result ] ]