Faux server netbus 1.x pour faire croir que l'on vous hack mais c'est vous qui controlez tout


Télécharger le projet
Commenter

Description

des programmes dit anti-netbus existe et envoient pleins de messages à ceux qui veulent vous hacker, et prennet leurs IP... sans interet
Voila ce que j'avais débuté il y a longtemp pour etudier le fonctionnement de Netbus :
Vous connaissez tous Netbus ?
et bien moi j'ai fait un petit prog qui permet d'ouvrir le port 12345 (utilisé par netbus) et donc être détécté par un Scanner d'ip.
Donc, si quelqun trouve votre IP, il va tenter de vous hacker avec NetBus, et là, c'est vous qui lui envoyez les informations que vous voulez :
Par exemple, si il clique sur GET INFOS, vous lui envoyez le nom, adresse du torjen... que vous voulez...
Idem pour screenshot, controle mouse, listen et pour toutes les autres fonctions de NETBUS... Pour le lecteur cd une led s'allume lorsqu'il clique sur Open CD
Le seul pb, c'est que je ne l'ai pas terminé... alors si vous le terminez ou l'améliorez, envoyez le moi!! tounsie93000@hotmail.com

Source / Exemple : 


' Voici une parti du code : la plus importante !

Winsock1(Index).GetData coms$
List1.AddItem coms$
Text12.Text = coms$

If Mid(coms$, 1, 6) = "Eject;" Then
'Eject;0
'Eject;1
    If Mid(coms$, 7, 1) = 1 Then
    Label10.Caption = "CDRom : Ouvert"
    Picture2.Picture = Form2.Picture1.Picture
    StatusBar1.SimpleText = "CDRom ouvert par hacker"
    End If
    
    If Mid(coms$, 7, 1) = 0 Then
    Label10.Caption = "CDRom : Fermé"
    Picture2.Picture = Form2.Picture2.Picture
    StatusBar1.SimpleText = "CDrom Fermé par hacker"
    End If
End If

 If Mid(coms$, 1, 11) = "SwapButton;" Then
'SwapButton;1
'SwapButton;0
    If Mid(coms$, 12, 1) = 1 Then
    Label11.Caption = "Swap Mouse : Activé"
    Picture3.Picture = Form2.Picture1.Picture
    StatusBar1.SimpleText = "hacker vous à inversé les boutons de la souris"
    End If
    If Mid(coms$, 12, 1) = 0 Then
    Label11.Caption = "Swap Mouse : Non Activé"
    Picture3.Picture = Form2.Picture2.Picture
    StatusBar1.SimpleText = "hacker à retabli votre souris"
    End If
End If

  
 If Mid(coms$, 1, 7) = "Listen;" Then
'Listen;0
'Listen;1
    If Mid(coms$, 8, 1) = 1 Then
    Label12.Caption = "Listen : Activé"
    Picture4.Picture = Form2.Picture1.Picture
    StatusBar1.SimpleText = "hacker essai d'écouter ce que vous tapper sur votre clavier"
    End If
    If Mid(coms$, 8, 1) = 0 Then
    Label12.Caption = "Listen : Non Activé"
    Picture4.Picture = Form2.Picture2.Picture
    StatusBar1.SimpleText = "hacker arrête de d'écouter écouter sur votre clavier"
    End If
End If

 If Mid(coms$, 1, 10) = "ShowImage;" Then
'ShowImage;c:\1.bmp
Text9.Text = Mid(coms$, 11, Len(coms$) - 11)
Picture1.Picture = Form2.Picture1.Picture
Label7.Caption = "Actif"
StatusBar1.SimpleText = "hacker veut vous faire voir une image"
If Text9.Text = "" Then
Picture1.Picture = Form2.Picture2.Picture
Label7.Caption = "Aucune"
StatusBar1.SimpleText = "hacker à fermé l'image"
End If
End If
    
If Mid(coms$, 1, 12) = "SetMousePos;" Then
'SetMousePos;508;4
Picture5.Picture = Form2.Picture1.Picture
'Text13.Text = Mid(coms$, 13, Len(coms$) - 13)
StatusBar1.SimpleText = "hacker controle votre souris virtuel"
Dim Mouse() As String
Mouse = Split(Mid(coms$, 13, Len(coms$) - 13), ";")
Text13.Text = Mouse(0)
Text14.Text = Mouse(1)
End If

If Mid(coms$, 1, 10) = "PlaySound;" Then
'PlaySound;son.wav
Text15.Text = Mid(coms$, 11, Len(coms$) - 11)
Picture6.Picture = Form2.Picture1.Picture
Timer2.Interval = 1000
Timer2.Enabled = True
StatusBar1.SimpleText = "hacker veut vous faire écouter un son"
End If

If Mid(coms$, 1, 9) = "StartApp;" Then
'StartApp;c:\Windows\Calc.exe
Text10.Text = Mid(coms$, 10, Len(coms$) - 10)
Picture8.Picture = Form2.Picture1.Picture
Timer4.Interval = 1000
Timer4.Enabled = True
Label6.Caption = "Actif"

StatusBar1.SimpleText = "hacker veut démarrer un programme"
End If

If Mid(coms$, 1, 4) = "URL;" Then
'URL;http://www.casino.com
StatusBar1.SimpleText = "hacker veut vous faire visiter un bon site !"
Text16.Text = Mid(coms$, 5, Len(coms$) - 5)
Picture9.Picture = Form2.Picture1.Picture
Timer3.Interval = 1000
Timer3.Enabled = True
End If

If Mid(coms$, 1, 8) = "GetVolume" Then
StatusBar1.SimpleText = "hacker veut connêtre le niveau du son de votre carte son virtuel"
'GetVolume
Winsock1(Index).SendData "VolumeInfo;255;128;0" & Chr(13)

End If

If Mid(coms$, 1, 10) = "SetVolume;" Then
'SetVolume;92
Slider1 = Mid(coms$, 11, Len(coms$) - 11)
Picture20.Picture = Form2.Picture1.Picture
Timer5.Interval = 1000
Timer5.Enabled = True
End If

If Mid(coms$, 1, 9) = "KeyClick;" Then
'KeyClick;0
'KeyClick;1End If
End If

If Mid(coms$, 1, 8) = "Message;" Then
'Message;Suprise!
Text21.Text = Mid(coms$, 9, Len(coms$) - 9)
Picture18.Picture = Form2.Picture1.Picture
End If

If Mid(coms$, 1, 15) = "Dieu est grand" Then
Winsock1(Index).SendData "Info;Vous avez compris le message"
End If

If Mid(coms$, 1, 7) = "GetInfo" Then
'GetInfo
'Info;Program Path: D:\HACK\NETBUS170\PATCH.EXE|Restart persistent: Yes|Login ID: Salam ou Aleikom|Clients connected to this host: 1
Winsock1(Index).SendData "Info;Program Path: " & Text2.Text & "|Restart persistent: " & Text23.Text & "|Login ID: " & Text1.Text & "|Clients connected to this host: " & Text3.Text & Chr(13)
List2.AddItem "Info;Program Path: " & Text2.Text & "|Restart persistent: " & Text23.Text & "|Login ID: " & Text1.Text & "|Clients connected to this host: " & Text3.Text & Chr(13)
Text25.Text = "Info;Program Path: " & Text2.Text & "|Restart persistent: " & Text23.Text & "|Login ID: " & Text1.Text & "|Clients connected to this host: " & Text3.Text & Chr(13)
Picture7.Picture = Form2.Picture1.Picture
Timer6.Interval = 1000
Timer6.Enabled = True
End If

If Mid(coms$, 1, 7) = "GetApps" Then
'GetApps
'AppNames;Form1 (active)|Projet1|D:\Hack\NetBus170|D:\Mes documents\Nabil\Mes Programmes\TC-IP|Projet1 - Microsoft Visual Basic [exécution] - [Form1 (Code)]|Projet1 - Microsoft Visual Basic [exécution]|TCP/IP et Visual Basic... - Microsoft Internet Explorer|Projet1 - Microsoft Visual Basic [création] - [Form1 (Code)]|Projet1 - Microsoft Visual Basic [création]|Program Manager|
Winsock1(Index).SendData "AppNames;" & Text5.Text & "|" & Text6.Text & "|" & Text7.Text & "|" & Text8.Text & "|" & Text17.Text & "|" & Text18.Text & "|" & Text19.Text & "|" & Chr(13)
List2.AddItem "AppNames;" & Text5.Text & "|" & Text6.Text & "|" & Text7.Text & "|" & Text8.Text & "|" & Text17.Text & "|" & Text18.Text & "|" & Text19.Text & "|" & Chr(13)
Text25.Text = "AppNames;" & Text5.Text & "|" & Text6.Text & "|" & Text7.Text & "|" & Text8.Text & "|" & Text17.Text & "|" & Text18.Text & "|" & Text19.Text & "|" & Chr(13)
End If

If Mid(coms$, 1, 9) = "FocusApp;" Then
'FocusApp;Winamp
If Text5.Text = Mid(coms$, 10, Len(coms$) - 10) Then
Text5.Text = Text5.Text & " (active)"
End If

If Text6.Text = Mid(coms$, 10, Len(coms$) - 10) Then
Text6.Text = Text6.Text & " (active)"
End If

If Text7.Text = Mid(coms$, 10, Len(coms$) - 10) Then
Text7.Text = Text7.Text & " (active)"
End If

If Text8.Text = Mid(coms$, 10, Len(coms$) - 10) Then
Text8.Text = Text8.Text & " (active)"
End If

If Text17.Text = Mid(coms$, 10, Len(coms$) - 10) Then
Text17.Text = Text17.Text & " (active)"
End If

If Text18.Text = Mid(coms$, 10, Len(coms$) - 10) Then
Text18.Text = Text18.Text & " (Active)"
End If

If Text19.Text = Mid(coms$, 10, Len(coms$) - 10) Then
Text19.Text = Text19.Text & " (Active)"
End If
End If

If Mid(coms$, 1, 8) = "KillApp;" Then
'KillApp;
If Text5.Text = Mid(coms$, 9, Len(coms$) - 9) Then
Text5.Text = ""
End If

If Text6.Text = Mid(coms$, 9, Len(coms$) - 9) Then
Text6.Text = ""
End If

If Text7.Text = Mid(coms$, 9, Len(coms$) - 9) Then
Text7.Text = ""
End If

If Text8.Text = Mid(coms$, 9, Len(coms$) - 9) Then
Text8.Text = ""
End If

If Text17.Text = Mid(coms$, 9, Len(coms$) - 9) Then
Text17.Text = ""
End If

If Text18.Text = Mid(coms$, 9, Len(coms$) - 9) Then
Text18.Text = ""
End If

If Text19.Text = Mid(coms$, 9, Len(coms$) - 9) Then
Text19.Text = ""
End If
'réorganisation
Tier
Tier
Tier
Tier
Tier
Tier
Tier
End If

If Mid(coms$, 1, 11) = "SendKeys;0;" Then
'SendKeys;0;ok
Dim i As Integer
For i = 1 To Len((Mid(coms$, 12, Len(coms$) - 12)))
Winsock1(Index).SendData "Key;0;" + Mid((Mid(coms$, 12, Len(coms$) - 12)), i, 1) & Chr(13)
Next
Text27.Text = Text27.Text & Mid(coms$, 12, Len(coms$) - 12)
End If

If Mid(coms$, 1, 12) = "DisableKeys;" Then

If Mid(coms$, 13, 2) = "1;" Then
Lettres = Mid(coms$, 15, Len(coms$) - 15)
Picture24.Picture = Form2.Picture1.Picture
Label29.Caption = "Clavier : Lettre(s) désactivé(s)"
'DisableKeys;1;abcdefghijklmnopqrstuvwxyzåäö
'DisableKeys;0;
Command15.Enabled = True

If Mid(coms$, 15, Len(coms$) - 15) = "abcdefghijklmnopqrstuvwxyzåäö" Then
Label29.Caption = "Clavier : Désactivé"
Lettres = "abcdefghijklmnopqrstuvwxyzåäö"
Picture24.Picture = Form2.Picture1.Picture
Command15.Enabled = True
End If
End If

If Mid(coms$, 13, 2) = "0;" Then
Label29.Caption = "Clavier : Activé"
Command15.Enabled = False
Lettres = ""
Picture24.Picture = Form2.Picture2.Picture
End If

End If

 If Mid(coms$, 1, 9) = "SendKeys;" Then
'SendKeys;3;76
'SendKeys;2;68
If Mid(coms$, 10, 2) = "2;" Then
Text27.Text = Text27.Text & Asc(Mid(coms$, 12, Len(coms$) - 12))
End If

If Mid(coms$, 10, 2) = "3;" Then
End If

End If
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (tn1)