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

韩冰

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

4 {0 g! {; f, D u

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

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

3 k" |# w: |6 R h, q

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

9 J7 \$ G+ [ ?

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

4 D# K6 Z! w2 F% m

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

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

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

1 @! H+ _- f' _* P7 Y- }' [; F

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

P6 X* H9 c8 E' ~* @# n! }+ S' {- L

7 r' O* D7 p D! x, F4 Y& b5 W

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

* _- s7 c% r/ X; E

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

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

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

interface ILoginServer: IAppServer

2 v" y D- n2 ?8 Q

{

[

: W$ n, \3 m! l$ g- g e

id(0x00000001)

]

" m. K4 O' y" Z: g4 W* a

HRESULT _stdcall Login( void );

[

id(0x00000002)

]

HRESULT _stdcall Logout( void );

- ~8 n1 Z0 O5 t! c0 O+ r2 U

};

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

J3 a, w8 G1 A5 T$ X6 I

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

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

4 x* g3 p' L8 s7 }% K

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

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

, n) M/ U7 v3 }

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

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 ;

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

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

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

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

) K% P' @' ]7 Z1 j4 u/ H- G% x; m7 b

class TLoginServer : public TCRemoteDataModule

: Q7 W1 }; R# K) m0 W' ~

{

...

private: // User declarations

, J* X3 n4 p0 q; a

bool FLogin;

; z- f. y- V6 U

void __fastcall SetLogin(bool value);

5 ~: @! G J$ e. {

bool __fastcall IsLogin(OleVariant &OwnerData);

...

__published:

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

};

在RDM实现类中

3 ~' K9 |4 q& i% D$ g H3 v5 p3 } |

class ATL_NO_VTABLE TLoginServerImpl: 。。。

{

6 C9 v: p4 q, G8 G$ D( C& w* q! [8 S

// ILoginServer

0 G) x5 F9 H4 w4 p

protected:

! B4 h7 k7 J: [/ j. ]3 v7 p

STDMETHOD(Login());

STDMETHOD(Logout());

};

% f+ A a+ z3 V" J2 e

然后简单实现之

& e6 u8 H* C. u6 Y! v- X

__fastcall TLoginServer::TLoginServer(TComponent* Owner)

: TCRemoteDataModule(Owner), FLogin(false)

* t$ m; p3 R; t6 s; g1 r

{

}

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

void __fastcall TLoginServer::SetLogin(bool value)

d) j- e/ M% D9 w

{

if(FLogin != value)

{

+ j9 m6 c0 p8 w3 M

FLogin = value;

* m3 g2 V/ }( V1 Q8 M8 o

dspAnimals->Exported = FLogin;

}

0 j3 i, M" O2 G; U/ e( a& @6 r3 N

}

6 Q1 T* X4 X6 t3 D7 C# Z& s6 e

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

STDMETHODIMP TLoginServerImpl:ogin()

; N! A i/ }/ g8 I

{

m_DataModule->Login = true;

4 R+ D! S0 m$ v' V! c, `) Z0 |4 p& {

return S_OK;

# s# l+ a0 k+ j) v; M" o

}

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

STDMETHODIMP TLoginServerImpl:ogout()

{

m_DataModule->Login = false;

return S_FALSE;

7 E5 N! U" ?& c9 ?0 y/ G4 U

}

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

bool __fastcall TLoginServer::IsLogin(OleVariant &OwnerData)

{

( x4 r+ N# _2 N$ j e

return FLogin;

}

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

. P r) w! V6 G3 K7 E; T* f* P8 b/ H

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

" l: |! ~3 t% Z: ] Q! @) `

2 Z8 |7 C( f" V1 P" |4 A+ ~. O% t

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

( b0 H$ m1 }1 I0 Q Q0 F

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

ILoginServerDisp dispLoginServer = (ILoginServer *)dispAppServer;

dispLoginServer.Login();

/ g, _- N1 N5 N8 N

DM->cdsAnimals->Open();

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

- U3 R3 B) R, q: p! x

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

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