一行代码完成MD5加密

cuibq

在lazarus主站转悠了半天，才发现MD5加密好简单：

1、uses 部分加上md5

2、加密操作：Edit2.Text := MD5Print(MD5String(Edit1.Text));

上图：


源程序：

unit Unit1;
{$mode objfpc}{$H+}
interface
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  md5, ZConnection, ZDataset, db, dbf;
type
  { TForm1 }
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    insert: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure insertClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }


procedure TForm1.insertClick(Sender: TObject);
begin
  Edit2.Text := MD5Print(MD5String(Edit1.Text));
end;
end.

bugxiong

我是用的dcpcrypt第三方组件来实现的

cuibq

不用第三方组件感觉更方便一些。不清楚他们两者之间的区别，dcpcrypt是否加密效果更强？

bugxiong

cuibq 发表于 2013-3-25 09:35
不用第三方组件感觉更方便一些。不清楚他们两者之间的区别，dcpcrypt是否加密效果更强？

我想第三方组件就是方便吧

bugxiong

我用的就是这个组件：http://www.fpccn.com/forum.php?m ... 2&highlight=dcp

kingson

MD5是一个标准，用什么方结果都是一样的，方便就好。

myfmwei

好简单

蜂中王

Delphi XE2木有这个功能
看来要赶紧换Lazarus了

cuibq

蜂中王 发表于 2013-9-10 19:10
Delphi XE2木有这个功能
看来要赶紧换Lazarus了

嗯 我一发现lazarus，立刻不用delphi了，呵呵。

蜂中王

cuibq 发表于 2013-9-11 17:23
嗯 我一发现lazarus，立刻不用delphi了，呵呵。

就是不知道能不能很好的兼容现有的系统...