procedure TForm19.Button8Click(Sender: TObject);  //md5加密
begin
  Edit3.Clear;
  Edit3.Text := THashMD5.GetHashString(Edit2.Text);
end;

procedure TForm19.Button9Click(Sender: TObject); // base64加密
var
  base64: TBase64Encoding;
begin
  base64 := TBase64Encoding.Create;
  Edit5.Clear;
  Edit5.Text := base64.Encode(Edit4.Text);
  base64.Free;
end;

procedure TForm19.Button10Click(Sender: TObject); // base64解密
var
  base64: TBase64Encoding;
begin
  base64 := TBase64Encoding.Create;
  Edit7.Clear;
  Edit7.Text := base64.Decode(Edit6.Text);
  base64.Free;
end;