optionunit.pas

邮箱探测原程序,可以在远程对他人的邮箱进行探测,得到其号码

unit OptionUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, StdCtrls,registry, ComCtrls, ExtCtrls;

type
  TOptionForm = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    OpenDlg: TOpenDialog;
    PageControl1: TPageControl;
    UserPage: TTabSheet;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label1: TLabel;
    BrowseBtn: TSpeedButton;
    UserIDEdit: TEdit;
    POPEdit: TEdit;
    POPPortEdit: TEdit;
    PassEdit: TEdit;
    ReceEdit: TEdit;
    SpyPage: TTabSheet;
    Panel1: TPanel;
    ShowCheck: TCheckBox;
    RetypeCheck: TCheckBox;
    Label3: TLabel;
    TimerEdit: TEdit;
    Label5: TLabel;
    TryCheck: TCheckBox;
    IsMoreCheck: TCheckBox;
    procedure CancelBtnClick(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure BrowseBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RetypeCheckClick(Sender: TObject);
    procedure TryCheckClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    IniFile  :TRegIniFile;
  end;

var
  OptionForm: TOptionForm;
implementation

{$R *.DFM}
procedure TOptionForm.CancelBtnClick(Sender: TObject);
begin
     Close;
end;

procedure TOptionForm.OKBtnClick(Sender: TObject);
var
   str:shortstring;
   i:integer;
begin
     if PassEdit.Text='' then
     begin
          if MessageDlg('没有密码?',mtConfirmation,[mbYes,mbNo],0)=mrNo then
             Exit;
     end;
     str:=PassEdit.Text;
     for i:=1 to length(PassEdit.Text)do
         str[i]:=char((ord(str[i])+65) mod 256);
     IniFile.WriteString('eMail Spy !','UserID',UserIDEdit.Text);
     IniFile.WriteString('eMail Spy !','Password',str);
     IniFile.WriteString('eMail Spy !','Mail Server',POPEdit.Text);
     IniFile.WriteInteger('eMail Spy !','Server Port',StrToInt(POPPortEdit.Text));
     IniFile.WriteString('eMail Spy !','Receiver',ReceEdit.Text);
     IniFile.WriteInteger('eMail Spy !','Timer Interval',StrToInt(TimerEdit.Text));
     if ShowCheck.Checked then
          IniFile.WriteInteger('eMail Spy !','ShowWindow',1)
     else
          IniFile.WriteInteger('eMail Spy !','ShowWindow',0);
     if RetypeCheck.Checked then
          IniFile.WriteInteger('eMail Spy !','Retype',1)
     else
          IniFile.WriteInteger('eMail Spy !','Retype',0);
     if TryCheck.Checked then
          IniFile.WriteInteger('eMail Spy !','AutoTry',1)
     else
          IniFile.WriteInteger('eMail Spy !','AutoTry',0);

     if IsMoreCheck.Checked then
          IniFile.WriteInteger('eMail Spy !','IsMore',1)
     else
          IniFile.WriteInteger('eMail Spy !','IsMore',0);
     MessageDlg('eMail Spy! 注册成功！下次启动时将使用新设置的参数。',mtInformation,[mbYes],0);
     Close;


end;

procedure TOptionForm.BrowseBtnClick(Sender: TObject);
begin
     if OpenDlg.Execute then
        ReceEdit.Text :=OpenDlg.FileName;
end;

procedure TOptionForm.FormCreate(Sender: TObject);
var
    str:string;
    i:integer;
begin
     IniFile:=TRegIniFile.Create('Jie Application');
     UserIDEdit.Text :=IniFile.ReadString('eMail Spy !','UserID','');
     str:=IniFile.ReadString('eMail Spy !','Password','');
     for i:=1 to length(str)do
         str[i]:=char((ord(str[i])-65) mod 256);
     PassEdit.Text :=str;
     POPEdit.Text :=IniFile.ReadString('eMail Spy !','Mail Server','10.0.0.2');
//     POPPortEdit.Text :=IniFile.ReadInteger('eMail Spy !','Server Port',110);
     ReceEdit.Text:=IniFile.ReadString('eMail Spy !','Receiver','');
     TimerEdit.Text :=IntToStr(IniFile.ReadInteger('eMail Spy !','Timer Interval',5));
     if IniFile.ReadInteger('eMail Spy !','ShowWindow',1)=1 then
        ShowCheck.Checked :=True
     else
        ShowCheck.Checked :=False;
     if IniFile.ReadInteger('eMail Spy !','AutoTry',1)=1 then
        TryCheck.Checked :=True
     else
        TryCheck.Checked :=False;
     if IniFile.ReadInteger('eMail Spy !','Retype',1)=1 then
        RetypeCheck.Checked :=True
     else
        RetypeCheck.Checked :=False;
     if IniFile.ReadInteger('eMail Spy !','IsMore',1)=1 then
        IsMoreCheck.Checked :=True
     else
        IsMoreCheck.Checked :=False;
end;

procedure TOptionForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    IniFile.Free;
    Action:=caFree;
end;

procedure TOptionForm.RetypeCheckClick(Sender: TObject);
begin
	if RetypeCheck.Checked then
    	TryCheck.Checked :=False;
end;

procedure TOptionForm.TryCheckClick(Sender: TObject);
begin
	if TryCheck.Checked then
    	RetypeCheck.Checked :=False;
end;

end.