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

韩冰

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

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

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

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

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

5 x4 @+ u! @8 |& [1 R& V; S

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

- f: z# B+ I' V3 O4 R

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

7 Z$ F# x6 J4 |& q4 s

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

+ v- B% a; l) M" K8 [

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

* {5 ]7 b7 i7 O d3 w f

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

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

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

7 w3 e' M4 M4 d. h# l

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

interface ILoginServer: IAppServer

{

( J( M2 G9 N, D% i; {5 R1 B. G

[

id(0x00000001)

]

HRESULT _stdcall Login( void );

[

id(0x00000002)

% K+ Y* T% g* k6 V" g9 g7 i7 U

]

/ L9 J* v% Q- k* T. R! h* f) M

HRESULT _stdcall Logout( void );

6 Z: D8 A, v* A/ G. S: g0 b) x

};

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

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

9 v) H* I b, {- g

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

1 K/ Y& i$ t4 q- N% {

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

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

7 h( S- y" _3 _ B l) t

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

virtual HRESULT __safecall AS_GetRecords(const WideString: ProviderName, in

1 [( o h; x5 n! S+ ^" t

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

$ F& Y# n- d! H/ x& g) h

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

3 V$ `9 B7 O# u1 y

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

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

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

" v y% H$ u- P% i

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

class TLoginServer : public TCRemoteDataModule

+ t' `+ B5 `9 e- n1 n- I4 h) U

{

; K6 I1 `- v3 i

...

private: // User declarations

, ^1 r q6 w) V$ A

bool FLogin;

void __fastcall SetLogin(bool value);

% a; Z6 ~- J4 w6 P' |8 ^8 {

bool __fastcall IsLogin(OleVariant &OwnerData);

...

__published:

) q6 {5 I7 _. V

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

};

o+ [0 ~0 G& i. Z2 r/ @* a+ Y) Z

在RDM实现类中

class ATL_NO_VTABLE TLoginServerImpl: 。。。

0 D; R. D* f7 V" e* @5 `

{

7 F3 e: o! c6 k$ p# j- }% M4 }

// ILoginServer

/ w$ p7 X! Q$ M! M

protected:

STDMETHOD(Login());

( g; h* k& f3 S. t, F% c: v% Q6 u

STDMETHOD(Logout());

; g6 i$ y+ Y. w7 }

};

然后简单实现之

& |' y9 V4 ]; b3 c$ C, O+ Z

__fastcall TLoginServer::TLoginServer(TComponent* Owner)

: TCRemoteDataModule(Owner), FLogin(false)

+ s! M& Y2 i6 r) C5 Y$ G7 S! V+ ^

{

: q0 j7 w6 j1 n, J$ y; @

}

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

8 M8 {/ s' k3 j3 F' R" j8 f

void __fastcall TLoginServer::SetLogin(bool value)

$ ?' m. c* s- v1 n' X. h

{

if(FLogin != value)

! t8 B8 k/ c" u- _5 F) q/ h( I

{

FLogin = value;

( D, f9 A/ Y4 X+ E3 ?

dspAnimals->Exported = FLogin;

}

+ i0 S+ \5 [# _+ X! i: U' W

}

0 P) V! [. g& }& t

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

9 l- B8 z& X& b6 f# p, g

STDMETHODIMP TLoginServerImpl:ogin()

+ l* w6 I$ R: G# [9 _

{

# ?3 x1 W$ ~( B: Y V, i7 f

m_DataModule->Login = true;

" s6 E8 c) C, [$ j8 F

return S_OK;

}

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

STDMETHODIMP TLoginServerImpl:ogout()

% Q/ P6 Y0 F9 }( m& `% b

{

" u" E) e/ R7 }

m_DataModule->Login = false;

& W1 p q z1 U1 ~( y" L

return S_FALSE;

# u: U6 F' C+ P8 r5 J0 u

}

# [1 |5 w* u7 b& K% ?" c

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

bool __fastcall TLoginServer::IsLogin(OleVariant &OwnerData)

7 u3 ?( I3 ` Q- m2 A

{

return FLogin;

1 x( ~7 _9 U+ U0 d5 x7 s# t

}

o! n- I5 \3 z$ U, s0 }7 e/ [

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

5 Z" Q( f4 X# \

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

4 y* I2 h; t+ i' `6 N$ G& e5 I

9 E" S* x* j7 [, |* V' j

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

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

8 x; s. b% k' u0 Q

ILoginServerDisp dispLoginServer = (ILoginServer *)dispAppServer;

1 q! C, c) H, c& |

dispLoginServer.Login();

# G& }" }5 n" `: {! k

DM->cdsAnimals->Open();

4 X {, x1 F- ]) C

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

, {* U# g- F7 M; E

. R& X, |7 G& t) R' s& w2 T7 i# F3 c

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

2 n6 X' ]' g; g1 @3 X2 E9 M& s b% h

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