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

韩冰

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

8 x# K# N8 }3 d, ]/ f

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

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

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

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

3 z: p; \+ z5 \0 R# S- {! Q8 w3 ~

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

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

7 C: \# s0 ~. C! ~& b2 h

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

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

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

( i7 b2 g) m) c! [6 |* d

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

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

! W4 T1 z J- P$ X- z

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

interface ILoginServer: IAppServer

8 F y. }( ^1 Y8 M' M; y

{

[

id(0x00000001)

# u# M) `5 `4 }; V# g8 m

]

( F- [8 B2 O6 G0 r9 F2 Y

HRESULT _stdcall Login( void );

u1 t+ D: o2 K" q" S

[

id(0x00000002)

]

HRESULT _stdcall Logout( void );

};

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

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

- s f2 {0 |1 e \7 D

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

% {0 H4 x9 ]; T

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

- z1 p- b) S0 @8 M

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

@* K0 H" P2 K- E8 N

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

# [0 r0 O; ?3 N( ~

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 ;

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

( ~ p% K f1 m- K( V( T

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

, z. l9 b1 o% @+ Q1 I0 S- K

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

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

, t9 ?3 ]9 l) n. z0 v" O" M

class TLoginServer : public TCRemoteDataModule

{

...

; _7 }- \& J' R% B

private: // User declarations

, n- K& V6 U$ t+ T6 r

bool FLogin;

void __fastcall SetLogin(bool value);

bool __fastcall IsLogin(OleVariant &OwnerData);

...

. |% j4 u2 q9 O# A

__published:

' e& P8 i G- ]1 ?

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

};

在RDM实现类中

class ATL_NO_VTABLE TLoginServerImpl: 。。。

{

% o1 i1 t3 G. L% x! [5 L: G) B

// ILoginServer

w) P( a" o/ K; |$ d1 ]' G

protected:

STDMETHOD(Login());

+ [7 _! ]3 n& a/ N1 J9 X. Z

STDMETHOD(Logout());

% t, ?6 k: g+ {

};

然后简单实现之

__fastcall TLoginServer::TLoginServer(TComponent* Owner)

, \# [7 B0 E* _; A3 B* `

: TCRemoteDataModule(Owner), FLogin(false)

{

6 p' [! O4 w, M0 Y

}

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

2 M! Q# E/ `/ W J

void __fastcall TLoginServer::SetLogin(bool value)

; C9 z3 O6 m2 k" E G2 X1 Z% r

{

if(FLogin != value)

{

8 h, Q0 ~. E& T% U+ Z

FLogin = value;

: ~, @/ \1 \+ s" W5 b+ i. `% n

dspAnimals->Exported = FLogin;

}

}

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

STDMETHODIMP TLoginServerImpl:ogin()

( O' g9 C8 o" }+ n$ L

{

+ I9 E# m" ` n3 c z- h R

m_DataModule->Login = true;

return S_OK;

}

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

: {5 i7 S$ {0 \; g c8 Z. l: ]: d+ L

STDMETHODIMP TLoginServerImpl:ogout()

{

% r! B- b" ?& x

m_DataModule->Login = false;

/ O8 V0 S' U/ z7 B6 U8 a

return S_FALSE;

}

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

bool __fastcall TLoginServer::IsLogin(OleVariant &OwnerData)

{

& s1 x5 ~ K" o% K

return FLogin;

! P& H$ D+ O0 h( y, i/ {

}

7 Z$ w9 C! n5 \4 D1 C9 R: h* V

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

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

8 U. t, ~5 z+ j* {2 P$ w7 w

( C8 W. O/ b# f1 F; W+ h

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

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

ILoginServerDisp dispLoginServer = (ILoginServer *)dispAppServer;

dispLoginServer.Login();

' t# N, f+ H! Z+ u) \$ o5 @

DM->cdsAnimals->Open();

& L' g+ q5 @3 v' d

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

) \8 q& u6 S5 { G5 [( x3 ?

+ x4 ~1 N% H1 ?/ [$ ~9 o

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

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