#!/usr/bin/perl
use warnings;
use strict;

my $str = shift;
my $key = join q(), map chr rand 255, 0 .. 255;

print "$key\n";
my $encrypted = $str ^ substr($key,0,length($str));
print "$encrypted\n";