Проблема с написанием брута ICQ в Делфи
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
Проблема с написанием брута ICQ в Делфи - 2010-05-18 15:18:45.366666
|
|
|
AleksNEW
Сообщений: 1019
Оценки: 0
Присоединился: 2010-01-17 08:35:42.933333
|
Вообщем такая проблема, кстати приветствую всех При подключении к ICQ (пишу брут по диапазону) на верный PASS выводится сообщение, что PASS не верный.. (проверял на своем UIN` - е) вот исходник:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ICQClient, StdCtrls;
type
TForm1 = class(TForm)
ICQClient1: TICQClient;
Timer1: TTimer;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Memo1: TMemo;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var pass: integer;
begin
icqclient1.UIN:= pass;
for pass:= strtoint(edit1.Text) to strtoint(edit2.Text) do
begin
icqclient1.Password:= edit3.Text;
if icqclient1.LoggedIn then
memo1.Lines.Add(inttostr(pass)+';'+edit3.Text+' good');
if icqclient1.LoggedIn = false then
memo1.Lines.Add(inttostr(pass)+';'+edit3.Text+' bad');
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:= true;
end;
end.
|
|
|
RE: Проблема с написанием брута ICQ в Делфи - 2010-05-18 16:58:23.990000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Почему в UIN заносится пароль, который = 0? Какой смысл делать цикл, если ты всё время подставляешь пароль из edit3?
|
|
|
RE: Проблема с написанием брута ICQ в Делфи - 2010-05-18 18:39:17.903333
|
|
|
AleksNEW
Сообщений: 1019
Оценки: 0
Присоединился: 2010-01-17 08:35:42.933333
|
Заметил оплошность.. Исправил.. но все равно робить не хочет
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ICQClient, StdCtrls;
type
TForm1 = class(TForm)
ICQClient1: TICQClient;
Timer1: TTimer;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Memo1: TMemo;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var uin3: integer;
uin1, uin2: string[9];
pass: string;
begin
icqclient1.UIN:= uin3;
icqclient1.Password:= pass;
pass:= edit3.Text;
uin1:= edit1.Text;
uin2:= edit2.Text;
for uin3:= strtoint(uin1) to strtoint(uin2) do
begin
if icqclient1.LoggedIn then
memo1.Lines.Add('aa')
else
memo1.Lines.Add('ss');
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:= true;
end;
end.
|
|
|
RE: Проблема с написанием брута ICQ в Делфи - 2010-05-18 18:43:11.660000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Ну и какой смысл что-то вызывать с UIN == 0 и пустым паролем, uin2-uin1 раз?! Естественно не залогинится ничего.
|
|
|
RE: Проблема с написанием брута ICQ в Делфи - 2010-05-18 18:54:20.303333
|
|
|
AleksNEW
Сообщений: 1019
Оценки: 0
Присоединился: 2010-01-17 08:35:42.933333
|
я вписываю данные в edit1 и edit2 после чего включаю таймер который включает цикл…. блин… я вообще туплю…. ааааааааааааааааааааааа я ламер((( ничего не понял……….. вроде все норм пишу а почему не логинется непойму _SaZ_ в какой строчке ошибка?
|
|
|
RE: Проблема с написанием брута ICQ в Делфи - 2010-05-18 19:00:49.450000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
quote:
ORIGINAL: AleksNEW в какой строчке ошибка? Ошибка в гене, ответственном за появление формошлёпов. Не вижу смысла что-то объяснять, пока ты не освоишь основы программирования. Если хочешь найти ошибку - найди у себя в коде место, где ты заносишь логин и пароль в компонент, и подумай, какие значения туда попадают. Как найдёшь - выкладывай прокоментированный код.
|
|
|
RE: Проблема с написанием брута ICQ в Делфи - 2010-05-20 18:59:04.973333
|
|
|
Zmaster
Сообщений: 930
Оценки: 0
Присоединился: 2007-02-09 19:02:43.500000
|
AleksNEW, знаешь что такое отладчик? Смотри значения переменных на разных этапах выполнения (в том числе этап авторизации).
|
|
|
RE: Проблема с написанием брута ICQ в Делфи - 2010-05-20 19:42:32.283333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Какой отладчик? Какие значения переменных? Если человек даже не понимает, что, где и чему он присваивает. Тут надо самые азы учить, начать с алгоритмизации.
|
|
|
RE: Проблема с написанием брута ICQ в Делфи - 2010-05-20 19:53:59.796666
|
|
|
Zmaster
Сообщений: 930
Оценки: 0
Присоединился: 2007-02-09 19:02:43.500000
|
***тихо сам с собою: Вот что значит пользоваться готовыми компонентами, реализующие работу сетевых протоколов. Вот я писал все вручную с помощью windows sockets и не задаю глупых вопросов ;) AleksNEW, ты правда, напиши карандашиком для себя алгоритмичек, где расписано, разрисовано что за чем, что куда и для чего.
|
|
|
|
|