1998-09-21 - one-time pad

Header Data

From: Anonymous <nobody@nowhere.to>
To: cypherpunks@toad.com
Message Hash: d5797b19e8815b201bd8673947aab750941b5107e817c480ba1b7e47c0c5c432
Message ID: <2deab6ac1f0adf822ecf2e799fd0ba71@anonymous>
Reply To: N/A
UTC Datetime: 1998-09-21 21:42:57 UTC
Raw Date: Tue, 22 Sep 1998 05:42:57 +0800

Raw message

From: Anonymous <nobody@nowhere.to>
Date: Tue, 22 Sep 1998 05:42:57 +0800
To: cypherpunks@toad.com
Subject: one-time pad
Message-ID: <2deab6ac1f0adf822ecf2e799fd0ba71@anonymous>
MIME-Version: 1.0
Content-Type: text/plain



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?

Thread

• Return to September 1998

• Return to “Anonymous <nobody@nowhere.to>”

• 1998-09-21 (Tue, 22 Sep 1998 05:42:57 +0800) - one-time pad - Anonymous <nobody@nowhere.to>