DELPHI Rijndael algorithm implementation

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