Need help with Visual Basic

02/21/2008 11:41 RandomOne#1

Hello dear ePvP members.
I am a beginner in Visual Basic programming, but I am trying to code my own proxy and I need some help.
The problem is that I don't know how to skip/block INCOMING packets from interfering with the client.

Please, if anyone has any knowledge, please post here or PM. Thx :o

02/21/2008 11:58 phize#2

If you are a beginner maybe you should start by some easier tasks.
Anyway when you receive the packets just dont forward them (eg client.send)

02/21/2008 12:09 RandomOne#3

Quote:

Originally Posted by RootCore

If you are a beginner maybe you should start by some easier tasks.
Anyway when you receive the packets just dont forward them (eg client.send)

Thank you for your fast response. I was wondering, could you give an example, or do you know anyone who can, of blocking player packets? Or something simpler, just need an example to work with :)

02/21/2008 12:57 phize#4

Its the same concept, you check for the packet id then decide whether to forward it or not. Did you make the proxy from scratch?

02/21/2008 13:26 RandomOne#5

Quote:

Originally Posted by RootCore

Its the same concept, you check for the packet id then decide whether to forward it or not. Did you make the proxy from scratch?

Nope, I made it based mostly on behelit's crack source code

02/23/2008 03:44 RandomOne#6

bump'd for the lulz

02/23/2008 04:14 RandomOne#7

This is what I am using for blocking OUTGOING packets (Client to Server)

Quote:

Select Case Mid(npacket, xx, xx)

Case MakeHex2("XX XX XX XX XX XX XX")
Skip = 1
End Select

If Skip = 1 Then
stat "skipped:" & asc2hex(npacket)

Why wont this work with INCOMING packets!? (Server to Client) :(

02/23/2008 04:32 Some-Guy#8

Quote:

Originally Posted by RandomOne

This is what I am using for blocking OUTGOING packets (Client to Server)

Why wont this work with INCOMING packets!? (Server to Client) :(

It does work with incoming packets, as such (using behilits proxy as an example for you):

Under the 'analyze_recv2' function after all the other code there

Code:

If Skip = 0 Then cl_recv2 (tpr)

in other words, if skip not true then receive the packet, otherwise do nothing.

Of course make sure the function understands what Skip is, either by making it local to each function it's needed in, or making it a global variable and changing my example slightly to this:

Code:

If Skip = 0 then
  cl_recv2
Else
   Skip = 0 'Resets the variable for next time.
End If

02/23/2008 14:09 RandomOne#9

Quote:
Originally Posted by Some-Guy
It does work with incoming packets, as such (using behilits proxy as an example for you):

Under the 'analyze_recv2' function after all the other code there
Code:
If Skip = 0 Then cl_recv2 (tpr)
in other words, if skip not true then receive the packet, otherwise do nothing.

Of course make sure the function understands what Skip is, either by making it local to each function it's needed in, or making it a global variable and changing my example slightly to this:
Code:
If Skip = 0 then
  cl_recv2
Else
   Skip = 0 'Resets the variable for next time.
End If

You are my hero :)