Jump to content

Convert this (TCP)


Recommended Posts

I know u can do it by pixelsearch, but is packet possible? (PunkBuster)

No. Stop sucking at games.

If your username means anything you are probably one of those kids that comes on a server and snipes people from 600 yards away with a G36 while simultaneously dropping an infinite number of supply crates. You ruin the game for people that don't suck.

Link to comment
Share on other sites

How do you make packet sniffers? At first i thought u make it with TPC but then i saw someone's WoW packet sniffer and its totally diffrent... something like this

if $packetget = 1 Then
    $oPktX = ObjCreate("PktX.PacketX")
    If Not IsObj($oPktX) Then MsgBox(0, "ERROR", "No Object")
        $EventObject = ObjEvent($oPktX, "PacketX_")
    For $i = 1 To $oPktX.Adapters.Count
Next
$oPktX.Adapter = $oPktX.Adapters ($oPktX.Adapters.Count)
$oPktX.Start

So do i make packet sniffer with TPC or with the WoW style?

Edited by bf2forlife
Link to comment
Share on other sites

Hi, can someone convert this packet sending code to read packets?

; Start The TCP Services
;==============================================
TCPStartUp()

; Set Some reusable info
;--------------------------

Dim $szIPADDRESS = "62.50.35.181"
Dim $nPORT = 30000


; Initialize a variable to represent a connection
;==============================================
Dim $ConnectedSocket = -1


;Attempt to connect to SERVER at its IP and PORT 33891
;=======================================================
$ConnectedSocket = TCPConnect($szIPADDRESS,$nPORT)


Dim $szData

; If there is an error... show it
If @error Then
    MsgBox(4112,"Error","Unable to connect to the server")
; If there is no error loop an inputbox for data
;   to send to the SERVER.
Else
;Loop forever asking for data to send to the SERVER
    While 1
; InputBox for data to transmit
        $szData = InputBox("Data for Server",@LF & @LF & "Enter data to transmit to the SERVER:")
        
; If they cancel the InputBox or leave it blank we exit our forever loop
        If @error Or $szData = "" Then ExitLoop
        
; We should have data in $szData... lets attempt to send it through our connected socket.
        TCPSend($ConnectedSocket,$szData)
        
; If the send failed with @error then the socket has disconnected
;----------------------------------------------------------------
        If @error Then ExitLoop
    WEnd
EndIf

TCPCloseSocket($ConnectedSocket)

Thanks

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

  • Recently Browsing   0 members

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