DCPcrypt

delphi dcp component

TDCP_md5

md5 String;

md5 stream;流文件

procedure TForm1.Button1Click(Sender: TObject);
var
  hashd: array [ .. ] 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 :=  to ((len div ) - ) do
    s := s + IntToHex(hashd[Read], );
  Caption := s;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  hashd: array [ .. ] 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 :=  to ((len div ) - ) do
    s := s + IntToHex(hashd[Read], );
  Caption := s;

end;

procedure TForm1.Button3Click(Sender: TObject);
var
  hashd: array [ .. ] 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 :=  to ((len div ) - ) do
    s := s + IntToHex(hashd[Read], );
  Caption := s;
end;

stream

procedure TForm1.Button1Click(Sender: TObject);
var
  hashd: array [ .. ] of Byte;
  s: string;
  read, len: integer;
  ast: AnsiString;
  ss: TStringStream;
begin
  ast := '中国';
  ss := TStringStream.Create;
  ss.WriteString('ww');

  self.DCP_md51.Init;
  DCP_md51.UpdateStream(ss, ss.Size);
  self.DCP_md51.Final(hashd);
  ss.Free;

  len := DCP_md51.HashSize;
  s := '';
  for Read :=  to ((len div ) - ) do
    s := s + IntToHex(hashd[Read], );
  Caption := s;
end;