ÿþf u n c t i o n   g e t e x p i r y d a t e ( n o d a y s ) {  
 	 v a r   U T C s t r i n g ;  
 	 T o d a y   =   n e w   D a t e ( ) ;  
 	 n o m i l l i = D a t e . p a r s e ( T o d a y ) ;  
 	 T o d a y . s e t T i m e ( n o m i l l i + n o d a y s * 2 4 * 6 0 * 6 0 * 1 0 0 0 ) ;  
 	 U T C s t r i n g   =   T o d a y . t o U T C S t r i n g ( ) ;  
 	 r e t u r n   U T C s t r i n g ;  
 }  
  
 f u n c t i o n   s e t c o o k i e ( a r g 1 ,   a r g 2 ,   a r g 3 ) {  
 	 v a r   a r g 1 ,   a r g 2 ,   a r g 3  
 	 c o o k i e s t r i n g   =   a r g 1   +   " = "   +   e s c a p e ( a r g 2 )   +   " ; E X P I R E S = "   +   g e t e x p i r y d a t e ( a r g 3 ) ;  
 	 d o c u m e n t . c o o k i e   =   c o o k i e s t r i n g ;  
  
 	 i f ( ! g e t c o o k i e ( a r g 1 ) ) {  
 	 	 r e t u r n   f a l s e ;  
 	 } e l s e {  
 	 	 r e t u r n   t r u e ;  
 	 }  
 }  
  
 f u n c t i o n   g e t c o o k i e ( a r g 1 ) {  
 	 v a r   a r g 1 ;  
 	 v a r   c o o k i e s t r i n g   =   " "   +   d o c u m e n t . c o o k i e ;  
 	 v a r   i n d e x 1   =   c o o k i e s t r i n g . i n d e x O f ( a r g 1 ) ;  
 	 i f   ( i n d e x 1 = = - 1   | |   a r g 1 = = " " )   r e t u r n   " " ;    
 	 v a r   i n d e x 2 = c o o k i e s t r i n g . i n d e x O f ( ' ; ' ,   i n d e x 1 ) ;  
 	 i f   ( i n d e x 2 = = - 1 )   i n d e x 2   =   c o o k i e s t r i n g . l e n g t h ;    
 	 r e t u r n   u n e s c a p e ( c o o k i e s t r i n g . s u b s t r i n g ( i n d e x 1   +   a r g 1 . l e n g t h + 1 ,   i n d e x 2 ) ) ;  
 }  
  
 f u n c t i o n   D e l e t e C o o k i e ( n a m e )   {  
 	 v a r   e x p   =   n e w   D a t e ( ) ;  
 	 e x p . s e t T i m e ( e x p . g e t T i m e ( )   -   1 ) ;    
 	 v a r   c v a l   =   g e t c o o k i e ( n a m e ) ;  
 	 i f   ( c v a l   ! =   n u l l )   d o c u m e n t . c o o k i e   =   n a m e   +   " = "   +   c v a l   +   " ;   e x p i r e s = "   +   e x p . t o G M T S t r i n g ( ) ;  
 }  
  
 f u n c t i o n   e n c r y p t ( s t r ,   p w d )   {  
     v a r   p r a n d   =   " " ;  
     f o r ( v a r   i = 0 ;   i < p w d . l e n g t h ;   i + + )   {  
         p r a n d   + =   p w d . c h a r C o d e A t ( i ) . t o S t r i n g ( ) ;  
     }  
     v a r   s P o s   =   M a t h . f l o o r ( p r a n d . l e n g t h   /   5 ) ;  
     v a r   m u l t   =   p a r s e I n t ( p r a n d . c h a r A t ( s P o s )   +   p r a n d . c h a r A t ( s P o s * 2 )   +   p r a n d . c h a r A t ( s P o s * 3 )   +   p r a n d . c h a r A t ( s P o s * 4 )   +   p r a n d . c h a r A t ( s P o s * 5 ) ) ;  
     v a r   i n c r   =   M a t h . c e i l ( p w d . l e n g t h   /   2 ) ;  
     v a r   m o d u   =   M a t h . p o w ( 2 ,   3 1 )   -   1 ;  
     i f ( m u l t   <   2 )   {  
         r e t u r n   n u l l ;  
     }  
     v a r   s a l t   =   M a t h . r o u n d ( M a t h . r a n d o m ( )   *   1 0 0 0 0 0 0 0 0 0 )   %   1 0 0 0 0 0 0 0 0 ;  
     p r a n d   + =   s a l t ;  
     w h i l e ( p r a n d . l e n g t h   >   1 0 )   {  
         p r a n d   =   ( p a r s e I n t ( p r a n d . s u b s t r i n g ( 0 ,   1 0 ) )   +   p a r s e I n t ( p r a n d . s u b s t r i n g ( 1 0 ,   p r a n d . l e n g t h ) ) ) . t o S t r i n g ( ) ;  
     }  
     p r a n d   =   ( m u l t   *   p r a n d   +   i n c r )   %   m o d u ;  
     v a r   e n c _ c h r   =   " " ;  
     v a r   e n c _ s t r   =   " " ;  
     f o r ( v a r   i = 0 ;   i < s t r . l e n g t h ;   i + + )   {  
         e n c _ c h r   =   p a r s e I n t ( s t r . c h a r C o d e A t ( i )   ^   M a t h . f l o o r ( ( p r a n d   /   m o d u )   *   2 5 5 ) ) ;  
         i f ( e n c _ c h r   <   1 6 )   {  
             e n c _ s t r   + =   " 0 "   +   e n c _ c h r . t o S t r i n g ( 1 6 ) ;  
         }   e l s e   e n c _ s t r   + =   e n c _ c h r . t o S t r i n g ( 1 6 ) ;  
         p r a n d   =   ( m u l t   *   p r a n d   +   i n c r )   %   m o d u ;  
     }  
     s a l t   =   s a l t . t o S t r i n g ( 1 6 ) ;  
     w h i l e ( s a l t . l e n g t h   <   8 ) s a l t   =   " 0 "   +   s a l t ;  
     e n c _ s t r   + =   s a l t ;  
     r e t u r n   e n c _ s t r ;  
 }  
  
 f u n c t i o n   d e c r y p t ( s t r ,   p w d )   {  
     v a r   p r a n d   =   " " ;  
     f o r ( v a r   i = 0 ;   i < p w d . l e n g t h ;   i + + )   {  
         p r a n d   + =   p w d . c h a r C o d e A t ( i ) . t o S t r i n g ( ) ;  
     }  
     v a r   s P o s   =   M a t h . f l o o r ( p r a n d . l e n g t h   /   5 ) ;  
     v a r   m u l t   =   p a r s e I n t ( p r a n d . c h a r A t ( s P o s )   +   p r a n d . c h a r A t ( s P o s * 2 )   +   p r a n d . c h a r A t ( s P o s * 3 )   +   p r a n d . c h a r A t ( s P o s * 4 )   +   p r a n d . c h a r A t ( s P o s * 5 ) ) ;  
     v a r   i n c r   =   M a t h . r o u n d ( p w d . l e n g t h   /   2 ) ;  
     v a r   m o d u   =   M a t h . p o w ( 2 ,   3 1 )   -   1 ;  
     v a r   s a l t   =   p a r s e I n t ( s t r . s u b s t r i n g ( s t r . l e n g t h   -   8 ,   s t r . l e n g t h ) ,   1 6 ) ;  
     s t r   =   s t r . s u b s t r i n g ( 0 ,   s t r . l e n g t h   -   8 ) ;  
     p r a n d   + =   s a l t ;  
     w h i l e ( p r a n d . l e n g t h   >   1 0 )   {  
         p r a n d   =   ( p a r s e I n t ( p r a n d . s u b s t r i n g ( 0 ,   1 0 ) )   +   p a r s e I n t ( p r a n d . s u b s t r i n g ( 1 0 ,   p r a n d . l e n g t h ) ) ) . t o S t r i n g ( ) ;  
     }  
     p r a n d   =   ( m u l t   *   p r a n d   +   i n c r )   %   m o d u ;  
     v a r   e n c _ c h r   =   " " ;  
     v a r   e n c _ s t r   =   " " ;  
     f o r ( v a r   i = 0 ;   i < s t r . l e n g t h ;   i + = 2 )   {  
         e n c _ c h r   =   p a r s e I n t ( p a r s e I n t ( s t r . s u b s t r i n g ( i ,   i + 2 ) ,   1 6 )   ^   M a t h . f l o o r ( ( p r a n d   /   m o d u )   *   2 5 5 ) ) ;  
         e n c _ s t r   + =   S t r i n g . f r o m C h a r C o d e ( e n c _ c h r ) ;  
         p r a n d   =   ( m u l t   *   p r a n d   +   i n c r )   %   m o d u ;  
     }  
     r e t u r n   e n c _ s t r ;  
 }  
  
 f u n c t i o n   c o d k o n ( a r g 1 ) {  
 	 v a r   a r g 1 , k h o r o o j i ;  
 	 k h o r o o j i   =   e n c r y p t ( a r g 1 ,   r e s a l e t ) ;  
 	 r e t u r n   k h o r o o j i ;  
 }  
  
 f u n c t i o n   d e c o d k o n ( a r g 1 ) {  
 	 v a r   a r g 1 , k h o r o o j i ;  
 	 k h o r o o j i   =   d e c r y p t ( a r g 1 ,   r e s a l e t ) ;  
 	 r e t u r n   k h o r o o j i ;  
 }  
  
 c o o k n a m e   =   " P a r s i u s e r " ;  
 v a r   c o m m c o o k n a m e   =   " P a r s i c o m m " ;  
 v a r   r e s a l e t   =   " T o G "  
 v a r   j o d a k o n   =   " . ! P | B ! . "  
 v a r   j o d a k o n 2   =   " . ! B | P ! . "  
 v a r   d e f U s r   =   d o c u m e n t . a l l . N a m e ;  
 v a r   d e f M i l   =   d o c u m e n t . a l l . E M a i l ;  
 v a r   d e f U R L   =   d o c u m e n t . a l l . U R L ;  
 v a r   W d e f U s r   =   d o c u m e n t . a l l . U s e r N a m e ;  
 v a r   W d e f P a s   =   d o c u m e n t . a l l . P a s s w o r d ;  
  
 f u n c t i o n   s e t p a s s k o n ( a r g 1 ,   a r g 2 ) {  
 	 v a r   a r g 1 ;  
 	 v a r   p o s 0   =   a r g 1 . i n d e x O f ( j o d a k o n ) ;  
 	 v a r   p o s 1   =   p o s 0   +   j o d a k o n . l e n g t h ;  
 	 v a r   p o s 2   =   a r g 1 . i n d e x O f ( j o d a k o n 2 ) ;  
 	 v a r   p o s 3   =   p o s 2   +   j o d a k o n 2 . l e n g t h ;  
 	 p a r U s r   =   a r g 1 . s u b s t r i n g ( 0 ,   p o s 0 ) ;  
 	 p a r M i l   =   a r g 1 . s u b s t r i n g ( p o s 1 ,   p o s 2 ) ;  
 	 p a r U R L   =   a r g 1 . s u b s t r i n g ( p o s 3 ) ;  
 	 i f   ( d e f U s r ! = u n d e f i n e d )   d e f U s r . v a l u e   =   p a r U s r ;  
 	 i f   ( d e f M i l ! = u n d e f i n e d )   d e f M i l . v a l u e   =   p a r M i l ;  
 	 i f   ( d e f U R L ! = u n d e f i n e d )   d e f U R L . v a l u e   =   p a r U R L ;  
  
 	 v a r   a r g 2 ;  
 	 W p a r U s r   =   a r g 2 . s u b s t r i n g ( 0 ,   a r g 2 . i n d e x O f ( j o d a k o n ) ) ;  
 	 W p a r P a s   =   d e c o d k o n ( a r g 2 . s u b s t r i n g ( a r g 2 . i n d e x O f ( j o d a k o n ) + j o d a k o n . l e n g t h ) ) ;  
 	 i f   ( W d e f U s r ! = u n d e f i n e d )   W d e f U s r . v a l u e   =   W p a r U s r ;  
 	 i f   ( W d e f P a s ! = u n d e f i n e d )   W d e f P a s . v a l u e   =   W p a r P a s ;  
 }  
  
 f u n c t i o n   s a v e p a s s k o n ( ) {  
  
 v a r   p a r U s r   =   d e f U s r . v a l u e ;  
  
 v a r 	 p a r M i l   =   d e f M i l . v a l u e ;  
  
 v a r 	 p a r U R L   =   d e f U R L . v a l u e ;  
  
 i f   ( p a r U s r . l e n g t h > 0 ) {  
 	 	 t a r k i b U P   =   p a r U s r   +   j o d a k o n   +   p a r M i l   +   j o d a k o n 2   +   p a r U R L ;  
 	 	 y s e t e d   =   s e t c o o k i e ( c o m m c o o k n a m e ,   t a r k i b U P ,   3 0 0 ) ;  
  
 	 }  
 	 W p a r U s r   =   W d e f U s r . v a l u e ;  
 	 W p a r P a s   =   W d e f P a s . v a l u e ;  
 	 i f   ( W p a r U s r . l e n g t h > 0   & &   W p a r P a s . l e n g t h > 0 ) {  
 	 	 t a r k i b U P   =   W p a r U s r   +   j o d a k o n   +   c o d k o n ( W p a r P a s ) ;  
 	 	 y s e t e d   =   s e t c o o k i e ( c o o k n a m e ,   t a r k i b U P ,   3 0 0 ) ;  
 	 	 / / i f   ( ! y s e t e d )   a l e r t ( G e t M y S t r ( 6 ) ) ;  
 	 }  
 }  
  
  
 v a r   p a s s c h e k   =   d o c u m e n t . a l l . s a v e c o m m ;  
 f u n c t i o n   c o m m c h e c k p a s ( ) {  
 	 i f   ( p a s s c h e k . c h e c k e d )   s a v e p a s s k o n ( ) ;  
 }  
  
 f u n c t i o n   c o m m c h e c k k o n ( ) {  
 	 D e l e t e C o o k i e ( " c o m m n o c h e c k " ) ;  
 	 i f   ( ! p a s s c h e k . c h e c k e d ) {  
 	 	 D e l e t e C o o k i e ( c o m m c o o k n a m e ) ;  
 	 	 D e l e t e C o o k i e ( c o o k n a m e ) ;  
 	 	 s e t c o o k i e ( " c o m m n o c h e c k " ,   " P a r s i b l o g " ,   3 0 0 ) ;  
 	 }  
 }  
  
 i f   ( p a s s c h e k ! = u n d e f i n e d ) {  
 	 m a t n c o o k i e   =   g e t c o o k i e ( c o m m c o o k n a m e ) ;  
 	 u s e r c o o k i e   =   g e t c o o k i e ( c o o k n a m e ) ;  
 	 c h e k c o o k i e   =   g e t c o o k i e ( " c o m m n o c h e c k " ) ;  
  
 	 i f ( m a t n c o o k i e . l e n g t h > 0   | |   u s e r c o o k i e . l e n g t h > 0 )   s e t p a s s k o n ( m a t n c o o k i e ,   u s e r c o o k i e ) ;  
 	 i f ( c h e k c o o k i e . l e n g t h > 0 )   p a s s c h e k . c h e c k e d = f a l s e ;  
 }  
  
 i f   ( d o c u m e n t . a l l . P a s s w o r d . v a l u e ! = " "   & &   d o c u m e n t . a l l . U s e r N a m e . v a l u e   ! = " " )  
 {  
                 d o c u m e n t . a l l . s i g n p i c . s r c = " h t t p : / / w w w . p a r s i b l o g . c o m / i m g s / m o h r . g i f " ;  
                 d o c u m e n t . a l l . s i g n p i c . t i t l e = G e t M y S t r ( 7 ) ;  
 }  
 i f   ( w i n d o w . s h o w M o d a l D i a l o g = =   u n d e f i n e d )    
 	 {  
 	 d o c u m e n t . g e t E l e m e n t B y I d ( ' E d i t o r _ F r a m e ' ) . c o n t e n t W i n d o w . d o c u m e n t . d e s i g n M o d e = " O n " ;  
 } 
