This is a pure Ada implementation of the SipHash PRF.
It is based on the original paper and tested against the test values provided in the paper and in the reference C implementation.
SipHash was designed by Jean-Philippe Aumasson and Daniel J. Bernstein.
From the official website:
SipHash is a family of pseudorandom functions (a.k.a. keyed hash functions) optimized for speed on short messages.
Target applications include network traffic authentication and defense against hash-flooding DoS attacks.
SipHash is secure, fast, and simple (for real):
- SipHash is simpler and faster than previous cryptographic algorithms (e.g. MACs based on universal hashing)
- SipHash is competitive in performance with insecure non-cryptographic algorithms (e.g. MurmurHash)
We propose that hash tables switch to SipHash as a hash function. Users of SipHash already include FreeBSD, OpenDNS, Perl 5, Ruby, or Rust.
Block interface:
with SipHash.PRF;
[…]
package SipHash24 is new SipHash.PRF(Nb_Compression_Rounds => 2,
Nb_Finalization_Rounds => 4);
[…]
Output := SipHash24.Hash(Input, Key);
Streaming interface:
with SipHash.PRF;
[…]
package SipHash48 is new SipHash.PRF(Nb_Compression_Rounds => 4,
Nb_Finalization_Rounds => 8);
[…]
-- Initialization with the 128-bit secret key.
Hash : SipHash48.Object := SipHash48.Initialize(Key);
[…]
-- Processing of each byte of the input.
for I in Input'Range loop
SipHash48.Update(Hash, Input(I));
end loop;
-- Finalization to compute the hash value.
SipHash48.Finalize(Hash, Output);
In debug mode:
$ make
In release mode:
$ make BUILD_MODE=release
To run the tests:
$ make run_tests
J.-P. Aumasson and D. J. Bernstein, “SipHash: a fast short-input PRF.” 18-Sep-2012.
J.-P. Aumasson and D. J. Bernstein, "Reference C implementation"
This software is licensed under the BSD3 license.
Copyright (c) 2014, Sylvain Laperche sylvain.laperche@gmail.com