DLD addLibrary: 'libnettle.so.4'. CStruct subclass: NettleMd5 [ init [ ] md5_update: length data: data [ ] md5_digest: length digest: digest [ ] update: data [ self md5_update: (data size) data: data. ] digest [ | result | result := ByteArray new: 16. self md5_digest: 16 digest: result. ^result ] ]