找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 1|回复: 0

[15329] 2020-05-03_等保测评2.0:Oracle身份鉴别

[复制链接]

6万

主题

-6万

回帖

-58

积分

管理员

积分
-58
发表于 5 天前 | 显示全部楼层 |阅读模式
2020-05-03_等保测评2.0:Oracle身份鉴别 2 . 0 O r a c l e     F r e e B u f   2 0 2 0 - 0 5 - 0 3 o r a c l e a a a ) a 1 o r a c l e 使 o r a c l e s q l n e t . o r a S Q L N E T . A U T H E N T I C A T I O N _ S E R V I C E S S Q L N E T . A U T H E N T I C A T I O N _ S E R V I C E S l i n u x w i n d o w s c e n t o s o r a c l e o r a c l e o r a c l e r o o t 使 s u   -   o r a c l e o i n s t a l l o r a c l e o i n s t a l l o r a c l e 使 s q l p l u s   /   a s   s y s d b a o r a c l e 使 o i n s t a l l r e m o t e _ o s _ a u t h e n t o s _ a u t h e n t _ p r e f i x F A L S E o p s $ r e m o t e _ o s _ a u t h e n t F A L S E S Q L N E T . A U T H E N T I C A T I O N _ S E R V I C E S o s _ a u t h e n t _ p r e f i x o p s $ c v o r a c l e o p s $ c v c v 使 s q l p l u s   / s q l p l u s   /   a s   n o r m a l o p s $ c v c v 便 使 s q l p l u s r e m o t e _ o s _ a u t h e n t T R U E o s _ a u t h e n t _ p r e f i x o p s $ c v o p s $ c v o r a c l e a 2 o r a c l e a 3 8 a d m i n ! @ # 1 2 3 o r a c l e P A S S W O R D _ V E R I F Y _ F U N C T I O N s e l e c t   *   f r o m   d b a _ p r o f i l e s ;
使 P A S S W O R D _ V E R I F Y _ F U N C T I O N P r o f i l e D e f a u l t 使 D e f a u l t D B A _ U S E R S P r o f i l e D e f a u l t 使 D e f a u l t P A S S W O R D _ V E R I F Y _ F U N C T I O N o r a c l e n u l l 使 u t l p w d m g . s q l u t l p w d m g . s q l o r a c l e 1 1 g u t l p w d m g . s q l P A S S W O R D _ V E R I F Y _ F U N C T I O N u t l p w d m g . s q l F U N C T I O N   v e r i f y _ f u n c t i o n _ 1 1 G s e l e c t   u s e r n a m e , p r o f i l e   f r o m   D B A _ U S E R S C R E A T E   O R   R E P L A C E   F U N C T I O N   v e r i f y _ f u n c t i o n _ 1 1 G ( u s e r n a m e   v a r c h a r 2 ,     p a s s w o r d   v a r c h a r 2 ,     o l d _ p a s s w o r d   v a r c h a r 2 )     R E T U R N   b o o l e a n   I S       n   b o o l e a n ;       m   i n t e g e r ;       d i f f e r   i n t e g e r ;       i s d i g i t   b o o l e a n ;
      i s d i g i t   b o o l e a n ;       i s c h a r     b o o l e a n ;       i s p u n c t   b o o l e a n ;       d b _ n a m e   v a r c h a r 2 ( 4 0 ) ;       d i g i t a r r a y   v a r c h a r 2 ( 2 0 ) ;       p u n c t a r r a y   v a r c h a r 2 ( 2 5 ) ;       c h a r a r r a y   v a r c h a r 2 ( 5 2 ) ;       i _ c h a r   v a r c h a r 2 ( 1 0 ) ;       s i m p l e _ p a s s w o r d   v a r c h a r 2 ( 1 0 ) ;       r e v e r s e _ u s e r   v a r c h a r 2 ( 3 2 ) ; B E G I N       d i g i t a r r a y : =   ' 0 1 2 3 4 5 6 7 8 9 ' ;       c h a r a r r a y : =   ' a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z ' ;       - -   C h e c k   f o r   t h e   m i n i m u m   l e n g t h   o f   t h e   p a s s w o r d       I F   l e n g t h ( p a s s w o r d )   <   8   T H E N             r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 1 ,   ' P a s s w o r d   l e n g t h   l e s s   t h a n   8 ' ) ;       E N D   I F ;       - -   C h e c k   i f   t h e   p a s s w o r d   i s   s a m e   a s   t h e   u s e r n a m e   o r   u s e r n a m e ( 1 - 1 0 0 )       I F   N L S _ L O W E R ( p a s s w o r d )   =   N L S _ L O W E R ( u s e r n a m e )   T H E N           r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 2 ,   ' P a s s w o r d   s a m e   a s   o r   s i m i l a r   t o   u s e r ' ) ;       E N D   I F ;       F O R   i   I N   1 . . 1 0 0   L O O P             i _ c h a r   : =   t o _ c h a r ( i ) ;             i f   N L S _ L O W E R ( u s e r n a m e ) | |   i _ c h a r   =   N L S _ L O W E R ( p a s s w o r d )   T H E N                 r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 5 ,   ' P a s s w o r d   s a m e   a s   o r   s i m i l a r   t o   u s e r   n a m e   ' ) ;             E N D   I F ;         E N D   L O O P ;       - -   C h e c k   i f   t h e   p a s s w o r d   i s   s a m e   a s   t h e   u s e r n a m e   r e v e r s e d       F O R   i   i n   R E V E R S E   1 . . l e n g t h ( u s e r n a m e )   L O O P           r e v e r s e _ u s e r   : =   r e v e r s e _ u s e r   | |   s u b s t r ( u s e r n a m e ,   i ,   1 ) ;       E N D   L O O P ;       I F   N L S _ L O W E R ( p a s s w o r d )   =   N L S _ L O W E R ( r e v e r s e _ u s e r )   T H E N           r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 3 ,   ' P a s s w o r d   s a m e   a s   u s e r n a m e   r e v e r s e d ' ) ;       E N D   I F ;       - -   C h e c k   i f   t h e   p a s s w o r d   i s   t h e   s a m e   a s   s e r v e r   n a m e   a n d   o r   s e r v e r n a m e ( 1 - 1 0 0 )       s e l e c t   n a m e   i n t o   d b _ n a m e   f r o m   s y s . v $ d a t a b a s e ;       i f   N L S _ L O W E R ( d b _ n a m e )   =   N L S _ L O W E R ( p a s s w o r d )   T H E N             r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 4 ,   ' P a s s w o r d   s a m e   a s   o r   s i m i l a r   t o   s e r v e r   n a m e ' ) ;       E N D   I F ;       F O R   i   I N   1 . . 1 0 0   L O O P             i _ c h a r   : =   t o _ c h a r ( i ) ;             i f   N L S _ L O W E R ( d b _ n a m e ) | |   i _ c h a r   =   N L S _ L O W E R ( p a s s w o r d )   T H E N                 r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 5 ,   ' P a s s w o r d   s a m e   a s   o r   s i m i l a r   t o   s e r v e r   n a m e   ' ) ;             E N D   I F ;         E N D   L O O P ;       - -   C h e c k   i f   t h e   p a s s w o r d   i s   t o o   s i m p l e .   A   d i c t i o n a r y   o f   w o r d s   m a y   b e       - -   m a i n t a i n e d   a n d   a   c h e c k   m a y   b e   m a d e   s o   a s   n o t   t o   a l l o w   t h e   w o r d s       - -   t h a t   a r e   t o o   s i m p l e   f o r   t h e   p a s s w o r d .       I F   N L S _ L O W E R ( p a s s w o r d )   I N   ( ' w e l c o m e 1 ' ,   ' d a t a b a s e 1 ' ,   ' a c c o u n t 1 ' ,   ' u s e r 1 2 3 4 ' ,   ' p a s s w o r d 1 ' ,   ' o r a c l e 1 2 3 ' ,   ' c o m p u t e r 1 ' ,   ' a b c d e f g 1 ' ,   ' c h a n g e _ o n _ i n s t a l l ' )   T H E N             r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 6 ,   ' P a s s w o r d   t o o   s i m p l e ' ) ;       E N D   I F ;       - -   C h e c k   i f   t h e   p a s s w o r d   i s   t h e   s a m e   a s   o r a c l e   ( 1 - 1 0 0 )         s i m p l e _ p a s s w o r d   : =   ' o r a c l e ' ;         F O R   i   I N   1 . . 1 0 0   L O O P             i _ c h a r   : =   t o _ c h a r ( i ) ;             i f   s i m p l e _ p a s s w o r d   | |   i _ c h a r   =   N L S _ L O W E R ( p a s s w o r d )   T H E N                 r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 7 ,   ' P a s s w o r d   t o o   s i m p l e   ' ) ;             E N D   I F ;         E N D   L O O P ;       - -   C h e c k   i f   t h e   p a s s w o r d   c o n t a i n s   a t   l e a s t   o n e   l e t t e r ,   o n e   d i g i t       - -   1 .   C h e c k   f o r   t h e   d i g i t       i s d i g i t : = F A L S E ;       m   : =   l e n g t h ( p a s s w o r d ) ;       F O R   i   I N   1 . . 1 0   L O O P
P A S S W O R D _ V E R I F Y _ F U N C T I O N v e r i f y _ f u n c t i o n _ 1 1 G             F O R   j   I N   1 . . m   L O O P                   I F   s u b s t r ( p a s s w o r d , j , 1 )   =   s u b s t r ( d i g i t a r r a y , i , 1 )   T H E N                         i s d i g i t : = T R U E ;                           G O T O   f i n d c h a r ;                   E N D   I F ;             E N D   L O O P ;       E N D   L O O P ;       I F   i s d i g i t   =   F A L S E   T H E N             r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 8 ,   ' P a s s w o r d   m u s t   c o n t a i n   a t   l e a s t   o n e   d i g i t ,   o n e   c h a r a c t e r ' ) ;       E N D   I F ;       - -   2 .   C h e c k   f o r   t h e   c h a r a c t e r       < < f i n d c h a r > >       i s c h a r : = F A L S E ;       F O R   i   I N   1 . . l e n g t h ( c h a r a r r a y )   L O O P             F O R   j   I N   1 . . m   L O O P                   I F   s u b s t r ( p a s s w o r d , j , 1 )   =   s u b s t r ( c h a r a r r a y , i , 1 )   T H E N                         i s c h a r : = T R U E ;                           G O T O   e n d s e a r c h ;                   E N D   I F ;             E N D   L O O P ;       E N D   L O O P ;       I F   i s c h a r   =   F A L S E   T H E N             r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 9 ,   ' P a s s w o r d   m u s t   c o n t a i n   a t   l e a s t   o n e                               d i g i t ,   a n d   o n e   c h a r a c t e r ' ) ;       E N D   I F ;       < < e n d s e a r c h > >       - -   C h e c k   i f   t h e   p a s s w o r d   d i f f e r s   f r o m   t h e   p r e v i o u s   p a s s w o r d   b y   a t   l e a s t       - -   3   l e t t e r s       I F   o l d _ p a s s w o r d   I S   N O T   N U L L   T H E N           d i f f e r   : =   l e n g t h ( o l d _ p a s s w o r d )   -   l e n g t h ( p a s s w o r d ) ;           d i f f e r   : =   a b s ( d i f f e r ) ;           I F   d i f f e r   <   3   T H E N               I F   l e n g t h ( p a s s w o r d )   <   l e n g t h ( o l d _ p a s s w o r d )   T H E N                   m   : =   l e n g t h ( p a s s w o r d ) ;               E L S E                   m   : =   l e n g t h ( o l d _ p a s s w o r d ) ;               E N D   I F ;               F O R   i   I N   1 . . m   L O O P                   I F   s u b s t r ( p a s s w o r d , i , 1 )   ! =   s u b s t r ( o l d _ p a s s w o r d , i , 1 )   T H E N                       d i f f e r   : =   d i f f e r   +   1 ;                   E N D   I F ;               E N D   L O O P ;               I F   d i f f e r   <   3   T H E N                   r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 1 1 ,   ' P a s s w o r d   s h o u l d   d i f f e r   f r o m   t h e                           o l d   p a s s w o r d   b y   a t   l e a s t   3   c h a r a c t e r s ' ) ;               E N D   I F ;           E N D   I F ;       E N D   I F ;       - -   E v e r y t h i n g   i s   f i n e ;   r e t u r n   T R U E   ;       R E T U R N ( T R U E ) ; E N D ; / - -   T h i s   s c r i p t   a l t e r s   t h e   d e f a u l t   p a r a m e t e r s   f o r   P a s s w o r d   M a n a g e m e n t - -   T h i s   m e a n s   t h a t   a l l   t h e   u s e r s   o n   t h e   s y s t e m   h a v e   P a s s w o r d   M a n a g e m e n t - -   e n a b l e d   a n d   s e t   t o   t h e   f o l l o w i n g   v a l u e s   u n l e s s   a n o t h e r   p r o f i l e   i s - -   c r e a t e d   w i t h   p a r a m e t e r   v a l u e s   s e t   t o   d i f f e r e n t   v a l u e   o r   U N L I M I T E D - -   i s   c r e a t e d   a n d   a s s i g n e d   t o   t h e   u s e r . A L T E R   P R O F I L E   D E F A U L T   L I M I T P A S S W O R D _ L I F E _ T I M E   1 8 0 P A S S W O R D _ G R A C E _ T I M E   7 P A S S W O R D _ R E U S E _ T I M E   U N L I M I T E D P A S S W O R D _ R E U S E _ M A X   U N L I M I T E D F A I L E D _ L O G I N _ A T T E M P T S   1 0
P A S S W O R D _ L O C K _ T I M E   1 P A S S W O R D _ V E R I F Y _ F U N C T I O N   v e r i f y _ f u n c t i o n _ 1 1 G ; F U N C T I O N   v e r i f y _ f u n c t i o n - -   B e l o w   i s   t h e   o l d e r   v e r s i o n   o f   t h e   s c r i p t - -   T h i s   s c r i p t   s e t s   t h e   d e f a u l t   p a s s w o r d   r e s o u r c e   p a r a m e t e r s - -   T h i s   s c r i p t   n e e d s   t o   b e   r u n   t o   e n a b l e   t h e   p a s s w o r d   f e a t u r e s . - -   H o w e v e r   t h e   d e f a u l t   r e s o u r c e   p a r a m e t e r s   c a n   b e   c h a n g e d   b a s e d - -   o n   t h e   n e e d . - -   A   d e f a u l t   p a s s w o r d   c o m p l e x i t y   f u n c t i o n   i s   a l s o   p r o v i d e d . - -   T h i s   f u n c t i o n   m a k e s   t h e   m i n i m u m   c o m p l e x i t y   c h e c k s   l i k e - -   t h e   m i n i m u m   l e n g t h   o f   t h e   p a s s w o r d ,   p a s s w o r d   n o t   s a m e   a s   t h e - -   u s e r n a m e ,   e t c .   T h e   u s e r   m a y   e n h a n c e   t h i s   f u n c t i o n   a c c o r d i n g   t o - -   t h e   n e e d . - -   T h i s   f u n c t i o n   m u s t   b e   c r e a t e d   i n   S Y S   s c h e m a . - -   c o n n e c t   s y s / < p a s s w o r d >   a s   s y s d b a   b e f o r e   r u n n i n g   t h e   s c r i p t C R E A T E   O R   R E P L A C E   F U N C T I O N   v e r i f y _ f u n c t i o n ( u s e r n a m e   v a r c h a r 2 ,     p a s s w o r d   v a r c h a r 2 ,     o l d _ p a s s w o r d   v a r c h a r 2 )     R E T U R N   b o o l e a n   I S       n   b o o l e a n ;       m   i n t e g e r ;       d i f f e r   i n t e g e r ;       i s d i g i t   b o o l e a n ;       i s c h a r     b o o l e a n ;       i s p u n c t   b o o l e a n ;       d i g i t a r r a y   v a r c h a r 2 ( 2 0 ) ;       p u n c t a r r a y   v a r c h a r 2 ( 2 5 ) ;       c h a r a r r a y   v a r c h a r 2 ( 5 2 ) ; B E G I N       d i g i t a r r a y : =   ' 0 1 2 3 4 5 6 7 8 9 ' ;       c h a r a r r a y : =   ' a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z ' ;       p u n c t a r r a y : = ' ! " # $ % & ( ) ` ` * + , - / : ; < = > ? _ ' ;       - -   C h e c k   i f   t h e   p a s s w o r d   i s   s a m e   a s   t h e   u s e r n a m e       I F   N L S _ L O W E R ( p a s s w o r d )   =   N L S _ L O W E R ( u s e r n a m e )   T H E N           r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 1 ,   ' P a s s w o r d   s a m e   a s   o r   s i m i l a r   t o   u s e r ' ) ;       E N D   I F ;       - -   C h e c k   f o r   t h e   m i n i m u m   l e n g t h   o f   t h e   p a s s w o r d       I F   l e n g t h ( p a s s w o r d )   <   4   T H E N             r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 2 ,   ' P a s s w o r d   l e n g t h   l e s s   t h a n   4 ' ) ;       E N D   I F ;       - -   C h e c k   i f   t h e   p a s s w o r d   i s   t o o   s i m p l e .   A   d i c t i o n a r y   o f   w o r d s   m a y   b e       - -   m a i n t a i n e d   a n d   a   c h e c k   m a y   b e   m a d e   s o   a s   n o t   t o   a l l o w   t h e   w o r d s       - -   t h a t   a r e   t o o   s i m p l e   f o r   t h e   p a s s w o r d .       I F   N L S _ L O W E R ( p a s s w o r d )   I N   ( ' w e l c o m e ' ,   ' d a t a b a s e ' ,   ' a c c o u n t ' ,   ' u s e r ' ,   ' p a s s w o r d ' ,   ' o r a c l e ' ,   ' c o m p u t e r ' ,   ' a b c d ' )   T H E N             r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 2 ,   ' P a s s w o r d   t o o   s i m p l e ' ) ;       E N D   I F ;       - -   C h e c k   i f   t h e   p a s s w o r d   c o n t a i n s   a t   l e a s t   o n e   l e t t e r ,   o n e   d i g i t   a n d   o n e       - -   p u n c t u a t i o n   m a r k .       - -   1 .   C h e c k   f o r   t h e   d i g i t       i s d i g i t : = F A L S E ;       m   : =   l e n g t h ( p a s s w o r d ) ;       F O R   i   I N   1 . . 1 0   L O O P             F O R   j   I N   1 . . m   L O O P                   I F   s u b s t r ( p a s s w o r d , j , 1 )   =   s u b s t r ( d i g i t a r r a y , i , 1 )   T H E N                         i s d i g i t : = T R U E ;                           G O T O   f i n d c h a r ;                   E N D   I F ;             E N D   L O O P ;       E N D   L O O P ;       I F   i s d i g i t   =   F A L S E   T H E N             r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 3 ,   ' P a s s w o r d   s h o u l d   c o n t a i n   a t   l e a s t   o n e   d i g i t ,   o n e   c h a r a c t e r   a n d   o n e   p u n c t u a t i o n ' ) ;       E N D   I F ;       - -   2 .   C h e c k   f o r   t h e   c h a r a c t e r
使 u t l p w d m g . s q l 使 v e r i f y _ f u n c t i o n _ 1 1 G u t l p w d m g . s q l       < < f i n d c h a r > >       i s c h a r : = F A L S E ;       F O R   i   I N   1 . . l e n g t h ( c h a r a r r a y )   L O O P             F O R   j   I N   1 . . m   L O O P                   I F   s u b s t r ( p a s s w o r d , j , 1 )   =   s u b s t r ( c h a r a r r a y , i , 1 )   T H E N                         i s c h a r : = T R U E ;                           G O T O   f i n d p u n c t ;                   E N D   I F ;             E N D   L O O P ;       E N D   L O O P ;       I F   i s c h a r   =   F A L S E   T H E N             r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 3 ,   ' P a s s w o r d   s h o u l d   c o n t a i n   a t   l e a s t   o n e                               d i g i t ,   o n e   c h a r a c t e r   a n d   o n e   p u n c t u a t i o n ' ) ;       E N D   I F ;       - -   3 .   C h e c k   f o r   t h e   p u n c t u a t i o n       < < f i n d p u n c t > >       i s p u n c t : = F A L S E ;       F O R   i   I N   1 . . l e n g t h ( p u n c t a r r a y )   L O O P             F O R   j   I N   1 . . m   L O O P                   I F   s u b s t r ( p a s s w o r d , j , 1 )   =   s u b s t r ( p u n c t a r r a y , i , 1 )   T H E N                         i s p u n c t : = T R U E ;                           G O T O   e n d s e a r c h ;                   E N D   I F ;             E N D   L O O P ;       E N D   L O O P ;       I F   i s p u n c t   =   F A L S E   T H E N             r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 3 ,   ' P a s s w o r d   s h o u l d   c o n t a i n   a t   l e a s t   o n e                               d i g i t ,   o n e   c h a r a c t e r   a n d   o n e   p u n c t u a t i o n ' ) ;       E N D   I F ;       < < e n d s e a r c h > >       - -   C h e c k   i f   t h e   p a s s w o r d   d i f f e r s   f r o m   t h e   p r e v i o u s   p a s s w o r d   b y   a t   l e a s t       - -   3   l e t t e r s       I F   o l d _ p a s s w o r d   I S   N O T   N U L L   T H E N           d i f f e r   : =   l e n g t h ( o l d _ p a s s w o r d )   -   l e n g t h ( p a s s w o r d ) ;           I F   a b s ( d i f f e r )   <   3   T H E N               I F   l e n g t h ( p a s s w o r d )   <   l e n g t h ( o l d _ p a s s w o r d )   T H E N                   m   : =   l e n g t h ( p a s s w o r d ) ;               E L S E                   m   : =   l e n g t h ( o l d _ p a s s w o r d ) ;               E N D   I F ;               d i f f e r   : =   a b s ( d i f f e r ) ;               F O R   i   I N   1 . . m   L O O P                   I F   s u b s t r ( p a s s w o r d , i , 1 )   ! =   s u b s t r ( o l d _ p a s s w o r d , i , 1 )   T H E N                       d i f f e r   : =   d i f f e r   +   1 ;                   E N D   I F ;               E N D   L O O P ;               I F   d i f f e r   <   3   T H E N                   r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 4 ,   ' P a s s w o r d   s h o u l d   d i f f e r   b y   a t                     l e a s t   3   c h a r a c t e r s ' ) ;               E N D   I F ;           E N D   I F ;       E N D   I F ;       - -   E v e r y t h i n g   i s   f i n e ;   r e t u r n   T R U E   ;       R E T U R N ( T R U E ) ; E N D ; /
8 9 1 1 0 0 u s e r u s e r 0 u s e r 1 0 0 u s e r r r e r e s r e s u 0 1 0 0 O R C L o r a c l e 1 o r a c l e 1 0 0 o r a c l e o r a c l e   - -   C h e c k   f o r   t h e   m i n i m u m   l e n g t h   o f   t h e   p a s s w o r d       I F   l e n g t h ( p a s s w o r d )   <   8   T H E N             r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 1 ,   ' P a s s w o r d   l e n g t h   l e s s   t h a n   8 ' ) ;       E N D   I F ;     - -   C h e c k   i f   t h e   p a s s w o r d   i s   s a m e   a s   t h e   u s e r n a m e   o r   u s e r n a m e ( 1 - 1 0 0 )       I F   N L S _ L O W E R ( p a s s w o r d )   =   N L S _ L O W E R ( u s e r n a m e )   T H E N           r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 2 ,   ' P a s s w o r d   s a m e   a s   o r   s i m i l a r   t o   u s e r ' ) ;       E N D   I F ;       F O R   i   I N   1 . . 1 0 0   L O O P             i _ c h a r   : =   t o _ c h a r ( i ) ;             i f   N L S _ L O W E R ( u s e r n a m e ) | |   i _ c h a r   =   N L S _ L O W E R ( p a s s w o r d )   T H E N                 r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 5 ,   ' P a s s w o r d   s a m e   a s   o r   s i m i l a r   t o   u s e r   n a m e   ' ) ;             E N D   I F ;         E N D   L O O P ;     - -   C h e c k   i f   t h e   p a s s w o r d   i s   s a m e   a s   t h e   u s e r n a m e   r e v e r s e d       F O R   i   i n   R E V E R S E   1 . . l e n g t h ( u s e r n a m e )   L O O P           r e v e r s e _ u s e r   : =   r e v e r s e _ u s e r   | |   s u b s t r ( u s e r n a m e ,   i ,   1 ) ;       E N D   L O O P ;       I F   N L S _ L O W E R ( p a s s w o r d )   =   N L S _ L O W E R ( r e v e r s e _ u s e r )   T H E N           r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 3 ,   ' P a s s w o r d   s a m e   a s   u s e r n a m e   r e v e r s e d ' ) ;       E N D   I F ;     - -   C h e c k   i f   t h e   p a s s w o r d   i s   t h e   s a m e   a s   s e r v e r   n a m e   a n d   o r   s e r v e r n a m e ( 1 - 1 0 0 )       s e l e c t   n a m e   i n t o   d b _ n a m e   f r o m   s y s . v $ d a t a b a s e ;       i f   N L S _ L O W E R ( d b _ n a m e )   =   N L S _ L O W E R ( p a s s w o r d )   T H E N             r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 4 ,   ' P a s s w o r d   s a m e   a s   o r   s i m i l a r   t o   s e r v e r   n a m e ' ) ;       E N D   I F ;       F O R   i   I N   1 . . 1 0 0   L O O P             i _ c h a r   : =   t o _ c h a r ( i ) ;             i f   N L S _ L O W E R ( d b _ n a m e ) | |   i _ c h a r   =   N L S _ L O W E R ( p a s s w o r d )   T H E N                 r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 5 ,   ' P a s s w o r d   s a m e   a s   o r   s i m i l a r   t o   s e r v e r   n a m e   ' ) ;             E N D   I F ;         E N D   L O O P ;       - -   C h e c k   i f   t h e   p a s s w o r d   i s   t o o   s i m p l e .   A   d i c t i o n a r y   o f   w o r d s   m a y   b e       - -   m a i n t a i n e d   a n d   a   c h e c k   m a y   b e   m a d e   s o   a s   n o t   t o   a l l o w   t h e   w o r d s       - -   t h a t   a r e   t o o   s i m p l e   f o r   t h e   p a s s w o r d .       I F   N L S _ L O W E R ( p a s s w o r d )   I N   ( ' w e l c o m e 1 ' ,   ' d a t a b a s e 1 ' ,   ' a c c o u n t 1 ' ,   ' u s e r 1 2 3 4 ' ,   ' p a s s w o r d 1 ' ,   ' o r a c l e 1 2 3 ' ,   ' c o m p u t e r 1 ' ,   ' a b c d e f g 1 ' ,   ' c h a n g e _ o n _ i n s t a l l ' )   T H E N             r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 6 ,   ' P a s s w o r d   t o o   s i m p l e ' ) ;       E N D   I F ;       - -   C h e c k   i f   t h e   p a s s w o r d   i s   t h e   s a m e   a s   o r a c l e   ( 1 - 1 0 0 )         s i m p l e _ p a s s w o r d   : =   ' o r a c l e ' ;         F O R   i   I N   1 . . 1 0 0   L O O P             i _ c h a r   : =   t o _ c h a r ( i ) ;             i f   s i m p l e _ p a s s w o r d   | |   i _ c h a r   =   N L S _ L O W E R ( p a s s w o r d )   T H E N                 r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 7 ,   ' P a s s w o r d   t o o   s i m p l e   ' ) ;
c h a r a r r a y : =   a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z ; u s e r a d m i n 3 1 u s e r 4 u a d i f f e r 1 1 s d d i f f e r 1 2 4 d i f f e r 4 d i f f e r 3 3                 r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 7 ,   ' P a s s w o r d   t o o   s i m p l e   ' ) ;             E N D   I F ;         E N D   L O O P ;     - -   C h e c k   i f   t h e   p a s s w o r d   c o n t a i n s   a t   l e a s t   o n e   l e t t e r ,   o n e   d i g i t       - -   1 .   C h e c k   f o r   t h e   d i g i t       i s d i g i t : = F A L S E ;       m   : =   l e n g t h ( p a s s w o r d ) ;       F O R   i   I N   1 . . 1 0   L O O P             F O R   j   I N   1 . . m   L O O P                   I F   s u b s t r ( p a s s w o r d , j , 1 )   =   s u b s t r ( d i g i t a r r a y , i , 1 )   T H E N                         i s d i g i t : = T R U E ;                           G O T O   f i n d c h a r ;                   E N D   I F ;             E N D   L O O P ;       E N D   L O O P ;       I F   i s d i g i t   =   F A L S E   T H E N             r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 8 ,   ' P a s s w o r d   m u s t   c o n t a i n   a t   l e a s t   o n e   d i g i t ,   o n e   c h a r a c t e r ' ) ;       E N D   I F ;       - -   2 .   C h e c k   f o r   t h e   c h a r a c t e r       < < f i n d c h a r > >       i s c h a r : = F A L S E ;       F O R   i   I N   1 . . l e n g t h ( c h a r a r r a y )   L O O P             F O R   j   I N   1 . . m   L O O P                   I F   s u b s t r ( p a s s w o r d , j , 1 )   =   s u b s t r ( c h a r a r r a y , i , 1 )   T H E N                         i s c h a r : = T R U E ;                           G O T O   e n d s e a r c h ;                   E N D   I F ;             E N D   L O O P ;       E N D   L O O P ;       I F   i s c h a r   =   F A L S E   T H E N             r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 0 9 ,   ' P a s s w o r d   m u s t   c o n t a i n   a t   l e a s t   o n e                               d i g i t ,   a n d   o n e   c h a r a c t e r ' ) ;       E N D   I F ;   - -   C h e c k   i f   t h e   p a s s w o r d   d i f f e r s   f r o m   t h e   p r e v i o u s   p a s s w o r d   b y   a t   l e a s t       - -   3   l e t t e r s       I F   o l d _ p a s s w o r d   I S   N O T   N U L L   T H E N           d i f f e r   : =   l e n g t h ( o l d _ p a s s w o r d )   -   l e n g t h ( p a s s w o r d ) ;           d i f f e r   : =   a b s ( d i f f e r ) ;           I F   d i f f e r   <   3   T H E N               I F   l e n g t h ( p a s s w o r d )   <   l e n g t h ( o l d _ p a s s w o r d )   T H E N                   m   : =   l e n g t h ( p a s s w o r d ) ;               E L S E                   m   : =   l e n g t h ( o l d _ p a s s w o r d ) ;               E N D   I F ;               F O R   i   I N   1 . . m   L O O P                   I F   s u b s t r ( p a s s w o r d , i , 1 )   ! =   s u b s t r ( o l d _ p a s s w o r d , i , 1 )   T H E N                       d i f f e r   : =   d i f f e r   +   1 ;
t r u e 9 8 9 3 S Y S S Y S 使 U S E R $ S Y S P A S S W O R D a 4 P A S S W O R D _ L I F E _ T I M E P A S S W O R D _ G R A C E _ T I M E                   E N D   I F ;               E N D   L O O P ;               I F   d i f f e r   <   3   T H E N                   r a i s e _ a p p l i c a t i o n _ e r r o r ( - 2 0 0 1 1 ,   ' P a s s w o r d   s h o u l d   d i f f e r   f r o m   t h e                           o l d   p a s s w o r d   b y   a t   l e a s t   3   c h a r a c t e r s ' ) ;               E N D   I F ;           E N D   I F ;       E N D   I F ;   - -   E v e r y t h i n g   i s   f i n e ;   r e t u r n   T R U E   ;       R E T U R N ( T R U E ) ; s e l e c t   n a m e , P T I M E   f r o m   U S E R $
P A S S W O R D _ L I F E _ T I M E 1 8 0 P A S S W O R D _ G R A C E _ T I M E 7 P A S S W O R D _ L I F E _ T I M E P A S S W O R D _ G R A C E _ T I M E o r a c l e P A S S W O R D _ L I F E _ T I M E 1 P A S S W O R D _ G R A C E _ T I M E 1 2 0 2 0 4 7 1 0 D B A _ U S E R S C R E A T E D 2 0 2 0 4 7 1 0 A C C O U N T _ S T A T U S O P E N U S E R $ P T I M E 2 0 2 0 4 7 1 0 D B A _ U S E R S E X P I R Y _ D A T E P T I M E + P A S S W O R D _ L I F E _ T I M E 2 0 2 0 4 8 1 0 U S E R $ E X P T I M E 2 0 2 0 4 8 1 0 A C C O U N T _ S T A T U S E X P I R E D ( G R A C E ) O P E N P A S S W O R D _ L I F E _ T I M E + P A S S W O R D _ G R A C E _ T I M E O P E N 2 0 2 0 4 8 1 0 A C C O U N T _ S T A T U S E X P I R E D ( G R A C E ) E X P I R Y _ D A T E + P A S S W O R D _ G R A C E _ T I M E E X P I R E D ( G R A C E ) E X P I R E D E X P I R Y _ D A T E O P E N E X P I R E D ( G R A C E ) P A S S W O R D _ L I F E _ T I M E E X P I R Y _ D A T E O P E N O P E N E X P I R Y _ D A T E 2 0 2 0 4 8 1 0 P A S S W O R D _ L I F E _ T I M E 2 E X P I R Y _ D A T E 2 0 2 0 4 9 1 0 E X P I R E D ( G R A C E ) P A S S W O R D _ L I F E _ T I M E P A S S W O R D _ G R A C E _ T I M E S Y S S Y S P A S S W O R D _ R E U S E _ T I M E P A S S W O R D _ R E U S E _ M A X
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|Nmaps Club

GMT+8, 2025-1-23 12:59 , Processed in 0.668647 second(s), 30 queries .

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表