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

Soyez le premier à donner votre avis sur cette source.

Vue 16 747 fois - Téléchargée 1 074 fois


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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_xtoo
Messages postés
2
Date d'inscription
jeudi 2 décembre 2004
Statut
Membre
Dernière intervention
3 décembre 2004
-
merci
tn1
Messages postés
24
Date d'inscription
samedi 29 décembre 2001
Statut
Membre
Dernière intervention
1 novembre 2005
-
Merci, pour une fois qu'un de mes sources est apprécié ! mais mon source n'est pas pour le concour ! je ne savais pas ou le mettre, alors j'ai pris une cathégorie au hasard !
je modifie sa tout de suite
et meci de me l'envoyer si vous le continuiez/l'améliorez/ou le terminez à touns1@voila.fr
merci !
goebish
Messages postés
92
Date d'inscription
lundi 13 mai 2002
Statut
Membre
Dernière intervention
24 novembre 2008
-
Merci, ça faisait un moment que je cherchais les valeurs reçus par un serveur netbus...
cs_max12
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014
-
Spécial concours ?
cs_kud
Messages postés
23
Date d'inscription
dimanche 3 février 2002
Statut
Membre
Dernière intervention
23 novembre 2002
-
bravo et bien penser!

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.