1 DLD addLibrary: 'libnettle.so.4'.
3 CStruct subclass: NettleMd4 [
4 <category: 'Nettle-C MD4 interface'>
7 (#state (#array #uInt 4))
10 (#block (#array #uChar 64))
15 <cCall: 'nettle_md4_init'
20 md4_update: length data: data [
21 <cCall: 'nettle_md4_update'
23 args: #(#self #uInt #byteArray)>
26 md4_digest: length digest: digest [
27 <cCall: 'nettle_md4_digest'
29 args: #(#self #uInt #cObject)>
33 self md4_update: (data size) data: data.
38 result := ByteArray new: 16.
39 self md4_digest: 16 digest: result.