--- a/Lib/IMPL/Security/Auth/Simple.pm	Wed Mar 24 17:42:04 2010 +0300
+++ b/Lib/IMPL/Security/Auth/Simple.pm	Thu Mar 25 13:05:18 2010 +0300
@@ -1,4 +1,5 @@
 package IMPL::Security::Auth::Simple;
+use strict;
 
 use base qw(IMPL::Security::Auth);
 use Digest::MD5;
@@ -36,14 +37,32 @@
 	}
 }
 
+sub CreateSecData {
+	my ($self,%args) = @_;
+	
+	die new IMPL::InvalidArgumentException("The parameter is required",'password') unless $args{password};
+	
+	return md5_hex($args{password});
+}
+
+sub SecDataArgs {
+	
+		
+}
+
 1;
 
 __END__
 
 =pod
 
+=head1 NAME
+
+C<IMPL::Security::Auth::Simple> Модуль простой авторизации.
+
 =head1 DESCRIPTION
 
-Модуль простой авторизации
+
+
 
 =cut
\ No newline at end of file