#!/usr/bin/perl -w
use strict;

# Vigenere cipher toolkit. Encrypt and Decrypt.
# Cracking not included.
# 

my $plaintext    = "This is not secure, but it's kind of fun.";
my $key            = 'perlmonks';        # By definition, letters only
+.
my $ciphertext;
my $derived_plaintext;

# For convenience, do the work in lowercase...
$plaintext = lc($plaintext);
$key       = lc($key);

# By definition, only encipher letters, and only use letters in the ke
+y...
$plaintext =~ s/[^a-z]//g;
$key       =~ s/[^a-z]//g;
if(length($key) < 1){
    die "Key must contain at least one letter.\n";
}

print "plaintext is [$plaintext]\n\n";
$ciphertext            = encrypt_string( $plaintext, $key);
$derived_plaintext    = decrypt_string( $ciphertext, $key );

print "Plaintext used      :$plaintext\n";
print "Ciphertext          :$ciphertext\n";
print "Recreated plaintext :$derived_plaintext\n";

sub encrypt_string{
    # encrypts a full string of plaintext, given the plaintext and the
+ key.
    # returns the encrypted string.
    my ($plaintext, $key) = @_;
    my $ciphertext;
    $key = $key x (length($plaintext) / length($key) + 1);
    for( my $i=0; $i<length($plaintext); $i++ ){
        $ciphertext .=
            encrypt_letter( (substr($plaintext,$i,1)),  (substr($key,$
+i,1)));
    }
    return $ciphertext;
}

sub decrypt_string{
    # decrypts a full string of ciphertext, given the ciphertext and t
+he key.
    # returns the plaintext string.
    my ($ciphertext, $key) = @_;
    my $plaintext;
    $key = $key x (length($ciphertext) / length($key) + 1);
    for( my $i=0; $i<length($ciphertext); $i++ ){
        $plaintext .=
            decrypt_letter( (substr($ciphertext,$i,1)),  (substr($key,
+$i,1)));
    }
    return $plaintext;
}


sub encrypt_letter{
    # encrypts a single letter of plaintext, given the plaintext
    # letter and the key to use for that letter's position.
    # The key is the first letter of the row to look in.
    my ($plain, $row) = @_;
    my $cipher;
    # in row n, ciphertext is plaintext + n, mod 26.
    $row     = ord(lc($row))   - ord('a');    # enable mod 26
    $plain  = ord(lc($plain)) - ord('a');    # enable mod 26
    $cipher = ($plain + $row) % 26;
    
    $cipher = chr($cipher + ord('a'));

    return uc($cipher);    #ciphertext in uppercase
}

sub decrypt_letter{
    # decrypts a single letter of ciphertext, given the ciphertext
    # letter and the key to use for that letter's position.
    # The key is the first letter of the row to look in.
    my ($cipher, $row) = @_;
    my $plain;
    # in row n, plaintext is ciphertext - n, mod 26.
    $row     = ord(lc($row))    - ord('a');    # enable mod 26
    $cipher = ord(lc($cipher)) - ord('a');    # enable mod 26
    $plain  = ($cipher - $row) % 26;
    
    $plain = chr($plain + ord('a'));

    return lc($plain);    #plaintext in lowercase
}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.