|
Проблема с подключением к списку login;password
|
|
| MAS | Дата: Пятница, 01.08.2014, 21:34 | Сообщение # 1 |
Участник
Зарегистрирован: 16.08.2013
Группа: Пользователи
Сообщений: 67
Статус: Offline
| Привет всем, я хотел написать спамер, без edit'ов. Типо-прога берёт Список мыл с сервера, с html страницы, можно с txt на компе который (с html страницы лучше) и по ним шлет сообщения. А аки с которых будет идти спам будет брать тоже или с компавского txt или с серва,с html страницы, список с которых идет спам типо токого обычно выглядит
2424424@mail.ru ;pass
34535454@bk.ru ;passw
у меня есть пока не робочая прога (список мыл,куда будут идти сообщ. не знаю как реализовать)
Код
Memo1.Clear;
Memo1.Lines.LoadFromFile('C:\Users\User\Desktop\2.txt');
IdSMTP1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25 ;
IdSMTP1.Username:='блаа';
IdSMTP1.Password:='123';
IdMessage1.Body.Text:='блаааа';
IdMessage1.From.Text:='бла@yandex.ru';
IdMessage1.Recipients.EMailAddresses:= Memo1.Address;
IdMessage1.Subject:='eeaaa.. fuck dat shit';
IdSMTP1.Connect();
if IdSMTP1.Connected=true then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect
Как отправить сообщения всем Адресам из мемо?? (вопросов много, 1 хотябы решить хочу, любой), не придумаю не че, и не нашел.
За одну ночь нельзя изменить свою жизнь, но за одну ночь можно изменить мысли которые изменят твою жизнь. (MAS)
Сообщение отредактировал MAS - Пятница, 01.08.2014, 21:39 |
| |
| |
| d4rkzy | Дата: Воскресенье, 03.08.2014, 23:43 | Сообщение # 2 |
Постоянный
Зарегистрирован: 15.11.2013
Группа: Пользователи
Сообщений: 135
Статус: Offline
| Забудь о спаммере на компонентах, после 5 отправленных писем тебя в бан поставят.
ответ на твой вопрос: for i := 1 to memo1.lines используй, подробей в гугле.
|
| |
| |
| MAS | Дата: Вторник, 05.08.2014, 20:25 | Сообщение # 3 |
|
Участник
Зарегистрирован: 16.08.2013
Группа: Пользователи
Сообщений: 67
Статус: Offline
| Цитата d4rkzy (  ) подробей в гугле.
не нашел, мне не нужно с 1 мемо на 2 копировать.
За одну ночь нельзя изменить свою жизнь, но за одну ночь можно изменить мысли которые изменят твою жизнь. (MAS)
|
| |
| |
| dolphin | Дата: Пятница, 15.08.2014, 21:49 | Сообщение # 4 |
Администратор
Сообщений: 906
Статус: Offline
| Это ?
Код
var
L: TStringList;
...
begin
L:=TStringList.Create;
L.LoadFromFile('akkaunts.txt');
login:= StrToInt(Copy(l.Strings[i],1,pos(';',l.Strings[i])));
Password:= copy(l.Strings[i],pos(';',l.Strings[i])+1,length(l.Strings[i]));
end;
Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
| |
| MAS | Дата: Среда, 20.08.2014, 21:00 | Сообщение # 5 |
|
Участник
Зарегистрирован: 16.08.2013
Группа: Пользователи
Сообщений: 67
Статус: Offline
| Цитата dolphin ( ) Это ?
Нужно еще отправить письмо списку из memo, как это сделать? Хотя бы с одного ака.
За одну ночь нельзя изменить свою жизнь, но за одну ночь можно изменить мысли которые изменят твою жизнь. (MAS)
|
| |
| |
| dolphin | Дата: Среда, 20.08.2014, 21:25 | Сообщение # 6 |
|
Администратор
Сообщений: 906
Статус: Offline
| Актуализировал отправку примерно пол года назад, может больше, код был рабочий из под всех делфей и форточек соответственно.
Доступно только для пользователей
Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
| |
| XSPY | Дата: Четверг, 21.07.2016, 22:27 | Сообщение # 7 |
Продвинутый
Зарегистрирован: 28.01.2010
Группа: Пользователи
Сообщений: 263
Статус: Offline
| Долфин, а какие лимиты на отправку есть в этом сорсе? какой smtp используется в компоненте? (я имею в виду имя сервера- sendmail, etc)?
Я не крекер,а программист!
Я не преступник-я свободный человек!
Лучше один раз накодить,чем сто раз качать билды!
|
| |
| |
| dolphin | Дата: Пятница, 05.08.2016, 22:49 | Сообщение # 8 |
|
Администратор
Сообщений: 906
Статус: Offline
| XSPY, актуально? Сейчас вроде бы все на ssl перешли в основном.
Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
| |
