// COMPLETE THREAD

one-time pad

1 expanded post ยท every known parent and child

NODE d5797b19one-time pad Anonymous <nobody@nowhere.to>Tue, 22 Sep 1998 05:42:57 +0800 
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?