--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/IMPL/Security/Auth/Simple.pm	Mon Mar 01 17:25:36 2010 +0300
@@ -0,0 +1,27 @@
+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
\ No newline at end of file