AutoIt Bot Community

AutoIt-QuellCode

#include <Array.au3>
#include <Winpcap.au3>
$port = 4013
$nosip = "79.110.84.77"

$filter = "tcp port " & $port

$winpcap = _PcapSetup() ; initialize winpcap
If ($winpcap = -1) Then
    MsgBox(16, "Pcap error !", "WinPcap not found !")
    Exit
EndIf

$pcap_devices = _PcapGetDeviceList() ; get devices list
If ($pcap_devices = -1) Then
    MsgBox(16, "Pcap error !", _PcapGetLastError())
    Exit
EndIf

$int = $pcap_devices[2][0]

$pcap = _PcapStartCapture($int, $filter, 0);start capture
If ($pcap = -1) Then
    MsgBox(16, "Pcap error !", _PcapGetLastError())
EndIf
Local $counterabc = 1
While 1
    If IsPtr($pcap) Then
        $time0 = TimerInit()
        While (TimerDiff($time0) < 500) ; Retrieve packets from queue for maximum 500ms before returning to main loop, not to "hang" the window for user
            $packet = _PcapGetPacket($pcap)
            If IsInt($packet) Then ExitLoop
            If $counterabc <> 5 Then
                $sniff = sniff($packet[3])
                ToolTip ($counterabc & @CRLF & $sniff,0,0)
                If $sniff <> False Then
                    ConsoleWrite($sniff & @CRLF)
                    $counterabc += 1
                EndIf
            Else
                $in = InputBox("", "")
                senden ($in)
            EndIf
        WEnd
    EndIf
WEnd

_PcapFree() ; close winpcap

Func sniff($data)
    Local $ipheaderlen = BitAND(_PcapBinaryGetVal($data, 15, 1), 0xF) * 4
    Local $tcpoffset = $ipheaderlen + 14
    Local $tcplen = _PcapBinaryGetVal($data, 17, 2) - $ipheaderlen ; ip total len - ip header len
    Local $tcpheaderlen = BitShift(_PcapBinaryGetVal($data, $tcpoffset + 13, 1), 4) * 4
    Local $tcpsrcport = _PcapBinaryGetVal($data, $tcpoffset + 1, 2)
    Local $tcpdstport = _PcapBinaryGetVal($data, $tcpoffset + 3, 2)
    Local $tcpsequence = _PcapBinaryGetVal($data, $tcpoffset + 5, 4)
    Local $tcpflags = _PcapBinaryGetVal($data, $tcpoffset + 14, 1)
    Local $httpoffset = $tcpoffset + $tcpheaderlen + 1
    Local $httplen = $tcplen - $tcpheaderlen
    $sniff_packet = BinaryMid($data, $httpoffset)
    If $httplen = 0 Then Return False ; empty tcp packet

    If $tcpsrcport = $port Then
        ;Return ">IN:" & $sniff_packet ; server ==> client
    EndIf

    If $tcpdstport = $port Then
        Return "-OUT:" & $sniff_packet ; client ==> server
    EndIf
EndFunc   ;==>sniff

Func senden($data)
    $totlength = "00" & Hex(4 + 20 + 4 + BinaryLen($data) / 2, 2)

    $winpcap = _PcapSetup() ; initialize winpcap
    $pcap_devices = _PcapGetDeviceList() ; get devices list
    $pcap = _PcapStartCapture($pcap_devices[2][0]) ; my interface

    ;Ethernet header
    $broadcastmac = "0003c9b4d768" ; MAC from GW
    $mymac = StringReplace($pcap_devices[2][6], ":", "") ; my mac address in hex
    $ethertype = "0800" ; IP

    $ethernetheader = $broadcastmac & $mymac & $ethertype ; stick together to a binary string !

    ;IP header
    $version = "4"
    $headerlength = "5"
    $tos = "00"
    $ident = "1234"
    $ffo = "4000"
    $ttl = "80"
    $prot = "01"
    $sourceaddress = IPtoHex($pcap_devices[2][7])
    $destaddress = IPtoHex($nosip)
    ;$totlength = "003c"

    $crc = Hex(_PcapIpCheckSum("0x" & $ethernetheader & $version & $headerlength & $tos & $totlength & $ident & $ffo & $ttl & $prot & "0000" & $sourceaddress & $destaddress), 4)

    $ippacket = $ethernetheader & $version & $headerlength & $tos & $totlength & $ident & $ffo & $ttl & $prot & $crc & $sourceaddress & $destaddress

    ;ICMP
    $type = "08"
    $code = "00"
    $identifier = "0001"
    $seq = "0001"
    $checksum = Hex(_PcapIcmpCheckSum("0x" & $ippacket & $type & $code & "0000" & $identifier & $seq & $data), 4)

    $ICMP = $type & $code & $checksum & $identifier & $seq & $data

    $mypacket = "0x" & $ippacket & $type & $code & $checksum & $identifier & $seq & $data
    $sendback = _PcapSendPacket($pcap, $mypacket) ; sends a valid packet
    MsgBox (0,"Senden",$sendback)
EndFunc   ;==>senden

Func IPtoHex($ip)
    Dim $iphex[5]
    $ip = StringSplit($ip, ".")
    For $i = 1 To 4 Step 1
        $iphex &= Hex($ip[$i], 2)
    Next

    Return $iphex
EndFunc   ;==>IPtoHex