ÿþ    v a r   R e g _ f i r s t =   / [ 0 - 9 \ ( \ ) \ < \ > \ , \ ; \ : \ \ \ / \ " \ [ \ ] \ ` \ ~ \ ! \ @ \ # \ $ \ % \ ^ \ & \ * \ _ \ - \ + \ + \ \ \ | \ { \ } \ . \ < \ > \ ? ] / ;  
     v a r   R e g _ a d d r e s s   =   / [ \ ( \ ) \ < \ > \ , \ ; \ : \ \ \ / \ " \ [ \ ] \ ` \ ~ \ ! \ @ \ # \ $ \ % \ ^ \ & \ * \ _ \ - \ + \ + \ \ \ | \ { \ } \ . \ < \ > \ ? ] / ;  
     v a r   R e g _ m i d d l e =   / [ \ ( \ ) \ < \ > \ , \ ; \ : \ \ \ / \ " \ [ \ ] \ ` \ ~ \ ! \ # \ $ \ % \ ^ \ & \ * \ + \ + \ \ \ | \ { \ } \ < \ > \ ? ] / ;  
     v a r   R e g _ l a s t =     / [ \ ( \ ) \ < \ > \ , \ ; \ \ \ / \ " \ [ \ ] \   \ ` \ ~ \ ! \ @ \ # \ $ \ % \ ^ \ & \ * \ _ \ - \ + \ + \ \ \ | \ { \ } \ < \ > \ ? ] / ;  
     v a r   A d d _ f i r s t =   / [ \ ( \ ) \ < \ > \ , \ ; \ " \ [ \ ] \   \ ` \ ~ \ ! \ $ \ @ \ % \ ^ \ & \ * \ - \ { \ } \ . \ < \ > \ ? ] / ;  
     v a r   A d d _ m i d d l e =   / [ \ ( \ ) \ < \ > \ ; \ " \ [ \ ] \ ` \ ~ \ ! \ $ \ % \ ^ \ & \ * \ { \ } \ < \ > \ ? ] / ;  
     v a r   A d d _ l a s t =     / [ \ ( \ ) \ < \ > \ , \ ; \ \ \ / \ " \ [ \ ] \ ` \ ~ \ ! \ $ \ % \ ^ \ & \ * \ \ \ | \ { \ } \ < \ > \ ? ] / ;  
     v a r   R e g _ m a i l =   / [ \ ( \ ) \ < \ > \ , \ ; \ : \ \ \ / \ " \ [ \ ] \   \ ` \ ~ \ ! \ # \ $ \ % \ ^ \ & \ * \ + \ + \ \ \ | \ { \ } \ < \ > \ ? ] / ;  
     v a r   r e g e x _ p o s t a l =   / [ \ ( \ ) \ < \ > \ , \ ; \ \ \ / \ " \ [ \ ] \ ` \ ~ \ ! \ @ \ # \ $ \ % \ ^ \ & \ * \ _ \ - \ + \ + \ \ \ | \ { \ } \ < \ > \ ? ] / ;  
     v a r   r e g _ p h o n e   = / ^ [ 0 - 9 + - ] + [ 0 - 9 + - ] + ( [ 0 - 9 +   - ] ) + [ 0 - 9 + - ] $ / ;  
     / * v a r   r e g e x _ z i p c o d e   =   / ^ ( [ 0 - 9 ] { 3 } [ 0 - 9 \   ] { 1 } [ 0 - 9 \   ] { 1 , 2 } ) $ / ; 	 * /  
     v a r   r e g e x _ z i p c o d e   =   / ^ [ 0 - 9 +   ] + [ 0 - 9 +   ] $ / ; 	  
     v a r   r e g e x _ O r g a n i s a t i o n N o   = / ^ ( [ 0 - 9 ] { 6 } [ \ - ] { 1 } [ 0 - 9 ] { 4 } ) $ / ;  
     v a r   A d d _ f i r s t 1 =   / \   \ [ \ ( \ ) \ < \ > \ , \ ; \ " \ [ \ ] \ ` \ ~ \ ! \ $ \ @ \ % \ ^ \ & \ * \ - \ { \ } \ . \ < \ > \ ? ] / ;  
  
       f u n c t i o n   i s V a l i d z i p ( s r c )  
       {  
              
               v a r   r e s   =   s r c . r e p l a c e ( /   / g , " " ) ;  
 	  
             i f ( r e g e x _ p o s t a l . t e s t ( s r c )   | |   ( r e s . l e n g t h = = 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 ;  
 	 	  
       }  
       f u n c t i o n   i s V a l i d Z i p C o d e ( v a l u e ) {  
 	 r e t u r n   ( r e g e x _ z i p c o d e . t e s t ( v a l u e ) ) ;  
 	 } 	  
       f u n c t i o n   i s V a l i d p h o n e ( s r c )  
       {  
             s r c = t r i m ( s r c ) ;  
             s p _ o c c = s r c . s p l i t ( "     " ) ;  
             i f ( s p _ o c c . l e n g t h < 2 )    
                 r e t u r n   r e g _ p h o n e . t e s t ( s r c ) ;  
             e l s e    
                 r e t u r n   f a l s e ;  
       }  
  
         f u n c t i o n   i s V a l i d O r g a n i s a t i o n N o ( v a l u e )  
         {  
             r e t u r n   ( r e g e x _ O r g a n i s a t i o n N o . t e s t ( v a l u e ) ) ;  
         }  
  
         f u n c t i o n   i s V a l i d u s e r n a m e ( s r c )  
         {  
             v a r   f i r s t = s r c . c h a r A t ( 0 ) ;  
             v a r   m i d d l e = s r c . s u b s t r i n g ( 1 , ( s r c . l e n g t h - 1 ) ) ;  
             v a r   l a s t = s r c . c h a r A t ( s r c . l e n g t h - 1 ) ;  
             i f ( ( R e g _ f i r s t . t e s t ( f i r s t ) ) | | ( R e g _ m i d d l e . t e s t ( m i d d l e ) ) | | ( R e g _ l a s t . t e s t ( l a s t ) ) | | ( s r c . l e n g t h = = 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 ;  
         }  
  
         f u n c t i o n   i s V a l i d A d d r e s s ( s r c )    
         {  
               v a r   f i r s t = s r c . c h a r A t ( 0 ) ;  
               v a r   m i d d l e = s r c . s u b s t r i n g ( 1 , ( s r c . l e n g t h - 1 ) ) ;  
               v a r   l a s t = s r c . c h a r A t ( s r c . l e n g t h - 1 ) ;  
               i f ( ( A d d _ f i r s t . t e s t ( f i r s t ) ) | | ( A d d _ m i d d l e . t e s t ( m i d d l e ) ) | | ( A d d _ l a s t . t e s t ( l a s t ) ) | | ( s r c . l e n g t h = = 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 ;  
         }  
  
         f u n c t i o n   t r i m ( s t r )  
         {  
             r e t u r n   s t r . r e p l a c e ( / ^ \ s * | \ s * $ / g , " " ) ;  
         }  
  
 f u n c t i o n   v a l i d a t e M a i l ( s r c )  
   {  
 	 	 s r c = t r i m ( s r c ) ;  
 	 	 a t _ o c c = s r c . s p l i t ( ' @ ' ) ;  
 	 	 d o t _ o c c = s r c . s p l i t ( ' . ' ) ;  
 	 	 i f ( ( a t _ o c c . l e n g t h = = 2 ) )  
 	 	 {  
 	 	 	 v a r   f i r s t = s r c . c h a r A t ( 0 ) ;  
 	 	 	 m i d d l e = s r c . s u b s t r i n g ( 1 , ( s r c . i n d e x O f ( ' @ ' ) ) ) ;  
 	 	 	 i f   ( m i d d l e . l e n g t h = = 0 )  
 	 	 	 	 m i d d l e = " s " ;  
 	 	 	 v a r   l e n _ m i d d l e = m i d d l e . l e n g t h ;  
 	 	 	 d o t _ o c c = m i d d l e . s p l i t ( ' . ' ) ;  
 	 	 	 i f ( d o t _ o c c . l e n g t h > 0 )  
 	 	 	 	 i f ( ( ! ( R e g _ a d d r e s s . t e s t ( f i r s t ) ) )   & &   ( ! ( R e g _ m a i l . t e s t ( m i d d l e ) ) )   & &   m i d d l e . l e n g t h ! = ( m i d d l e . i n d e x O f ( ' . ' ) + 1 ) )  
 	 	 	 	 {  
 	 	 	 	 	 m i d d l e = s r c . s u b s t r i n g ( ( s r c . i n d e x O f ( ' @ ' ) ) + 1 , s r c . l e n g t h ) ;  
 	 	 	 	 	 f i r s t = m i d d l e . c h a r A t ( 0 ) ;  
 	 	 	 	 	 l a s t = m i d d l e . c h a r A t ( m i d d l e . l e n g t h - 1 ) ;  
 	 	 	 	 	 d o t _ o c c = m i d d l e . s p l i t ( ' . ' ) ;  
 	 	 	 	 	  
 	 	 	 	 	 i f (   ( ! ( R e g _ m a i l . t e s t ( m i d d l e ) ) )   & &   ( f i r s t ! = ' . ' )   & &   ( l a s t ! = ' . ' ) )  
 	 	 	 	 	 	 	 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 ;            
 	 	 	 	 }    
 	 	 	 e l s e  
 	 	 	 	 r e t u r n   f a l s e ;  
 	 	 }    
 	 	 e l s e  
 	 	 	 r e t u r n   f a l s e ;    
 } 
