Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: Alien's Mass Mailer ::

 
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: Dim 11 Déc - 19:10 (2011)    Sujet du message: Alien's Mass Mailer Répondre en citant

Voici un simple mass mailer il n'est pas parfait mais je posterai des amélioration au fur et à mesure.

Le fichier texte devra contenir les adresses mail sur une seule ligne séparé par une virgule suivi d'un espace.

Exemple:

Citation:
mail1@domaine.com, mail2@live.com, mail3@gmail.com








  1. Imports System.Net.Mail  
  2. Imports System.Net.Mime  
  3. Imports System.Net.NetworkCredential  
  4. Imports System.Net  
  5. Public Class Form1  
  6.   
  7.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  8.         Dim mail As New MailMessage()  
  9.   
  10.         'set the addresses  
  11.         mail.From = New MailAddress(TextBox4.Text)  
  12.         mail.To.Add(TextBox1.Text)  
  13.   
  14.         'set the content  
  15.         mail.Subject = TextBox2.Text  
  16.         mail.Body = RichTextBox1.Text  
  17.   
  18.         Dim smtpServer As New SmtpClient()  
  19.         smtpServer.Port = ComboBox2.SelectedItem  
  20.         smtpServer.Host = ComboBox1.SelectedItem  
  21.         smtpServer.EnableSsl = True  
  22.         smtpServer.Credentials = New NetworkCredential(TextBox4.Text, TextBox3.Text)  
  23.         smtpServer.Send(mail)  
  24.   
  25.         MsgBox("Mail send !")  
  26.     End Sub  
  27.   
  28.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
  29.         Me.Close()  
  30.     End Sub  
  31.   
  32.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click  
  33.         Dim fileReader As String  
  34.         Dim ofd As New OpenFileDialog  
  35.         ofd.Filter = "Texte Files|*.txt"  
  36.         ofd.ShowDialog()  
  37.         fileReader = My.Computer.FileSystem.ReadAllText(ofd.FileName)  
  38.         TextBox1.Text = fileReader  
  39.     End Sub  
  40. End Class  



________________

faites attention dans mon code les textbox commencent de 4 vers le 1, a cause des test d'importation d'adresse mail du destinataire.

La prochaine évolution du tool c'est le codage du mail en html.

Le passe est facultatif que pour le port 25 vu que certain serveur mail n'utilise pas d'authentification.

Mais pour les autres il est obligatoire.

Malheureusement le port 25 me met une erreur que je dois régler, erreur que je ne retrouve pas en python.


Revenir en haut
Publicité






MessagePosté le: Dim 11 Déc - 19:10 (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