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

韩冰

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

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

3 `5 Q8 G4 S! F& c) G

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

: w; [8 H# I1 }' i8 p% m

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

& ^% U; S, o1 e& Z

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

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

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

) e( X' O7 M1 b3 W% Q, e4 N* ]

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

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

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

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

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

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

interface ILoginServer: IAppServer

t5 |1 q7 J* B. o

{

[

4 j$ v7 a* e/ t

id(0x00000001)

]

. H8 Q# L* r Q8 d7 J

HRESULT _stdcall Login( void );

[

r) H3 D* \" z. e- k u) C2 g

id(0x00000002)

* E& x! [# |, v- v$ t

]

( z# p5 l7 D: ]4 N/ b& k$ ^

HRESULT _stdcall Logout( void );

) \; M) J, {7 F" O, `! |( W' \

};

% m; t" c. G' V* i) p0 p# l

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

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

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

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

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

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

& r& `4 F) s+ F* h3 I% Q4 F) C( S

virtual HRESULT __safecall AS_GetRecords(const WideString: ProviderName, in

5 e' E0 |! T, M( u& y# X

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

: i* C4 u; x. C

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

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

, R8 C" e2 x* |: `0 V

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

" P1 `! }! ]$ Q

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

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

class TLoginServer : public TCRemoteDataModule

7 G: ^% Q* l1 J- q. q

{

) y) e& u2 O3 D8 y, o; A' h1 G2 a

...

private: // User declarations

bool FLogin;

void __fastcall SetLogin(bool value);

E J; q3 i" N( m4 h

bool __fastcall IsLogin(OleVariant &OwnerData);

* p' L, E# p' n1 l+ b/ H

...

__published:

; m4 U U% K# ~

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

};

" `7 B: t) i5 H# d

在RDM实现类中

9 {/ r; [9 ~' U/ J- o4 d" r

class ATL_NO_VTABLE TLoginServerImpl: 。。。

' V; ]6 h; m3 U

{

// ILoginServer

" v( w* o( S1 `3 Z2 e# T

protected:

+ C* E$ B6 b# T

STDMETHOD(Login());

) O+ E# C/ Q& v; b: j6 r2 \: j

STDMETHOD(Logout());

};

然后简单实现之

* t4 }5 P& w: |; x: C* ?

__fastcall TLoginServer::TLoginServer(TComponent* Owner)

: r/ n s$ ?2 W$ I) ^) ]9 M

: TCRemoteDataModule(Owner), FLogin(false)

{

}

9 a. Q& j! ^2 ]- p+ {6 a4 \2 ~+ z

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

void __fastcall TLoginServer::SetLogin(bool value)

/ u9 r0 e; w3 `) t7 l9 Q

{

# F8 E& P, H& l# g: U8 v* u- i! p, |

if(FLogin != value)

* C) k9 B _0 W7 A* Q4 G# ]6 L) p

{

FLogin = value;

' q o4 y7 i- J, i- ?' V

dspAnimals->Exported = FLogin;

}

, q; c/ R$ w7 f. k& ?1 V3 Y5 |

}

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

STDMETHODIMP TLoginServerImpl:ogin()

{

7 R+ @" }* G0 b8 y6 Y0 P

m_DataModule->Login = true;

* k: \* }* {2 ^1 P! K0 n

return S_OK;

3 }* V; D! x9 Z7 l& D4 W

}

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

& [* q9 h8 z4 t e: O) m

STDMETHODIMP TLoginServerImpl:ogout()

{

m_DataModule->Login = false;

return S_FALSE;

}

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

7 F. v4 d. X, T

bool __fastcall TLoginServer::IsLogin(OleVariant &OwnerData)

{

return FLogin;

}

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

7 i; e2 j$ Y* j" l, z

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

' i8 Q& V- T8 K8 p

/ v9 w4 B+ P2 v

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

' R2 l3 x3 j, y- e' }

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

ILoginServerDisp dispLoginServer = (ILoginServer *)dispAppServer;

dispLoginServer.Login();

DM->cdsAnimals->Open();

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

8 Y3 f( w0 l" U9 c: ~/ ?

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

8 C. K6 }$ }3 A/ f

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