[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

one-time pad




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?