Encrypt/Decrypt files in perl

I need a perl program that can encryp and decrypt text. An example of encryption is that "a" becomes "z", and "b" becomes "y" and so on, or whatever shifting algorithm you can devise. The input file is any readable text file that is to be encrypted. When this input file is run against the encryption program, it encrypts the file with your encryption algorithm and saves the processed file to an encrypted file with same file name but with an extension of ".enc". When you run the decryption program, it reads the encrypted file and decrypts (or reverses) it and saves it to same filename but with an extension of ".dec" which stands for decrypted file.

For example:

The given input file is [url removed, login to view]

To run the encryption program: ./[url removed, login to view] [url removed, login to view]

Its output will be: [url removed, login to view]

To run the decryption program: ./[url removed, login to view] [url removed, login to view]

Its output will be: [url removed, login to view]

Perl

หมายเลขโปรเจค: #12065485

เกี่ยวกับโปรเจกต์