md5form.pas

明小子旁注Domain3.0和Domain2.2两个版本源码

{##########################################
         旁注入侵专用程序 3.0升级版
 -----------------------------------------
  模块：MD5散列加密
  作者：2005.3.26日晚  明小子
##########################################}

unit MD5Form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,MD5, StdCtrls;

type
  TMD5Frm = class(TForm)
    LbEncrypt_1: TLabel;
    LbEncrypt_3: TLabel;
    LbEncrypt_2: TLabel;
    EdMing: TEdit;
    Encrypt_16: TEdit;
    Encrypt_32: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MD5Frm: TMD5Frm;

implementation

{$R *.dfm}

procedure TMD5Frm.Button1Click(Sender: TObject);
begin
  EdMing.Clear;
  Encrypt_16.Clear;
  Encrypt_32.Clear;
end;

procedure TMD5Frm.Button2Click(Sender: TObject);
var
  s: string;
begin
  s := RivestStr(EdMing.Text);
  s := copy(s, 9, 16);
  Encrypt_16.Text := s;
  Encrypt_32.Text := RivestStr(EdMing.Text);
end;

procedure TMD5Frm.FormCreate(Sender: TObject);
begin
 MD5Frm.FormStyle := fsStayOnTop;
end;

end.