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

韩冰

' Q/ j- F& N/ i1 O

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

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

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

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

: r$ y3 j' u! c

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

8 \) B3 u$ Y( C# B# c

. F4 r, I. V t8 d% [, i" K ?

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

; Z8 p! c* W0 h l: l, J2 R" S3 J

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

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

) }! }. H8 E8 q& n2 U

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

4 L' V1 J2 |, f5 q$ V' C% U

1 O3 ~ m; R8 s

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

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

W2 v) p. M: B- ~3 F( F2 ~7 m

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

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

interface ILoginServer: IAppServer

{

[

id(0x00000001)

2 |1 S+ K* l) V

]

) P6 `7 G, N! |9 C

HRESULT _stdcall Login( void );

[

2 k3 r; }0 _- }! F

id(0x00000002)

]

$ `+ K$ J8 R. s

HRESULT _stdcall Logout( void );

0 C {& m( J0 Y1 F) e* R1 ]

};

$ X1 B6 Y9 L5 ^- ]( B

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

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

# }6 P9 ~# {/ ]( A

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

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

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

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

virtual HRESULT __safecall AS_GetRecords(const WideString: ProviderName, in

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

% I% B0 w1 M/ w* }1 j, |; E4 G5 j

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

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

6 ]' r p2 G* N% ?* w

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

, q8 U; y: L5 b

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

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

- |5 V* j9 k3 D9 P6 p. O

class TLoginServer : public TCRemoteDataModule

- U% Q! y! V, R9 d

{

0 {5 s5 R, Y1 b6 m4 u$ ?

...

. H- i& @- b9 M I7 w+ U. L

private: // User declarations

4 p# l8 X+ }) O6 Q' B2 }3 ? y/ l

bool FLogin;

8 K4 T; r7 q7 G

void __fastcall SetLogin(bool value);

bool __fastcall IsLogin(OleVariant &OwnerData);

...

__published:

- a7 [ }$ Z$ Z, ~8 |7 v& \1 T

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

};

在RDM实现类中

class ATL_NO_VTABLE TLoginServerImpl: 。。。

{

: C, n# M% \1 \! {) F

// ILoginServer

8 l6 b% E4 O. q! K; S g4 L% J, K

protected:

STDMETHOD(Login());

STDMETHOD(Logout());

};

然后简单实现之

__fastcall TLoginServer::TLoginServer(TComponent* Owner)

0 a2 H2 l4 O; \% F7 }; s

: TCRemoteDataModule(Owner), FLogin(false)

{

}

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

void __fastcall TLoginServer::SetLogin(bool value)

; ]: [" d, G7 w: c0 \* G

{

if(FLogin != value)

6 c: p; d, c; D6 r @! i; n2 Z

{

+ j; e7 w) J- a5 q, M) h! h

FLogin = value;

dspAnimals->Exported = FLogin;

}

9 V7 e! Z' t5 P2 R' q$ L

}

) v7 E( f2 A6 o4 }& \

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

; [ b; G m! L. v) d6 ~

STDMETHODIMP TLoginServerImpl:ogin()

{

& t7 H J( S! V% o9 q- M

m_DataModule->Login = true;

return S_OK;

# J7 W9 B, k& ~: v+ I0 t

}

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

STDMETHODIMP TLoginServerImpl:ogout()

# T4 S; m1 p' D& q, M/ k, m t

{

m_DataModule->Login = false;

# ]8 q. _2 g$ a8 n ^& L6 Z

return S_FALSE;

- _5 [$ g( C- `+ j6 t" w) N {9 J

}

& v! V/ L7 s* V7 H- q

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

4 m1 s/ U. ~; z

bool __fastcall TLoginServer::IsLogin(OleVariant &OwnerData)

{

8 B3 a |9 x( W3 ]5 @) Y: u

return FLogin;

}

" N- L; R8 K+ V8 {/ b

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

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

$ O( x7 s! L% F6 c" x/ N$ h( m

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

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

( P& [" @* w4 r" n' Q' n

ILoginServerDisp dispLoginServer = (ILoginServer *)dispAppServer;

dispLoginServer.Login();

* Z% W: W3 N `- N8 q q% }

DM->cdsAnimals->Open();

. T1 P/ U' {" {- z) T7 t) g

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

& E) _, o) _3 e& i

4 \& ~" {3 k! W1 }

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

7 B/ z1 A O6 _! r3 W1 {1 u! J

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