Salut,
Pour ceux qui s'intéressent aux e-mail anonymes, voici un script qui va vous faciliter la tache. Il va vous permettre d'envoyer des e-mails anonymes avec des adresses imaginaires (vous pouvez par exemple envoyer un mail avec comme émetteur fbi(at)pentagone.gov très marrant pour traquer des amis

Vous copiez collez le script sur un bloc note, et vous enregistrez sous extension (.vbs) double click sur votre nouveau fichier pour le lancer et c'est tout...
Des fois l'email reçu est considéré comme spam...

Le script en bas ne va pas marcher car quand j'ai mis le script ici, les lignes longues ont été cassées par des retours à la ligne ce qui donne des erreurs... mais vous pouvez télécharger le fichier vbs directement par ici

[vous ne pouvez pas voir le lien].[enregistrez vous ici]


N.B: N'oubliez pas de changer le serveur smtp (en rouge) s'il ne marche pas chez vous

vous devez avoir windows 2000/XP ou bien outlook installé sur votre bécane

Et voici une liste des serveurs smtp des fournisseur d'accès les plus connu... donc si vous êtes chez free, utilisez smtp.free.fr pour un envoie assuré.

Menara ==> smtp.menara.ma
Free ==> smtp.free.fr
Magic Online ==> smtp.magic.fr
Club-Internet ==> mail.club-internet.fr
BD Way ==> mail.bdway.com
Wanadoo ==> smtp.wanadoo.fr
Easynet ==> smtp.easynet.fr
France Explorer ==> smtp.9online.fr
CompuServ ==> smtp.compuserv.com
ClaraNet ==> smtp.claranet.fr

j'ai commenté le code pour le rendre assez compréhensible... have fun

'======Couper ici=========

'Déclaration des variables nécessaires
Dim message, sujet, destinataire, expediteur
do
'on affecte l adresse expediteur sans les espaces des deux cotés à une variable
expediteur = trim(inputbox ("veuillez entrer l'email qui doit apparaitre chez la victime, exemple : bush (at) pentagone.gov","Expediteur---- "))
'Si l'utilisateur laisse le champ vide on l'informe
if expediteur = "" then
msgbox "Veuillez remplir ce champ il est obligatoir",vbinformation,"Snipermaker"
end if
'on répéte l'action jusqu'à ce que l'utilisateur remplit le champ expediteur
loop until expediteur ""
'ici le même truc si-dessus mais avec le champ destinataire
do
destinataire = trim(inputbox ("Entrer ici l'email du destinataire qui recevera le message :","Destinataire---- "))
if destinataire = "" then
msgbox "Veuillez remplir ce champ il est obligatoir",vbinformation,"Snipermaker"
end if
loop until destinataire ""
sujet = inputbox ("Veuillez choisir le sujet :","Sujet---- ")
'idem pour le champ message
do
message = trim(inputbox ("ecrire le message à envoyer ici :","Message---- "))
if message = "" then
msgbox "Mais voyons... vous n'allez commeme pas envoyer du vide hein ? allez tape un message avant de continuer",vbinformation,"Snipermaker"
end if
loop until message ""
'Ici le code qui permet d envoyer le mail avec tout les champs remplis
With CreateObject("CDO.Message")
.From= expediteur
.To= destinataire
.Subject = sujet
.TextBody= message
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.menara.ma"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
'Si une erreur apparait on continu...
On Error Resume Next
.Send
'On affiche l erreur s il y en a une
If Err Then MsgBox Err.description
'Si pas d erreur en confirme l envoie pas un message alert
if err = 0 then msgbox ("Tout a bien passé, le message est en route...")
'On informe l'utilisateur que le message est annulé au cas d erreur
if err 0 then msgbox ("grrrrrr une erreur est survenu, le message est annulé, veuillez réessaiyer ulterieurement")
On Error GoTo 0
End With

'=========Couper ici========

veuillez télécharger le script par ici [vous ne pouvez pas voir le lien].[enregistrez vous ici]

Amusez vous bien...

à l'aide de ce code j'ai créé sous visual basic un petit logiciel d'envoie des emails anonyme mais cette fois avec la possibilité de choisir une format pour le message (texte ou html) plus possibilité d'envoie deux fichiers comme pièces jointes et une interface plus pratique si vous êtes intéressés par le logiciel, il est sur la page de démarrage de mon site [vous ne pouvez pas voir le lien].[enregistrez vous ici]

Signature :
La plus part des gens respectent un badge.. Tous respectent une arme chargée. (Robert De Niro - Righteous Kill)