Fa un fals avansat pe Delphi
Buna ziua tuturor eu _Alien_
Acum vom face VKontakte fals (de exemplu) pe Delphi
Ce va fi capabil să facă:
1. Trimiteți datele de conectare și parola pentru trimitere prin poștă
2. Trimiterea unei adrese IP
3. Validarea valabilității
Să începem!
În primul rând, de a crea un nou proiect, apoi în inspectorul obiect pentru a „forma“, a borderStyle proprietate a pus valoare bsDialog (trebuie să aibă forma de butoane nu au fost „ascunde și de a crește“) de îndată ce vă puteți aranja krestik.Dalshe modela stilul de contact, cum ar fi:
A acumulat cu o mână rapidă!
Deci, haideți să ajungem la principalele activități!
2 este aruncat în formă de editare, butonul, idhttp (clienti fila Indy), idSMTP (clienți fila Indy), idMessage (fila Indy Diverse) și idAntyFreeze (fila Indy Misc) else adăuga la aspectul!
Click pe idSMTP și AuthenticationType proprietate parametru setat „atLogin“, de asemenea, pe nazhmine idHTTP și parametrul HandleRedirects pune valoarea „True“
Să mergem la codificare!
Faceți clic de două ori pe buton, puneți datele variabile, s, e: șir;
și între început și sfârșit; scrieți următorul cod:
idSmtp1.Connect ();
dacă idSmtp1.Connected = true atunci
idSmtp1.Send (idMessage1);
idSmtp1.Disconnect;
se încheie;
Ar trebui să arate astfel:
idSmtp1.Connect ();
dacă idSmtp1.Connected = true atunci
idSmtp1.Send (idMessage1);
idSmtp1.Disconnect;
se încheie;
Vă sfătuiesc să utilizați Yandex Mail pentru săpunul de la care trimite! și săpun pe care datele nu este important, chiar dacă poștă, chiar Yandex, deși Rambler
Ei bine, atunci toate cele mai importante lucruri au făcut) Cred că cu restul va înțelege! Vreau să spun: Aspectul și modul în care va falsifica "ridicarea ratingului" în citate =))) sau "trimite cadouri" este același)))
Voi explic doar câteva aspecte:
începe
dacă se modifică1. text <> „“ Atunci
începe
Button1. Enabled: = true
incheie altceva
Button1. Enabled: = false;
se încheie;
Dacă am șterge evenimentul edit1 în agendă de evenimente, atunci nu pot să dau clic pe butonul dacă nu există text în 1! (puteți schimba componentele)
Proprietatea Enabled este responsabilă pentru vizibilitatea componentelor. adevărat este implicat. false nu este activată.
SetWindowLong (Application.Handle.GWL_EXSTYLE.NOT WS_EX_APPWINDOW);
Ascundeți de pe bara de activități!
Aa și dacă va da o eroare la sfârșit. apoi adăugați înainte de sfârșit. încă un capăt; CDM
Și nu uitați să aruncați pe formularul XPmanifest (pentru aspect)
Eu intreb fara FLUDA!
Uh. Și ce, OllyDebugger sau IdaPro deja nu știu cum?
ASPack în 2 clicuri este eliminat chiar și prin dezarhivarea automată.
Conectați-vă și parola la momentul trimiterii clare, chiar dacă acestea sunt criptate.
Deși eu, de exemplu, conectez o unitate auto-făcut de anti-depanare și este destul de dificil de depanare =)
__________________
[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 (verificat rare)
[/ B] [/ COLOR]
[B] Sanguine, fratele meu! [/ B]
A plecat. Rețeaua este rară. [/ FONT]
Articole similare
Trimiteți-le prietenilor: