51
|
1 package IMPL::Security::Auth::Simple;
|
|
2
|
|
3 use base qw(IMPL::Security::Auth);
|
|
4 use Digest::MD5;
|
|
5 import IMPL::Security::Auth qw(:Const);
|
|
6
|
|
7 sub DoAuth {
|
|
8 my ($this,$clientData,$serverData) = @_;
|
|
9
|
|
10 if (Digest::MD5::md5_hex($clientData) eq $serverData) {
|
|
11 return SUCCESS;
|
|
12 } elsee {
|
|
13 return FAIL;
|
|
14 }
|
|
15 }
|
|
16
|
|
17 1;
|
|
18
|
|
19 __END__
|
|
20
|
|
21 =pod
|
|
22
|
|
23 =head1 DESCRIPTION
|
|
24
|
|
25 ������ ������� �����������
|
|
26
|
|
27 =cut |