~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
DELPHI Rijndael algorithm implementation
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

The implementation is based on an original code.
The CBC-mode bug fixed.
As the example of API usage is complemented by simple functions:

{encode string}
  function EnCryptString(const sMessage: string; sKeyMaterial: string): string;
{decode string}
  function DeCryptString(const sMessage: string; sKeyMaterial: string): string;
{expand KeyMaterial up to iLength digits}
  function ExpandKey(sKey: string; iLength: integer): string;
{randomize KeyMaterial - do not use it :)}
  function RandomKeyMaterial: string;
{encrypt string}
  function StoreCryptString(const sMessage: string; sKeyMaterial: string): string;
{decrypt string}
  function ReadCryptString(const sMessage: string; sKeyMaterial: string): string;

---------------------------------------------
Sergey Kirichenko
  e-mail: ksv@cheerful.com
  Home Page: http://rcolonel.tripod.com