DCPcrypt

procedure TForm1.Button1Click(Sender: TObject);
var
  hashd: array [0 .. 31] of Byte;
  abytes: TByteDynArray;
  s: string;
  read, len: integer;
  ast: AnsiString;
begin
  ast := ‘中国‘;
  self.DCP_md51.Init;
  self.DCP_md51.UpdateStr(ast);
  self.DCP_md51.Final(hashd);
  len := DCP_md51.HashSize;
  s := ‘‘;
  for Read := 0 to ((len div 8) - 1) do
    s := s + IntToHex(hashd[Read], 2);
  Caption := s;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  hashd: array [0 .. 31] of Byte;
  s: string;
  read, len: integer;
  ast: string;
begin
  ast := ‘中国‘;
  self.DCP_md51.Init;
  self.DCP_md51.UpdateStr(ast);
  self.DCP_md51.Final(hashd);
  len := DCP_md51.HashSize;
  s := ‘‘;
  for Read := 0 to ((len div 8) - 1) do
    s := s + IntToHex(hashd[Read], 2);
  Caption := s;

end;

procedure TForm1.Button3Click(Sender: TObject);
var
  hashd: array [0 .. 41] of Byte;
  s: string;
  read, len: integer;
  ast: AnsiString;
begin
  ast := ‘中国‘;
  self.DCP_sha11.Init;
  self.DCP_sha11.UpdateStr(ast);
  self.DCP_sha11.Final(hashd);
  len := DCP_sha11.HashSize;
  s := ‘‘;
  for Read := 0 to ((len div 8) - 1) do
    s := s + IntToHex(hashd[Read], 2);
  Caption := s;
end;