unit HotmailCreator;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw, Registry;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    WebAddress: TLabel;
    NameLabel: TLabel;
    PassLabel: TLabel;
    GenUsername: TButton;
    GenPassword: TButton;
    UserName: TEdit;
    Password: TEdit;
    Start: TButton;
    Stop: TButton;
    MakeLabel: TLabel;
    AcctsMake: TEdit;
    IdsList: TListBox;
    SaveIds: TButton;
    ClearIds: TButton;
    IdsLbl: TLabel;
    FwdLabel: TLabel;
    FwdEmail: TEdit;
    Properties: TGroupBox;
    ForwardEmail: TCheckBox;
    Proxy: TCheckBox;
    ProxyLabel: TLabel;
    ProxyEdit: TEdit;
    SetProxy: TButton;
    procedure FormCreate(Sender: TObject);
    procedure GenUsernameClick(Sender: TObject);
    procedure GenPasswordClick(Sender: TObject);
    procedure ClearIdsClick(Sender: TObject);
    procedure ForwardEmailClick(Sender: TObject);
    procedure SaveIdsClick(Sender: TObject);
    procedure StartClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate(WebAddress.Caption);
  WebAddress.Visible := False;
  FwdEmail.Enabled := False;
  Stop.Enabled := False;
  Fwdlabel.Enabled := False;
  ProxyLabel.Enabled := False;
  ProxyEdit.Enabled := False;
  SetProxy.Enabled := False;
end;

procedure TForm1.GenUsernameClick(Sender: TObject);
const
  Chars = '23456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
var
  S: string;
  i, N: integer;
begin
  Randomize;
  S := '';
  for i := 1 to 8 do begin
    N := Random(Length(Chars)) + 1;
    S := S + Chars[N];
  end;
   UserName.Text:= S;
end;

procedure TForm1.GenPasswordClick(Sender: TObject);
const
  Chars = '23456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
var
  S: string;
  i, N: integer;
begin
  Randomize;
  S := '';
  for i := 1 to 8 do begin
    N := Random(Length(Chars)) + 1;
    S := S + Chars[N];
  end;
   Password.Text:= S;
end;


procedure TForm1.ClearIdsClick(Sender: TObject);
begin
 IdsList.Clear;
 IdsLbl.Caption := 'Ids: 0';
end;

procedure TForm1.ForwardEmailClick(Sender: TObject);
begin
 If ForwardEmail.Checked then FwdEmail.Enabled :=True else FwdEmail.Enabled := False;
 If ForwardEmail.Checked then FwdLabel.Enabled :=True else FwdLabel.Enabled :=False;
 If Proxy.Checked then Proxylabel.Enabled :=True else ProxyLabel.Enabled := False;
 If Proxy.Checked then ProxyEdit.Enabled := True else ProxyEdit.Enabled := False;
 If Proxy.Checked then SetProxy.Enabled :=True else SetProxy.Enabled :=False;
end;

procedure TForm1.SaveIdsClick(Sender: TObject);
begin
 IdsList.Items.SaveToFile(ExtractFilePath(Application.ExeName) + 'Ids.txt');
end;

procedure ErrorMessage(Sender: TObject);
begin
 ShowMessage('Please Enter An Email You Wish To Forward To');
 EXIT;
end;

procedure TForm1.StartClick(Sender: TObject);
begin
  if form1.AcctsMake.Text = '' then
  begin
    ShowMessage('Please Enter Ammount of Emails to Make');
    EXIT;
  end;
  Start.Enabled := False;
  Stop.Enabled := True;
end;

procedure setProxy(proxy: string);
var
   reg: TRegistry;
   enabled: integer;
begin
   reg:=TRegistry.Create;
   with reg do begin
    try
 if proxy = '' then
    reg.WriteBool('ProxyEnable', false);

    RootKey := HKEY_CURRENT_USER;
     if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', False) then begin

      reg.WriteString ('ProxyServer', proxy) ;
      reg.WriteBool('ProxyEnable', true);

     end
    finally
      reg.Free;
    end;
   end;

end;
end.