Sharppacp Packet senden Problem.

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von nikeee13.

    Sharppacp Packet senden Problem.

    Hallo,

    Im moment versuche ich mit sharppcap TCPPackete zusenden. Leider schaffe ich es nicht ich habe schon gegoogelt aber Leider nix aktuelles gefunden.
    Hier erstmal das der Code um Packete zuempfangen das Funktioniert auch.

    VB.NET-Quellcode

    1. Private Sub Device_OnPacketArrival(ByVal sender As Object, ByVal e As SharpPcap.CaptureEventArgs) Handles
    2. Device.OnPacketArrival
    4. CheckForIllegalCrossThreadCalls = False '
    6. Dim retPacket As Packet = Packet.ParsePacket(CType(1, LinkLayers), e.Packet.Data)
    8. Dim contcpPacket As TcpPacket = TcpPacket.GetEncapsulated(retPacket)
    10. If contcpPacket.SourcePort = 8101 Then
    12. Dim retdata As String = ASCII.GetString(contcpPacket.PayloadData)
    14. 'String Verarbeiten.
    16. 'Neues Packet Senden.
    18. SendPacket("L|1|0|0|0&S|0|0|2&", contcpPacket.DestinationPort, contcpPacket.SourcePort)
    20. MsgBox("gesendet")
    21. End If
    22. End Sub






    Hier die Funk zum Senden:

    VB.NET-Quellcode

    1. Public Function SendPacket(ByVal msg As String, ByVal sport As UShort, ByVal dport As UShort) As Boolean
    3. Dim tpack As New TcpPacket(sport, dport)
    5. tpack.PayloadData = ASCII.GetBytes(msg)
    7. Device.SendPacket(tpack)
    9. End Function

    Und Hier noch Form_Load:

    VB.NET-Quellcode

    1. TopMost = True
    3. 'Selecting Device
    6. Try
    8. Devices = CaptureDeviceList.Instance
    10. Catch ex As Exception
    12. MessageBox.Show("Please install Winpcap and restart the Application!", "SFCatcher Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
    14. End
    15. End Try
    17. If Devices.Count < 1 Then
    19. MessageBox.Show("No devices found!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
    22. End
    24. End If
    26. If Devices.Count > 1 Then
    28. For Each dev In Devices
    30. Using devdialog As New DeviceDialog
    32. devdialog.list_devices.Items.Add(dev.Name)
    34. If devdialog.ShowDialog = Windows.Forms.DialogResult.OK Then
    35. iDeviceID = devdialog.list_devices.SelectedIndex
    37. Device = Devices(iDeviceID)
    39. End If
    41. End Using
    43. Next
    45. ElseIf Devices.Count = 1 Then
    47. iDeviceID = 0
    49. Device = Devices(iDeviceID)
    52. End If
    55. '//Open Device
    57. Device.Open(DeviceMode.Promiscuous, 1000)
    60. Device.Filter = "tcp"
    62. Device.StartCapture()

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Tantra“ ()

    Würdest Du demjenigen helfen, der solch gequirlten Quelltext abliefert :?:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Nutze den Quellcodeeditor. Alles andere macht nur Probleme.

    Weiterhin sehe ich die Zeile zum Aktivieren des Net1.1 Verhaltens (control.checkforilligalblabla).
    Egal, was du gemacht hast, das ist das Problem. Mit deaktivierter Überprüfung gibt es die merkwürdigsten Fehler aller Zeiten...

    Gruß,
    Manawyrm

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Manawyrm“ ()

    Wenn du dich ein wenig auf der Seite umgesehen hättest, hättest du bemerkt, dass beim Sourcecode Beispiele dabei sind.

    Das musst du nur mehr nach vb.net übersetzen:
    Spoiler anzeigen

    Brainfuck-Quellcode

    1. using System;
    2. using System.Collections.Generic;
    3. using SharpPcap;
    5. namespace Example9
    6. {
    7. public class DumpTCP
    8. {
    9. public static void Main(string[] args)
    10. {
    11. // Print SharpPcap version
    12. string ver = SharpPcap.Version.VersionString;
    13. Console.WriteLine("SharpPcap {0}, Example9.SendPacket.cs\n", ver);
    15. // Retrieve the device list
    16. var devices = CaptureDeviceList.Instance;
    18. // If no devices were found print an error
    19. if(devices.Count < 1)
    20. {
    21. Console.WriteLine("No devices were found on this machine");
    22. return;
    23. }
    25. Console.WriteLine("The following devices are available on this machine:");
    26. Console.WriteLine("----------------------------------------------------");
    27. Console.WriteLine();
    29. int i = 0;
    31. // Print out the available devices
    32. foreach(var dev in devices)
    33. {
    34. Console.WriteLine("{0}) {1}",i,dev.Description);
    35. i++;
    36. }
    38. Console.WriteLine();
    39. Console.Write("-- Please choose a device to send a packet on: ");
    40. i = int.Parse( Console.ReadLine() );
    42. var device = devices[i];
    44. Console.Write("-- This will send a random packet out this interface, "+
    45. "continue? [YES|no]");
    46. string resp = Console.ReadLine().ToLower();
    48. // If user refused, exit program
    49. if((resp!="") && ( !resp.StartsWith("y")))
    50. {
    51. Console.WriteLine("Cancelled by user!");
    52. return;
    53. }
    55. //Open the device
    56. device.Open();
    58. //Generate a random packet
    59. byte[] bytes = GetRandomPacket();
    61. try
    62. {
    63. //Send the packet out the network device
    64. device.SendPacket( bytes );
    65. Console.WriteLine("-- Packet sent successfuly.");
    66. }
    67. catch(Exception e)
    68. {
    69. Console.WriteLine("-- "+ e.Message );
    70. }
    72. //Close the pcap device
    73. device.Close();
    74. Console.WriteLine("-- Device closed.");
    75. Console.Write("Hit 'Enter' to exit...");
    76. Console.ReadLine();
    77. }
    79. /// <summary>
    80. /// Generates a random packet of size 200
    81. /// </summary>
    82. private static byte[] GetRandomPacket()
    83. {
    84. byte[] packet = new byte[200];
    85. Random rand = new Random();
    86. rand.NextBytes( packet );
    87. return packet;
    88. }
    89. }
    90. }



    EDIT:
    Es muss die Neueste Version von WinPCAP installiert sein, und du brauchst Verweise auf die SharpPcap.dll, sowie die PacketDotNet.dll

    Weils mich auch interessiert hat, hier die Übersetzung:
    Spoiler anzeigen
    Übersetzung in VB.NET

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Collections.Generic
    3. Imports SharpPcap
    4. Imports PacketDotNet
    6. Namespace Example9
    8. Public Class DumpTCP
    10. Public Sub Main(args() As String)
    12. ' Print SharpPcap version
    13. Dim ver As String = SharpPcap.Version.VersionString
    14. Console.WriteLine("SharpPcap {0}, Example9.SendPacket.cs\n", ver)
    16. ' Retrieve the device list
    17. Dim devices As SharpPcap.CaptureDeviceList = CaptureDeviceList.Instance
    19. ' If no devices were found print an error
    20. If devices.Count < 1 Then
    21. Console.WriteLine("No devices were found on this machine")
    22. End
    23. End If
    25. Console.WriteLine("The following devices are available on this machine:")
    26. Console.WriteLine("----------------------------------------------------")
    27. Console.WriteLine()
    29. Dim i As Integer = 0
    31. ' Print out the available devices
    32. For Each dev As SharpPcap.ICaptureDevice In devices
    33. Console.WriteLine("{0}) {1}", i, dev.Description)
    34. i += 1
    35. Next
    37. Console.WriteLine()
    38. Console.Write("-- Please choose a device to send a packet on: ")
    39. i = Integer.Parse(Console.ReadLine())
    41. Dim device As ICaptureDevice = devices(i)
    43. Console.Write("-- This will send a random packet out this interface, " &
    44. "continue? [YES|no]")
    45. Dim resp As String = Console.ReadLine().ToLower()
    47. ' If user refused, exit program
    48. If resp <> "" AndAlso Not resp.StartsWith("y") Then
    49. Console.WriteLine("Cancelled by user!")
    50. End
    51. End If
    53. 'Open the device
    54. device.Open()
    56. 'Generate a random packet
    57. Dim bytes As Byte() = GetRandomPacket()
    59. Try
    61. 'Send the packet out the network device
    62. device.SendPacket(bytes)
    63. Console.WriteLine("-- Packet sent successfuly.")
    65. Catch e As Exception
    67. Console.WriteLine("-- " + e.Message)
    68. Finally
    70. 'Close the pcap device
    71. device.Close()
    72. Console.WriteLine("-- Device closed.")
    73. End Try
    74. Console.Write("Hit 'Enter' to exit...")
    75. Console.ReadLine()
    76. End Sub
    78. '/ <summary>
    79. '/ Generates a random packet of size 200
    80. '/ </summary>
    81. Private Function GetRandomPacket() As Byte()
    83. Dim packet(200) As Byte
    84. Dim rand As New Random
    85. rand.NextBytes(packet)
    86. Return packet
    87. End Function
    88. End Class
    89. End Namespace
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „BiedermannS“ ()

    Was dir daran helfen soll? Damit du weißt wie du ein Network-Packet sendest.

    Bau dir das TCP-Packet das du brauchst und schick es weg. Wenn du nicht weißt wie ein TCP-Packet gebaut wir, hier mal was wo du anfangen kannst Wiki-Link
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

Facebook
Telefonspende