436 lines
6.7 KiB
C
436 lines
6.7 KiB
C
|
#include "netpch.h"
|
||
|
#pragma hdrstop
|
||
|
|
||
|
#define WINSOCK_API_LINKAGE
|
||
|
#include <ws2spi.h>
|
||
|
|
||
|
#define SWAP_LONG(l) \
|
||
|
( ( ((l) >> 24) & 0x000000FFL ) | \
|
||
|
( ((l) >> 8) & 0x0000FF00L ) | \
|
||
|
( ((l) << 8) & 0x00FF0000L ) | \
|
||
|
( ((l) << 24) & 0xFF000000L ) )
|
||
|
|
||
|
#define WS_SWAP_SHORT(s) \
|
||
|
( ( ((s) >> 8) & 0x00FF ) | \
|
||
|
( ((s) << 8) & 0xFF00 ) )
|
||
|
|
||
|
|
||
|
static
|
||
|
WINSOCK_API_LINKAGE
|
||
|
int
|
||
|
WSAAPI
|
||
|
WSAAddressToStringA(
|
||
|
IN LPSOCKADDR lpsaAddress,
|
||
|
IN DWORD dwAddressLength,
|
||
|
IN LPWSAPROTOCOL_INFOA lpProtocolInfo,
|
||
|
IN OUT LPSTR lpszAddressString,
|
||
|
IN OUT LPDWORD lpdwAddressStringLength
|
||
|
)
|
||
|
{
|
||
|
return SOCKET_ERROR;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
int
|
||
|
WSAAPI
|
||
|
WSAAddressToStringW(
|
||
|
IN LPSOCKADDR lpsaAddress,
|
||
|
IN DWORD dwAddressLength,
|
||
|
IN LPWSAPROTOCOL_INFOW lpProtocolInfo,
|
||
|
IN OUT LPWSTR lpszAddressString,
|
||
|
IN OUT LPDWORD lpdwAddressStringLength
|
||
|
)
|
||
|
{
|
||
|
return SOCKET_ERROR;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
int
|
||
|
WSAAPI
|
||
|
WSACleanup(
|
||
|
void
|
||
|
)
|
||
|
{
|
||
|
return SOCKET_ERROR;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
int
|
||
|
WSAAPI
|
||
|
WSAGetLastError(
|
||
|
void
|
||
|
)
|
||
|
{
|
||
|
return ERROR_MOD_NOT_FOUND;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
int
|
||
|
WSAAPI
|
||
|
WSAStartup(
|
||
|
IN WORD wVersionRequested,
|
||
|
OUT LPWSADATA lpWSAData
|
||
|
)
|
||
|
{
|
||
|
return WSAEFAULT;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
int
|
||
|
WSAAPI
|
||
|
WSALookupServiceBeginW(
|
||
|
IN LPWSAQUERYSETW lpqsRestrictions,
|
||
|
IN DWORD dwControlFlags,
|
||
|
OUT LPHANDLE lphLookup
|
||
|
)
|
||
|
{
|
||
|
return SOCKET_ERROR;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
int
|
||
|
WSAAPI
|
||
|
WSALookupServiceNextW(
|
||
|
IN HANDLE hLookup,
|
||
|
IN DWORD dwControlFlags,
|
||
|
IN OUT LPDWORD lpdwBufferLength,
|
||
|
OUT LPWSAQUERYSETW lpqsResults
|
||
|
)
|
||
|
{
|
||
|
return SOCKET_ERROR;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
int
|
||
|
WSAAPI
|
||
|
WSALookupServiceEnd(
|
||
|
IN HANDLE hLookup
|
||
|
)
|
||
|
{
|
||
|
return SOCKET_ERROR;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
int
|
||
|
WSAAPI
|
||
|
WSAStringToAddressW(
|
||
|
IN LPWSTR AddressString,
|
||
|
IN INT AddressFamily,
|
||
|
IN LPWSAPROTOCOL_INFOW lpProtocolInfo,
|
||
|
OUT LPSOCKADDR lpAddress,
|
||
|
IN OUT LPINT lpAddressLength
|
||
|
)
|
||
|
{
|
||
|
return SOCKET_ERROR;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
int
|
||
|
WSPAPI
|
||
|
WSCDeinstallProvider(
|
||
|
IN LPGUID lpProviderId,
|
||
|
OUT LPINT lpErrno
|
||
|
)
|
||
|
{
|
||
|
*lpErrno = WSAEFAULT;
|
||
|
return SOCKET_ERROR;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
int
|
||
|
WSPAPI
|
||
|
WSCDeinstallProvider32(
|
||
|
IN LPGUID lpProviderId,
|
||
|
OUT LPINT lpErrno
|
||
|
)
|
||
|
{
|
||
|
*lpErrno = WSAEFAULT;
|
||
|
return SOCKET_ERROR;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
int
|
||
|
WSPAPI
|
||
|
WSCEnumProtocols(
|
||
|
IN LPINT lpiProtocols,
|
||
|
OUT LPWSAPROTOCOL_INFOW lpProtocolBuffer,
|
||
|
IN OUT LPDWORD lpdwBufferLength,
|
||
|
OUT LPINT lpErrno
|
||
|
)
|
||
|
{
|
||
|
*lpErrno = WSAEFAULT;
|
||
|
return SOCKET_ERROR;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
INT
|
||
|
WSPAPI
|
||
|
WSCInstallNameSpace (
|
||
|
IN LPWSTR lpszIdentifier,
|
||
|
IN LPWSTR lpszPathName,
|
||
|
IN DWORD dwNameSpace,
|
||
|
IN DWORD dwVersion,
|
||
|
IN LPGUID lpProviderId
|
||
|
)
|
||
|
{
|
||
|
return SOCKET_ERROR;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
INT
|
||
|
WSPAPI
|
||
|
WSCInstallNameSpace32 (
|
||
|
IN LPWSTR lpszIdentifier,
|
||
|
IN LPWSTR lpszPathName,
|
||
|
IN DWORD dwNameSpace,
|
||
|
IN DWORD dwVersion,
|
||
|
IN LPGUID lpProviderId
|
||
|
)
|
||
|
{
|
||
|
return SOCKET_ERROR;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
int
|
||
|
WSPAPI
|
||
|
WSCInstallProvider(
|
||
|
IN LPGUID lpProviderId,
|
||
|
IN const WCHAR FAR * lpszProviderDllPath,
|
||
|
IN const LPWSAPROTOCOL_INFOW lpProtocolInfoList,
|
||
|
IN DWORD dwNumberOfEntries,
|
||
|
OUT LPINT lpErrno
|
||
|
)
|
||
|
{
|
||
|
*lpErrno = WSAEFAULT;
|
||
|
return SOCKET_ERROR;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
int
|
||
|
WSPAPI
|
||
|
WSCInstallProvider64_32(
|
||
|
IN LPGUID lpProviderId,
|
||
|
IN const WCHAR FAR * lpszProviderDllPath,
|
||
|
IN const LPWSAPROTOCOL_INFOW lpProtocolInfoList,
|
||
|
IN DWORD dwNumberOfEntries,
|
||
|
OUT LPINT lpErrno
|
||
|
)
|
||
|
{
|
||
|
*lpErrno = WSAEFAULT;
|
||
|
return SOCKET_ERROR;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
INT
|
||
|
WSPAPI
|
||
|
WSCUnInstallNameSpace (
|
||
|
IN LPGUID lpProviderId
|
||
|
)
|
||
|
{
|
||
|
return SOCKET_ERROR;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
INT
|
||
|
WSPAPI
|
||
|
WSCUnInstallNameSpace32 (
|
||
|
IN LPGUID lpProviderId
|
||
|
)
|
||
|
{
|
||
|
return SOCKET_ERROR;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
int
|
||
|
WSAAPI
|
||
|
bind(
|
||
|
IN SOCKET s,
|
||
|
IN const struct sockaddr FAR * name,
|
||
|
IN int namelen
|
||
|
)
|
||
|
{
|
||
|
return SOCKET_ERROR;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
int
|
||
|
WSAAPI
|
||
|
connect(
|
||
|
IN SOCKET s,
|
||
|
IN const struct sockaddr FAR * name,
|
||
|
IN int namelen
|
||
|
)
|
||
|
{
|
||
|
return SOCKET_ERROR;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
int
|
||
|
WSAAPI
|
||
|
closesocket(
|
||
|
IN SOCKET s
|
||
|
)
|
||
|
{
|
||
|
return SOCKET_ERROR;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
struct hostent FAR *
|
||
|
WSAAPI
|
||
|
gethostbyname(
|
||
|
IN const char FAR * name
|
||
|
)
|
||
|
{
|
||
|
return NULL;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
int
|
||
|
WSAAPI
|
||
|
getsockname(
|
||
|
IN SOCKET s,
|
||
|
OUT struct sockaddr FAR * name,
|
||
|
OUT int FAR * namelen
|
||
|
)
|
||
|
{
|
||
|
return SOCKET_ERROR;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
int
|
||
|
WSAAPI
|
||
|
getsockopt(
|
||
|
IN SOCKET s,
|
||
|
IN int level,
|
||
|
IN int optname,
|
||
|
OUT char FAR * optval,
|
||
|
IN OUT int FAR * optlen
|
||
|
)
|
||
|
{
|
||
|
return SOCKET_ERROR;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
WINSOCK_API_LINKAGE
|
||
|
u_long
|
||
|
WSAAPI
|
||
|
htonl(
|
||
|
IN u_long hostlong
|
||
|
)
|
||
|
{
|
||
|
return SWAP_LONG( hostlong );
|
||
|
}
|
||
|
|
||
|
static
|
||
|
WINSOCK_API_LINKAGE
|
||
|
u_short
|
||
|
WSAAPI
|
||
|
htons(
|
||
|
IN u_short hostshort
|
||
|
)
|
||
|
{
|
||
|
return WS_SWAP_SHORT( hostshort );
|
||
|
}
|
||
|
|
||
|
static
|
||
|
unsigned long
|
||
|
WSAAPI
|
||
|
inet_addr(
|
||
|
IN const char FAR * cp
|
||
|
)
|
||
|
{
|
||
|
return INADDR_NONE;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
char FAR *
|
||
|
WSAAPI
|
||
|
inet_ntoa(
|
||
|
IN struct in_addr in
|
||
|
)
|
||
|
{
|
||
|
return NULL;
|
||
|
}
|
||
|
|
||
|
static
|
||
|
u_long
|
||
|
WSAAPI
|
||
|
ntohl(
|
||
|
IN u_long netlong
|
||
|
)
|
||
|
{
|
||
|
return SWAP_LONG( netlong );
|
||
|
}
|
||
|
|
||
|
WINSOCK_API_LINKAGE
|
||
|
u_short
|
||
|
WSAAPI
|
||
|
ntohs(
|
||
|
IN u_short netshort
|
||
|
)
|
||
|
{
|
||
|
return WS_SWAP_SHORT( netshort );
|
||
|
}
|
||
|
|
||
|
static
|
||
|
SOCKET
|
||
|
WSAAPI
|
||
|
socket(
|
||
|
IN int af,
|
||
|
IN int type,
|
||
|
IN int protocol
|
||
|
)
|
||
|
{
|
||
|
return INVALID_SOCKET;
|
||
|
}
|
||
|
|
||
|
|
||
|
//
|
||
|
// !! WARNING !! The entries below must be in order by ORDINAL
|
||
|
//
|
||
|
DEFINE_ORDINAL_ENTRIES(ws2_32)
|
||
|
{
|
||
|
DLOENTRY( 2, bind)
|
||
|
DLOENTRY( 3, closesocket)
|
||
|
DLOENTRY( 4, connect)
|
||
|
DLOENTRY( 6, getsockname)
|
||
|
DLOENTRY( 7, getsockopt)
|
||
|
DLOENTRY( 8, htonl)
|
||
|
DLOENTRY( 9, htons)
|
||
|
DLOENTRY( 11, inet_addr)
|
||
|
DLOENTRY( 12, inet_ntoa)
|
||
|
DLOENTRY( 14, ntohl)
|
||
|
DLOENTRY( 15, ntohs)
|
||
|
DLOENTRY( 23, socket)
|
||
|
DLOENTRY( 52, gethostbyname)
|
||
|
DLOENTRY(111, WSAGetLastError)
|
||
|
DLOENTRY(115, WSAStartup)
|
||
|
DLOENTRY(116, WSACleanup)
|
||
|
};
|
||
|
|
||
|
DEFINE_ORDINAL_MAP(ws2_32);
|
||
|
|
||
|
//
|
||
|
// !! WARNING !! The entries below must be in alphabetical order, and are CASE SENSITIVE (eg lower case comes last!)
|
||
|
//
|
||
|
DEFINE_PROCNAME_ENTRIES(ws2_32)
|
||
|
{
|
||
|
DLPENTRY(WSAAddressToStringA)
|
||
|
DLPENTRY(WSAAddressToStringW)
|
||
|
DLPENTRY(WSALookupServiceBeginW)
|
||
|
DLPENTRY(WSALookupServiceEnd)
|
||
|
DLPENTRY(WSALookupServiceNextW)
|
||
|
DLPENTRY(WSAStringToAddressW)
|
||
|
DLPENTRY(WSCDeinstallProvider)
|
||
|
DLPENTRY(WSCDeinstallProvider32)
|
||
|
DLPENTRY(WSCEnumProtocols)
|
||
|
DLPENTRY(WSCInstallNameSpace)
|
||
|
DLPENTRY(WSCInstallNameSpace32)
|
||
|
DLPENTRY(WSCInstallProvider)
|
||
|
DLPENTRY(WSCInstallProvider64_32)
|
||
|
DLPENTRY(WSCUnInstallNameSpace)
|
||
|
DLPENTRY(WSCUnInstallNameSpace32)
|
||
|
};
|
||
|
|
||
|
DEFINE_PROCNAME_MAP(ws2_32)
|