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

韩冰

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

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

6 t" ^! x, M+ U$ o6 a

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

" j$ i+ Z) A( n$ G' Z

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

% o& a; W; S8 q9 w5 x

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

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

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

8 f! K/ R0 L9 ~' y

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

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

4 V4 K9 ]4 u! e R5 [; O7 U4 D

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

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

1 N) q1 t) f' y/ F: X" ~

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

+ |) }$ @- q7 Y: I

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

5 R& E" ^3 c, E/ v

interface ILoginServer: IAppServer

{

[

id(0x00000001)

]

; o9 x- d* C5 @+ a1 [: b

HRESULT _stdcall Login( void );

% G h+ |) V, C

[

- h: A8 x0 z. t

id(0x00000002)

]

HRESULT _stdcall Logout( void );

};

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

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

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

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

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

/ o6 `' o( ?+ U1 N3 n4 e

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

9 Q* e+ P7 B6 n+ H3 ]1 u, m9 R

virtual HRESULT __safecall AS_GetRecords(const WideString: ProviderName, in

+ l" A* D3 ]( ]% {

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

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

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

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

) s1 U7 Y5 }0 \& E, ?( Y t5 P3 {

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

5 y3 C2 _9 P7 r( R

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

2 ?" \3 z8 w0 Z* ]9 V

class TLoginServer : public TCRemoteDataModule

{

1 _( q! V3 n2 w& W: G, x" h, F

...

! o# u! J# ?3 s8 |8 y

private: // User declarations

* E' H2 M$ F7 c/ m/ ^/ h1 ?( p9 R

bool FLogin;

void __fastcall SetLogin(bool value);

bool __fastcall IsLogin(OleVariant &OwnerData);

...

H' X% j, g6 z, `

__published:

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

};

在RDM实现类中

5 d6 h V) A0 k! T' T6 C) ^2 K( J

class ATL_NO_VTABLE TLoginServerImpl: 。。。

5 b5 M- l; k1 ]: a1 G

{

8 L4 F7 ?5 @1 U$ x; s W$ H8 Y7 V

// ILoginServer

protected:

b" k( v6 A/ i1 b: W; B+ Z

STDMETHOD(Login());

STDMETHOD(Logout());

};

然后简单实现之

5 ?& ~; r" V* t) `8 v7 P1 |

__fastcall TLoginServer::TLoginServer(TComponent* Owner)

: TCRemoteDataModule(Owner), FLogin(false)

! R4 N7 k# C" s, E. G

{

}

, n( S% L6 D' h+ X

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

void __fastcall TLoginServer::SetLogin(bool value)

{

1 y O( T% u3 A

if(FLogin != value)

{

FLogin = value;

dspAnimals->Exported = FLogin;

}

}

& d: ]+ l9 [4 M

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

STDMETHODIMP TLoginServerImpl:ogin()

{

m_DataModule->Login = true;

return S_OK;

: ?/ p2 r! u) q x- E

}

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

( k4 {- [9 M1 I

STDMETHODIMP TLoginServerImpl:ogout()

{

. e6 c& @! }! @; `7 G: i: V

m_DataModule->Login = false;

+ b5 g1 [3 w9 |* h( ^( a T6 A, Y

return S_FALSE;

}

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

& t4 N2 X( ]6 v( [/ N9 V$ W

bool __fastcall TLoginServer::IsLogin(OleVariant &OwnerData)

5 z$ C0 V/ g. [* b6 a+ c5 E# t0 v

{

8 Z2 P: [8 r/ P2 _5 i

return FLogin;

0 n1 s; g1 K- L% a* R- b0 n! n

}

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

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

$ i$ W0 `. B" V. }* |; I

z [1 y; H2 w

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

5 U1 c# `5 b4 u

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

ILoginServerDisp dispLoginServer = (ILoginServer *)dispAppServer;

dispLoginServer.Login();

4 M2 }0 X4 c% x% h

DM->cdsAnimals->Open();

2 i- b: q1 a- ]4 {3 b: G; T

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

/ j4 X/ _! Y8 [

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

) y! h' |( q1 _+ ~# e+ Z

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