This code has been created for use with the Fling project

This is ArcFour (Alleged RC4), CipherSaber variant, capable of
CipherSaber-1 and CipherSaber-2. It is coded in Ada, and is dependent on
AUnit and Formatted_Output (available via the AdaPower site). It's probably
pretty GNAT-dependent too, since I've had no need to compile it anywhere
else. If you want fixes, send patches and/or bug reports via Fling's
SourceForge patch tracker.

This code has been placed in the public domain by its author.

Release notes: first full release, all unit tests pass, but it may be
implementation dependant.

Contributed by: Julian Morrison
Contributed on: February 25, 2001
License: Public Domain