[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
one-time pad
- To: [email protected]
- Subject: one-time pad
- From: Anonymous <[email protected]>
- Date: Tue, 22 Sep 1998 19:35:01 +0900 (JST)
- Comments: This message did not originate from the Sender address above.It was remailed automatically by anonymizing remailer software.Please report problems or inappropriate use to theremailer administrator at <[email protected]>.
- Sender: [email protected]
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?