ÿþf u n c t i o n   R e a d C R S C a r d ( )   {  
     t r y   {  
         t r y   {  
             C R S R e a d e r   =   n e w   A c t i v e X O b j e c t ( " C R S R e a d e r V 4 . c l s C R S " ) ;  
         }  
         c a t c h   ( e )   {  
             a l e r t ( ' I n s t a l l a   i l   c o m p o n e n t e   p e r   l a   r i l e v a z i o n e   d e l l o   s t a t o   d e l   l e t t o r e   e   l \ ' a u t e n t i c a z i o n e   S S L ! ' ) ;  
             r e t u r n   f a l s e ;  
         }  
         v a r   s t r P e r s o n a l D a t a   =   " " ;  
         v a r   s t r A T R   =   " " ;  
         i f   ( C R S R e a d e r . I n i t R e a d e r s ( )   >   0 )   {  
             s l e e p ( 2 0 0 ) ;  
             v a r   C r s C a r d S t a t e   =   C R S R e a d e r . R e a d D a t a ( ) ;  
             s l e e p ( 4 0 0 ) ;  
             s w i t c h   ( C r s C a r d S t a t e )   {  
                 c a s e   0 :  
                     / / O K !  
                     s t r A T R   =   C R S R e a d e r . G e t A t r ( ) ;  
                     s t r P e r s o n a l D a t a   =   C R S R e a d e r . G e t P e r s o n a l D a t a ( ) ;  
                     s l e e p ( 4 0 0 ) ;                      
                     b r e a k ;  
                 c a s e   - 1 :  
                     a l e r t ( " I l   l e t t o r e   è   v u o t o ! " ) ;  
                     b r e a k ;  
                 c a s e   1 :  
                     a l e r t ( " 1   - ? ? ? " )  
                     b r e a k ;  
                 c a s e   2 :  
                     / / T h e   c a r d   i s   n o t   C R S   C a r d  
                     a l e r t ( " L a   c a r t a   i n s e r i t a   n o n   è   u n a   C R S ! " ) ;  
                     b r e a k ;  
                 d e f a u l t :  
                     a l e r t ( " I d e n t i f i c a z i o n e   c a r t a   C R S   f a l l i t a ! " ) ;  
                     b r e a k ;  
             }  
             C R S R e a d e r . C l o s e R e a d e r s ( ) ;  
         }   / / e l s e   I n s e r t   c a r d   r e a d e r !  
         e l s e   {  
                 a l e r t ( " E '   n e c e s s a r i o   c o l l e g a r e   i l   l e t t o r e   d i   C R S ! " ) ;  
             r e t u r n   f a l s e ;  
         }  
         h d n C r s D a t a   =   d o c u m e n t . g e t E l e m e n t B y I d ( " h d n C R S D a t a " ) ;  
         i f   ( h d n C r s D a t a   ! =   n u l l )   {  
             h d n C r s D a t a . v a l u e   =   s t r P e r s o n a l D a t a ;  
         }  
         h d n C r s A T R D a t a   =   d o c u m e n t . g e t E l e m e n t B y I d ( " h d n C R S A T R D a t a " ) ;  
         i f   ( h d n C r s A T R D a t a   ! =   n u l l )   {  
             h d n C r s A T R D a t a . v a l u e   =   s t r A T R  
         }  
         i f   ( C r s C a r d S t a t e   = =   0 )  
             r e t u r n   t r u e ;  
         e l s e  
             r e t u r n   f a l s e ;  
     }  
     c a t c h   ( e )   {  
         a l e r t ( e . d e s c r i p t i o n ) ;  
         r e t u r n   f a l s e ;  
     }  
 }  
  
 f u n c t i o n   C R S P i n A u t h e n t i c a t i o n ( )   {  
     i f   ( R e a d C R S C a r d ( ) )   {  
         w r i t e C o o k i e ( " C R S D a t a " ,   h d n C r s D a t a . v a l u e ) ;  
         i f   ( d o c u m e n t . g e t E l e m e n t B y I d ( " h d n C R S A T R D a t a " )   ! =   n u l l )   {  
             w r i t e C o o k i e ( " C R S A T R D a t a " ,   h d n C r s A T R D a t a . v a l u e ) ;  
         }          
         v a r   C R S L i n k   =   d o c u m e n t . g e t E l e m e n t B y I d ( " C R S L i n k " ) ;  
         w i n d o w . l o c a t i o n . h r e f   =   C R S L i n k . v a l u e ;  
     }  
     e l s e   {  
         r e t u r n   f a l s e ;  
     }  
 }  
  
 f u n c t i o n   C h e c k C R S C a r d A u t o m a t i c a l l y ( )   {  
     i f   ( R e a d C R S C a r d ( ) )   {  
         d o c u m e n t . c s s F o r m . s u b m i t ( ) ;  
         r e t u r n   t r u e ;  
     }  
     r e t u r n   f a l s e ;  
 }  
  
  
  
  
  
 f u n c t i o n   w r i t e C o o k i e ( n a m ,   v a l )   {  
     d o c u m e n t . c o o k i e   =   n a m   +   ' = '   +   e s c a p e ( v a l ) ;  
 }  
  
 f u n c t i o n   r e a d C o o k i e ( n a m )   {  
     v a r   t C   =   d o c u m e n t . c o o k i e . s p l i t ( ' ;   ' ) ;  
     f o r   ( v a r   i   =   t C . l e n g t h   -   1 ;   i   > =   0 ;   i - - )   {  
         v a r   x   =   t C [ i ] . s p l i t ( ' = ' ) ;  
         i f   ( n a m   = =   x [ 0 ] )   r e t u r n   u n e s c a p e ( x [ 1 ] ) ;  
     }  
     r e t u r n   n u l l ;  
 }  
  
   f u n c t i o n   s l e e p ( m s )  
   {  
     v a r   d t   =   n e w   D a t e ( ) ;  
     d t . s e t T i m e ( d t . g e t T i m e ( )   +   m s ) ;  
     w h i l e   ( n e w   D a t e ( ) . g e t T i m e ( )   <   d t . g e t T i m e ( ) ) ;  
   }  
  
 
