Jump to content

sending packets with packetx

Acef

By Acef,
in AutoIt General Help and Support

 Share

Recommended Posts

Acef Seeker

Acef

Posted
Posted

Hi, I'm trying to make a bot for a game and I need a way to send custom packets to a custom ip with a custom socket. I have found the ip sniffer, but I couldn't find a way to send packets. So I tried to translate one of the examples that came with PacketX, but I'm having trouble with $oPktX.Adapter.SendPacket

;///////////////////////////////////////////////////////////////////////////////
;// File:        Send.js
;//
;// Description:  This script demonstrates how to send packets
;//
;// Notes:      Run the script from command line using the cscript.exe program
;//
;// Created:      May 10, 2004
;//
;// Copyright (c) 2000-2004 BeeSync Technologies.
;///////////////////////////////////////////////////////////////////////////////

Dim $sByte, $Counter, $HexToDec = 0

;~ // Create PackeX object
Global $oPktX = ObjCreate("PktX.PacketX")
If Not IsObj($oPktX) Then MsgBox(0, "ERROR", "No Object")
$EventObject = ObjEvent($oPktX, "PacketX_")

;~ // Display network adapters
Dim $info
For $i = 1 To $oPktX.Adapters.Count
    If $oPktX.Adapters ($i).IsGood Then
        $info &= "(" & $i & ") " & $oPktX.Adapters ($i).Description & @CRLF
        PrintAdapter($oPktX.Adapters ($i))
    EndIf
Next

;Enter Adapter #
Dim $SelAdapter = $oPktX.Adapters.Count ;default: last adapter #
While 1
    Local $SelAdapter = InputBox("Choose adapter Number", $info, $oPktX.Adapters.Count)
    If @error > 0 Then Exit 99
    If $SelAdapter >= 1 And $SelAdapter <= $oPktX.Adapters.Count Then ExitLoop
    MsgBox(0+16, "Error", "The Selected Number '"&$SelAdapter&"' is not in range")
WEnd

; Select network adapter
$oPktX.Adapter = $oPktX.Adapters ($SelAdapter)

;// Get adapter hardware address and IP address
$sHWAddr = $oPktX.Adapter.HWAddress
$sIPAddr = $oPktX.Adapter.NetIP
$sIPMask = $oPktX.Adapter.NetMask
ConsoleWrite("MAC Addr = " & $sHWAddr & @LF)
ConsoleWrite("IP  Addr = " & $sIPAddr & @LF)
ConsoleWrite("IP  Mask = " & $sIPMask & @LF)

;// Send ARP request for this IP address
$sIPReso = "11.12.13.14"
$aIPReso=StringSplit($sIPReso, ".")
$aIPAddr=StringSplit($sIPAddr, ".")

;// You can use the following syntax to call the Adapter.SendPacket method
;//
;// 1. Send packet by reference (VT_BYREF|VT_VARIANT) as array of variants
;// oPktX.Adapter.SendPacket oPacket, 1
;//
;// 2. Send packet by value (VT_BYREF|VT_VARIANT|VT_ARRAY) as array of variants
;// oPktX.Adapter.SendPacket(oPacket)
;// 
;// 3. Send packet directly (VT_VARIANT|VT_ARRAY) as array of variants
;// oPktX.Adapter.SendPacket Array(1,2,...,n)

;// Send 100 ARP requests
Dim $oPacket[60] = [0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, HexToDec(StringMid($sHWAddr,1,2)), HexToDec(StringMid($sHWAddr,3,2)),HexToDec(StringMid($sHWAddr,5,2)),HexToDec(StringMid($sHWAddr,7,2)),HexToDec(StringMid($sHWAddr,9,2)),HexToDec(StringMid($sHWAddr,11,2)),0x08, 0x06, 0x00, 0x01, 0x08, 0x00, 0x06, 0x04, 0x00, 0x01,HexToDec(StringMid($sHWAddr,1,2)),HexToDec(StringMid($sHWAddr,3,2)),HexToDec(StringMid($sHWAddr,5,2)),HexToDec(StringMid($sHWAddr,7,2)),HexToDec(StringMid($sHWAddr,9,2)),HexToDec(StringMid($sHWAddr,11,2)),$aIPAddr[1],$aIPAddr[2],$aIPAddr[3],$aIPAddr[4],0x00, 0x00, 0x00, 0x00, 0x00, 0x00,$aIPReso[1],$aIPReso[2],$aIPReso[3],$aIPReso[4],0x00, 0x00, 0x00, 0x00, 0x00, 0x00,0x00, 0x00, 0x00, 0x00, 0x00, 0x00,0x00, 0x00, 0x00, 0x00, 0x00, 0x00]

$oPktX.Adapter.SendPacket($oPacket)

Func HexToDec($sByte)
  For $Counter=1 To StringLen($sByte)
    Switch StringMid($sByte,$Counter,1)
        Case "0"
            $HexToDec+=0*(16^(StringLen($sByte)-$Counter))
        Case "1"
            $HexToDec+=1*(16^(StringLen($sByte)-$Counter))
        Case "2"
            $HexToDec+=2*(16^(StringLen($sByte)-$Counter))
        Case "3"
            $HexToDec+=3*(16^(StringLen($sByte)-$Counter))
        Case "4"
            $HexToDec+=4*(16^(StringLen($sByte)-$Counter))
        Case "5"
            $HexToDec+=5*(16^(StringLen($sByte)-$Counter))
        Case "6"
            $HexToDec+=6*(16^(StringLen($sByte)-$Counter))
        Case "7"
            $HexToDec+=7*(16^(StringLen($sByte)-$Counter))
        Case "8"
            $HexToDec+=8*(16^(StringLen($sByte)-$Counter))
        Case "9"
            $HexToDec+=9*(16^(StringLen($sByte)-$Counter))
        Case "A"
            $HexToDec+=10*(16^(StringLen($sByte)-$Counter))
        Case "B"
            $HexToDec+=11*(16^(StringLen($sByte)-$Counter))
        Case "C"
            $HexToDec+=12*(16^(StringLen($sByte)-$Counter))
        Case "D"
            $HexToDec+=13*(16^(StringLen($sByte)-$Counter))
        Case "E"
            $HexToDec+=14*(16^(StringLen($sByte)-$Counter))
        Case "F"
            $HexToDec+=15*(16^(StringLen($sByte)-$Counter))
    EndSwitch
  Next
EndFunc

Func PrintAdapter($oAdapter)
    ConsoleWrite("Device name is " & $oAdapter.Device & @LF)
    ConsoleWrite("Link type is ")
    Switch $oAdapter.LinkType
        Case 1
            ConsoleWrite("Ethernet (802.3)" & @LF)
        Case 2
            ConsoleWrite("Token Ring (802.5)" & @LF)
        Case 3
            ConsoleWrite("FDDI" & @LF)
        Case 4
            ConsoleWrite("WAN" & @LF)
        Case 5
            ConsoleWrite("LocalTalk" & @LF)
        Case 6
            ConsoleWrite("DIX" & @LF)
        Case 7
            ConsoleWrite("ARCNET (raw)" & @LF)
        Case 8
            ConsoleWrite("ARCNET (878.2)" & @LF)
        Case 9
            ConsoleWrite("ATM" & @LF)
        Case 10
            ConsoleWrite("NdisWirelessXxx media" & @LF)
        Case Else
            ConsoleWrite("Unknown!" & @LF)
    EndSwitch
    ConsoleWrite("Link speed is " & $oAdapter.LinkSpeed & " bps" & @LF)
;~    Consolewrite( "Network IP addres is " & $oAdapter.NetIP&@LF)
;~  Consolewrite( "Network mask is " & $oAdapter.NetMask&@LF)
    ConsoleWrite("HW address is " & $oAdapter.HWAddress & @LF)
EndFunc  ;==>PrintAdapter

Can someone explain to me how to get this to work, or another way to send packets. Help is appreciated.

Link to comment
Share on other sites
BrettF Universalist

BrettF

Posted
Posted

Can you post links to the example, and to the packetx object?

Cheers,

Brett

Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version!
Link to comment
Share on other sites
Acef Seeker

Acef

Posted
  • Author
Posted

weird, I can't edit my post again....

well anyways, it seems I have to add a hex header for the packet to be sent correctly (so it does work, I thought it didn't because wpe pro didn't detect anything) which is now another problem. Also inside the header there is a checksum which also kind of sucks so I'm going to have to figure that out. So if anyone has any links to construction of packet headers, it will be very helpful.

Thank you to everyone who tried, for now I'm going to sleep and perhaps pursue this tomorrow.

Link to comment
Share on other sites
Acef Seeker

Acef

Posted
  • Author
Posted (edited)

here you go, I noticed even though the game sends the same packet the header changes so I'm going to read more into making headers....

;///////////////////////////////////////////////////////////////////////////////
;// File:        Send.js
;//
;// Description:  This script demonstrates how to send packets
;//
;///////////////////////////////////////////////////////////////////////////////

Global Const $HX_REF="0123456789ABCDEF"

;~ // Create PackeX object
Global $oPktX = ObjCreate("PktX.PacketX")
If Not IsObj($oPktX) Then MsgBox(0, "ERROR", "No Object")
$EventObject = ObjEvent($oPktX, "PacketX_")

;~ // Display network adapters
Dim $info
For $i = 1 To $oPktX.Adapters.Count
    If $oPktX.Adapters ($i).IsGood Then
        $info &= "(" & $i & ") " & $oPktX.Adapters ($i).Description & @CRLF
        PrintAdapter($oPktX.Adapters ($i))
    EndIf
Next

;Enter Adapter #
Dim $SelAdapter = $oPktX.Adapters.Count;default: last adapter #
While 1
    Local $SelAdapter = InputBox("Choose adapter Number", $info, $oPktX.Adapters.Count)
    If @error > 0 Then Exit 99
    If $SelAdapter >= 1 And $SelAdapter <= $oPktX.Adapters.Count Then ExitLoop
    MsgBox(0+16, "Error", "The Selected Number '"&$SelAdapter&"' is not in range")
WEnd

; Select network adapter
$oPktX.Adapter = $oPktX.Adapters ($SelAdapter)

;// Get adapter hardware address and IP address
$sHWAddr = $oPktX.Adapter.HWAddress
$sIPAddr = $oPktX.Adapter.NetIP
$sIPMask = $oPktX.Adapter.NetMask
ConsoleWrite("MAC Addr = " & $sHWAddr & @LF)
ConsoleWrite("IP  Addr = " & $sIPAddr & @LF)
ConsoleWrite("IP  Mask = " & $sIPMask & @LF)

;// Send ARP request for this IP address - ===not included in packet===
$sIPReso = "11.12.13.14"
$aIPReso=StringSplit($sIPReso, ".")
$aIPAddr=StringSplit($sIPAddr, ".")

;// You can use the following syntax to call the Adapter.SendPacket method
;//
;// 1. Send packet by reference (VT_BYREF|VT_VARIANT) as array of variants
;// oPktX.Adapter.SendPacket oPacket, 1
;//
;// 2. Send packet by value (VT_BYREF|VT_VARIANT|VT_ARRAY) as array of variants
;// oPktX.Adapter.SendPacket(oPacket)
;// 
;// 3. Send packet directly (VT_VARIANT|VT_ARRAY) as array of variants
;// oPktX.Adapter.SendPacket Array(1,2,...,n)

; packet sends "42 4D 2A 7C 68 6D 6D 7C 0A 00" (chat packet for a game called dofus) to 193.238.148.218:443 from 192.168.1.100:2534
Dim $oPacket[64] = [0x00, 0x17, 0x3F, 0x66, 0xF0, 0x90, 0x00, 0x13, 0x20, 0x9B, 0x88, 0x3C, 0x08, 0x00, 0x45, 0x00, 0x00, 0x32, 0x1C, 0x01, 0x40, 0x00, 0x80, 0x06, 0xC5, 0xEF, 0xC0, 0xA8, 0x01, 0x64, 0xC1, 0xEE, 0x94, 0xDA, 0x09, 0xE6, 0x01, 0xBB, 0xA1, 0xA4, 0x5D, 0x6B ,0x71, 0x8F, 0xE0, 0x25, 0x50, 0x18,0xFC, 0xBB, 0xF1, 0x17, 0x00, 0x00,0x42, 0x4D, 0x2A, 0x7C, 0x68, 0x6D, 0x6D, 0x7C, 0x0A, 0x00]

;write packet to console
;for $i=0 to 63
;   ConsoleWrite($oPacket[$i] & @LF)
;Next

;// Sends 1
$oPktX.Adapter.SendPacket($oPacket)

Func HexToDecimal($hx_hex)
    If StringLeft($hx_hex, 2) = "0x" Then $hx_hex = StringMid($hx_hex, 3)
    If StringIsXDigit($hx_hex) = 0 Then
        SetError(1)
        MsgBox(0,"Error","Wrong input, try again ...")
        Return ""
    EndIf
    Local $ret="", $hx_count=0, $hx_array = StringSplit($hx_hex, ""), $Ii, $hx_tmp
    For $Ii = $hx_array[0] To 1 Step -1
        $hx_tmp = StringInStr($HX_REF, $hx_array[$Ii]) - 1
        $ret += $hx_tmp * 16 ^ $hx_count
        $hx_count += 1
    Next
    Return $ret
EndFunc 


Func PrintAdapter($oAdapter)
    ConsoleWrite("Device name is " & $oAdapter.Device & @LF)
    ConsoleWrite("Link type is ")
    Switch $oAdapter.LinkType
        Case 1
            ConsoleWrite("Ethernet (802.3)" & @LF)
        Case 2
            ConsoleWrite("Token Ring (802.5)" & @LF)
        Case 3
            ConsoleWrite("FDDI" & @LF)
        Case 4
            ConsoleWrite("WAN" & @LF)
        Case 5
            ConsoleWrite("LocalTalk" & @LF)
        Case 6
            ConsoleWrite("DIX" & @LF)
        Case 7
            ConsoleWrite("ARCNET (raw)" & @LF)
        Case 8
            ConsoleWrite("ARCNET (878.2)" & @LF)
        Case 9
            ConsoleWrite("ATM" & @LF)
        Case 10
            ConsoleWrite("NdisWirelessXxx media" & @LF)
        Case Else
            ConsoleWrite("Unknown!" & @LF)
    EndSwitch
    ConsoleWrite("Link speed is " & $oAdapter.LinkSpeed & " bps" & @LF)
;~    Consolewrite( "Network IP addres is " & $oAdapter.NetIP&@LF)
;~  Consolewrite( "Network mask is " & $oAdapter.NetMask&@LF)
    ConsoleWrite("HW address is " & $oAdapter.HWAddress & @LF)
EndFunc ;==>PrintAdapter

I've attached it if this doesn't work

send.au3

Edited by Acef
Link to comment
Share on other sites
BAM5 Wayfarer

BAM5

Posted
Posted

There is a little UDF out there that I use quite a bit and I think it'll help you out.

It's called HTTP.au3, it's not professionally made and can use a little modding (Which I am doing right now to make it even better) but should suit your needs unless you want to upload a file(which is what I am working on right now).

http://www.autoitscript.com/forum/index.ph...;http.au3\

[center]JSON Encoding UDF[/center]

Link to comment
Share on other sites
Acef Seeker

Acef

Posted
  • Author
Posted

anyone know how to correctly make a checksum for ip and tcp header packets... I am really having a hard time with this. I also made a brake down of a packet header I attached it if you want to read it (some things are probably wrong). so if anyone can provide a checksum function for autoit, it would be very helpful. When I finish this I'll post a useful program to easily send customized packets ;)

packetbreakdown.rtf

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...