 
            
            
            
            
                17 Dec
                
                    2003
                
            
            
                17 Dec
                
                '03
                
            
            
            
        
    
                11:17 p.m.
            
        Where can I get the one-time pad in perl? The one I have I can't figure out how to input data into it: #!/bin/perl vec($_,0,1); open(P,shift); read(P,$p,length),print $_^$p while<> Can anyone help?