Пятница, 29.03.2024, 09:13 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024  
delphicode » Delphi » Вопросы по Delphi » Проблема с подключением к списку login;password
Проблема с подключением к списку 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

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
delphicode » Delphi » Вопросы по Delphi » Проблема с подключением к списку login;password
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz