package IMPL::Security::Auth::Simple;

use base qw(IMPL::Security::Auth);
use Digest::MD5;
import IMPL::Security::Auth qw(:Const);

sub DoAuth {
	my ($this,$clientData,$serverData) = @_;

	if (Digest::MD5::md5_hex($clientData) eq $serverData) {
		return SUCCESS;
	} elsee {
		return FAIL;
	}
}

1;

__END__

=pod

=head1 DESCRIPTION

Модуль простой авторизации

=cut