socket连接多层程序安全性简述 - 连接

韩冰

前面hawkfly提到的在多层编程中，服务器端安全性验证的问题

; ]3 M# ~& s1 F6 _7 |1 Y/ T

在以socket方式实现MIDAS时尤为明显，DCOM/CORBA都有现成的

* e: }, a& J$ \8 H9 }

安全管理功能，而socket方式在这方面比较薄弱，没有现成的解决方案

现就我以前对MIDAS编程的理解，做一个简要的介绍，

7 ?0 S3 A p n8 W3 Y

以后有时间精力再详细举例说明

win2k中dcom的安全级别有7种，其中

1 s' A; g* z( g7 n

最低的“无”安全检查暂且不论

默认的“身份验证”服务方式几句话也说不清，

& }& U( `( \2 c1 g: ?5 f" E

先放到一边，看看剩下的5种

6 P) G& s4 r: q# T: l' }, v; @9 n

1.连接，仅对初始连接进行安全检查

6 W# S D% w) a L* [/ P8 I$ `

因为tcp/ip是稳固的连接，因此每个连接，也就是每个RemoteDataModule

实例检测一次即可，实现方法很多，这里简要介绍一种最简单的

! @5 g, R$ j) c) `, }) D/ q$ H* l

可以在服务器端的TypeLibrary里面为你的服务器接口增加若干个方法，如

interface ILoginServer: IAppServer

+ M# m* e1 A2 a. O, A

{

5 J# n, F& T, M, p

[

/ n, e/ B1 z. w {& D

id(0x00000001)

]

; ?7 a' j- a6 E

HRESULT _stdcall Login( void );

. {1 Y7 p2 S: T

[

id(0x00000002)

]

* ~3 N5 X+ u* }* O: [

HRESULT _stdcall Logout( void );

};

在方法中实现你的客户身份校验，而在校验之前，通过把RDM上所有的TDataSetProvider

的Exported属性关掉即可让客户端无法看到服务器端的provider

因为客户端实际上是在连接服务器成功后通过服务器之IAppServer接口访问

2 t5 D1 v2 B+ n

所有的Provider，如IAppServer::AS_GetProviderNames可以取得

服务器端所有exported的IProvider接口名称，而所有数据的取得、修改

8 c6 i. l( I9 c k" m( V

都是通过相应的ProviderName来指定的，如

# a0 R7 Z0 K1 g L; I

virtual HRESULT __safecall AS_GetRecords(const WideString: ProviderName, in

t Count, int &RecsOut, int Options, const WideString: CommandText, OleVarian

t &arams, OleVariant: &OwnerData, OleVariant &GetRecords_result) = 0 ;

取得数据方法的第一个参数就是你需要操作的数据集名称……

/ w% J# q; t/ g8 ^

如果你把服务器RDM上所有的TDataSetProvider::Exported关掉，

则客户端看不到任何Provider，也无法通过其ProviderName取得数据

' T( t* q# ^: \0 u( E; y, u

例如我在服务器端的RDM类中加入

- X6 h* M5 M4 y( ^) w3 U

class TLoginServer : public TCRemoteDataModule

{

...

private: // User declarations

& _5 f6 ] l2 v

bool FLogin;

& [1 Y0 P' [1 t, o4 w1 r- O

void __fastcall SetLogin(bool value);

5 a7 P, l% s( ]3 ], U; B; n4 f

bool __fastcall IsLogin(OleVariant &OwnerData);

...

__published:

$ U! R# V r& _

__property bool Login = { read = FLogin, write = SetLogin };

};

, G! a7 o$ }" |, A8 k( S/ v

在RDM实现类中

3 I( f0 A1 n$ M5 D `

class ATL_NO_VTABLE TLoginServerImpl: 。。。

{

// ILoginServer

protected:

STDMETHOD(Login());

STDMETHOD(Logout());

};

然后简单实现之

__fastcall TLoginServer::TLoginServer(TComponent* Owner)

: TCRemoteDataModule(Owner), FLogin(false)

4 i o! \# U- Q+ N$ v

{

}

4 {- |1 \" v3 t( ~$ v

//---------------------------------------------------------------------------

void __fastcall TLoginServer::SetLogin(bool value)

{

if(FLogin != value)

{

FLogin = value;

dspAnimals->Exported = FLogin;

}

3 k6 F' A0 F4 d

}

/ A! f% Z4 S E7 `

//---------------------------------------------------------------------------

5 m& v+ H9 d' j* ]! ^0 _& W

STDMETHODIMP TLoginServerImpl:ogin()

) {2 [, H0 l. W1 P6 \: S

{

$ R/ {+ a! o) f" n7 e7 @

m_DataModule->Login = true;

return S_OK;

}

% b: a# i& H* T( U3 @0 O( v

//---------------------------------------------------------------------------

STDMETHODIMP TLoginServerImpl:ogout()

{

* w' \! U3 Y5 {9 ?) I# [% y

m_DataModule->Login = false;

return S_FALSE;

}

( {6 n! n# }% _6 N2 A

//---------------------------------------------------------------------------

bool __fastcall TLoginServer::IsLogin(OleVariant &OwnerData)

{

return FLogin;

}

" ]) D; h) `- Q; r6 }: s6 q' ]

easy 这样除非你的客户端成功调用Login方法，否则他是无法使用

, P* Y3 {1 ^# D# w1 g) L

dspAnimals这个数据集Provider的，成功调用后手工打开的数据集使用完全相同

; @: u& L! Z) M0 x

+ [# U$ X0 x6 u' C% A# W+ |+ s

比如客户端可以用如下代码

* {) U) N; A1 F6 D+ o2 z$ L; d

IDispatch *dispAppServer = (IDispatch*)(DM->Connection->AppServer);

ILoginServerDisp dispLoginServer = (ILoginServer *)dispAppServer;

* ^6 \" |( @2 h( y' ^ ]3 z N

dispLoginServer.Login();

+ f7 c6 {# n+ K h! V

DM->cdsAnimals->Open();

, {; |! o* s! _

实现注册，并且打开相应数据集……

7 j0 O6 p7 x, F6 Y3 V# [

因为大多数的三层程序对安全性要求并不高，因此这样的安全检测对

( O% S( {/ s( K4 @+ C) ^3 q

绝大多数程序应该足以……