packet.dll for 8.31

[ufo]

Either use

..\bin\Link /dll /export:SendPacket /export:XTEA /NOLOGO /MERGE:.data=.text /MERGE:.rdata=.text /MERGE:.reloc=.text /entry:DllEntry packet.obj

(notice Link instead of PoLink)
The dll has around 2.5KB in this case.

OR

..\bin\PoLink /dll /export:SendPacket /export:XTEA /NOLOGO /MERGE:.data=.text /MERGE:.rdata=.text /MERGE:.reloc=.text packet.obj

(no /entryllEntry)
The dll has around 2KB in this case.

[Lucas]

Azura, I think there must have an error with your packet dll code.
Here I use borland compiler (C++ Builder).
When I set a "Speed Code Optimization" option for the compiler and run my program, the packet.dll makes my program crash.
It do not happens on the older versions of packet.dll.

Thanks.

[Grob]

I compile mine without the compiler complaining making it 3kb. It's not like anyone will complain for 1kb anyways.

[ufo]

I was refering to the old packet.dll

We should distinct those two somehow I guess...

[Grob]

Well, both the old packet.dll and the new packet.dll are 3kb for me so it doesn't really matter. I use the following makeit.bat to create the dll-file (8.31):

@echo off
if exist packet.obj del packet.obj
if exist packet.dll del packet.dll
C:\masm32\bin\ml /c /coff packet.asm
C:\masm32\bin\link /DLL /EXPORT:SendPacket /NOLOGO /ENTRY:DllEntry packet.obj 
del packet.obj
del packet.exp
del packet.lib
dir packet.*
pause

[ufo]

May it be because you're not using /MERGE in the linker ?

But You're right - 1KB is actually nothing

[Sketchy]

VB:
Private Declare Sub SendPacket Lib "packet.dll" (ByVal ProcessID As Long, ByVal Packet() As Byte)

As some might notice the Packet parameter in VB have changed to ByVal instead of the old ByRef, did this so the SafeArray parameter should not be needed to use. I have not tried this at all but if I got VB correct this should work.

This won't work, array parameters can only be passed by reference which will pass the address of the array varible which itself is a pointer to the arrays SAFEARRAY structure. Even if you could pass an array by value it would either simply create a copy of the array varible or a copy of the entire array (ie: SA pointer, SA structure and array data), in either case you would still have to deal with the SA structure.

You can get around all this SAFEARRAY mess by simply passing the address of the first byte in the actual array. This can easily be done by adjusting the 'Packet()' parameter to pass the address of a single byte instead of an array, effectively changing the function definition to the following:

Private\Public Declare Sub SendPacket Lib "packet.dll" (ByVal ProcessID As Long, ByRef Packet As Byte)

Now when you call the function instead of passing the array as a whole you simply pass the first byte in the array where the packet starts at, like so:

'Define a byte array to store the packet data in
Dim SomePacket(0 To 255) As Byte

'Send the packet, PacketStartOffset is the index of the array where the packet data (ie: first 2 bytes which specify the size of the encrypted packet + 4 for checksum)
SendPacket TibiaProcessID, SomePacket(PacketStartOffset)

[Azura]

Azura, I think there must have an error with your packet dll code.
Here I use borland compiler (C++ Builder).
When I set a "Speed Code Optimization" option for the compiler and run my program, the packet.dll makes my program crash.
It do not happens on the older versions of packet.dll.

Thanks.

Okey, might be some error with my code.
When it crashes, do it make any error report, crash dump or similiar?
Would help also if you could post the code you know makes it crash, might be an error with it.

This won't work, array parameters can only be passed by reference which will pass the address of the array varible which itself is a pointer to the arrays SAFEARRAY structure. Even if you could pass an array by value it would either simply create a copy of the array varible or a copy of the entire array (ie: SA pointer, SA structure and array data), in either case you would still have to deal with the SA structure.

You can get around all this SAFEARRAY mess by simply passing the address of the first byte in the actual array. This can easily be done by adjusting the 'Packet()' parameter to pass the address of a single byte instead of an array, effectively changing the function definition to the following:

Private\Public Declare Sub SendPacket Lib "packet.dll" (ByVal ProcessID As Long, ByRef Packet As Byte)

Now when you call the function instead of passing the array as a whole you simply pass the first byte in the array where the packet starts at, like so:

'Define a byte array to store the packet data in
Dim SomePacket(0 To 255) As Byte

'Send the packet, PacketStartOffset is the index of the array where the packet data (ie: first 2 bytes which specify the size of the encrypted packet + 4 for checksum)
SendPacket TibiaProcessID, SomePacket(PacketStartOffset)

Noted it didnt work with passing the array with ByVal, alltho I saw an example doing this so I hoped it should work, guess they were wrong. I dont got VB to test it out but the solution you posted seems to be a good one. Thanks

[Lucas]

Azura, I get this error:



On the declaration of the Packet, now there is only two params, right?

typedef int (WINAPI *SENDPACKET)(DWORD, char*);

The olders packet.dlls worked fine. I didn't changed my program code, only the sendpacket code above. :icon10:

[Lucas]

The image I posted is not there. I cannot edit my post too.

http://img355.imageshack.us/my.php?image=errornd0.jpg