unit amd5;

interface

        ////////////////////////////////////////////
        //  文件名 : amd5.pas                     //
        //   功能  : 与md5.asp计算结果相同        //
        //   作者  : 由scriptbaby改编自md5.asp    //
        // 完成时间: 2004-07-21                   //
        ////////////////////////////////////////////

              //请转载者保留以上信息，谢谢//

uses
  sysutils;

type
  arrlongword = array of longword;

type
  smd5 = class
    class function rotateleft(const lvalue, bits: longword): longword;
    class function md5(const smessage: string; const stype: boolean = false): string;
    class function convtoword(const smessage: string): arrlongword; overload;
    class function convtoword(const smessage: widestring): arrlongword; overload;
    class function wordtohex(const lvalue: longword): string;
  end;

implementation