Well this is the basics of DES crypto. If you change the key, you're going to get a different output. This is sample code modified from the CPAN.org Crypt::DES documentation

#!/usr/bin/perl -w

use strict;
use Crypt::DES;

#Need a 16 byte key
my $key = pack("H16", "0123456789ABCDEF");
my $cyp = new Crypt::DES $key;

#and an 8-byte plaintext
my $str = $cyp->encrypt("HelloWor");   
my $uncyp = new Crypt::DES $key;

print $uncyp->decrypt($str)."\n";
[download]

How are you crypting 1? It's not 8 bytes long. 1111111 is however. Are you passing the key into the Crypt::DES new function? Are you using encrypt / decrypt per the documentation?

Or are you using crypt? That's a built in perl function that probably isn't going to do what you want.

    --jb