Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.08.2009, 21:35   #1
TwiX
Участник клуба
 
Аватар для TwiX
 
Регистрация: 28.07.2009
Сообщений: 1,510
По умолчанию Работа с интернетом. А именно как посылать запросы и получать ответы.

Т.е. например есть почта - надо посылать комбинации логин-пароль и узнавать, подходят ли они. Т.е. брут. Как это можно сделать?
TwiX вне форума Ответить с цитированием
Старый 04.08.2009, 22:29   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

компоненты ИнДи можешь использовать(вкладка InDy Client, компонент idSMTP/idPOP)
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 05.08.2009, 01:40   #3
DeDoK
Форумчанин
 
Аватар для DeDoK
 
Регистрация: 05.11.2007
Сообщений: 392
По умолчанию

а если это брут асек? как тогда? через сокеты? и куда коннект?
DeDoK вне форума Ответить с цитированием
Старый 05.08.2009, 02:09   #4
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

можно компонент TICQClient использовать
или чисто через сокеты...коннект к серверам аси конечно
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 05.08.2009, 02:17   #5
DeDoK
Форумчанин
 
Аватар для DeDoK
 
Регистрация: 05.11.2007
Сообщений: 392
По умолчанию

все это хорошо, но насколько я знаю в клиенте прокси плохо проработаны, а реализации соединения сокетов через прокси не встречал
DeDoK вне форума Ответить с цитированием
Старый 05.08.2009, 07:20   #6
KORN
Банхаммер
Участник клуба
 
Аватар для KORN
 
Регистрация: 17.02.2007
Сообщений: 1,754
По умолчанию

в большинстве компонентов прокси уже встроены в конце концов есть компонент для того что бы подключаться через прокси
Перед тем как спросить ищи на форуме и в GOOGLE
KORN вне форума Ответить с цитированием
Старый 05.08.2009, 07:43   #7
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

DeDoK, вы кстати смотрели в инете?
есть разные версии компонента...ктото модернизирует его сам...взяв за основу одну версию...и добавляя функций с другой
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 05.08.2009, 08:10   #8
mavlon_m
Форумчанин
 
Регистрация: 04.08.2009
Сообщений: 101
По умолчанию

procedure TForm1.Button1Click(Sender: TObject);
begin
IdPOP31.Host:='pop.mail.ru'; //Если через прокси, нужно через ip 94.100.177.1
IdPOP31.UserId:='maston_a@mail.ru';// адрес отправитеь
IdPOP31.Password:='1234566'; // пароль отправитель
IdPOP31.Connect;

NMSMTP1.Host := 'smtp.mail.ru'; // Если через прокси, нужно через ip 94.100.177.1
NMSMTP1.UserID := 'maston_a'; // логин отправитель
NMSMTP1.Connect;

// отправим
NMSMTP1.PostMessage.FromAddress := 'maston_a@mail.ru';
NMSMTP1.PostMessage.ToAddress.Text := 'mavlon_m@mail.ru';
NMSMTP1.PostMessage.Body.Text := 'текст';
NMSMTP1.PostMessage.Subject := 'Заголовок';

NMSMTP1.SendMail();
NMSMTP1.Disconnect;

end;
mavlon_m вне форума Ответить с цитированием
Старый 05.08.2009, 08:15   #9
mavlon_m
Форумчанин
 
Регистрация: 04.08.2009
Сообщений: 101
По умолчанию

procedure TForm1.Button1Click(Sender: TObject);
begin
IdPOP31.Host:='pop.mail.ru'; //Если через прокси, нужно через ip 94.100.177.6
IdPOP31.UserId:='maston_a@mail.ru';// адрес отправитеь
IdPOP31.Password:='1234566'; // пароль отправитель
IdPOP31.Connect;

NMSMTP1.Host := 'smtp.mail.ru'; // Если через прокси, нужно через ip 94.100.177.1
NMSMTP1.UserID := 'maston_a'; // логин отправитель
NMSMTP1.Connect;

// отправим
NMSMTP1.PostMessage.FromAddress := 'maston_a@mail.ru';
NMSMTP1.PostMessage.ToAddress.Text := 'mavlon_m@mail.ru';
NMSMTP1.PostMessage.Body.Text := 'текст';
NMSMTP1.PostMessage.Subject := 'Заголовок';

NMSMTP1.SendMail();
NMSMTP1.Disconnect;

end;
mavlon_m вне форума Ответить с цитированием
Старый 05.08.2009, 11:12   #10
TwiX
Участник клуба
 
Аватар для TwiX
 
Регистрация: 28.07.2009
Сообщений: 1,510
По умолчанию

Как я понимаю, это отправка письма?
TwiX вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с интернетом в Delphi Levhik Работа с сетью в Delphi 4 12.03.2009 00:34
Как вывести содержимое StringGrid на принтер именно в виде таблицы program123 Компоненты Delphi 4 14.02.2009 16:24
Как получать данные из чертежа CAD системы Компас V7? Stilet Общие вопросы Delphi 0 28.01.2009 16:11
как разорвать соединение с интернетом shurik_7866 Работа с сетью в Delphi 0 22.01.2008 20:32
Junk E-Mail Reporting Program, Как получать от нее инфу? timax PHP 3 16.10.2007 14:49