Commit e2794b7
xxwhirlpool
·
2026-09-03 19:38:15 -0400 EDT
parent 62ff409
rot13.pl
1 files changed,
+37,
-0
+37,
-0
| ... | ... | @@ -0,0 +1,37 @@ | |
| 1 | + | #!/usr/bin/env perl | |
| 2 | + | ||
| 3 | + | use 5.38.2; | |
| 4 | + | use strict; | |
| 5 | + | use warnings; | |
| 6 | + | ||
| 7 | + | use Getopt::Long qw(GetOptions); | |
| 8 | + | ||
| 9 | + | sub usage { | |
| 10 | + | print("Usage: $0 [-e|-d]\n"); | |
| 11 | + | exit 0; | |
| 12 | + | } | |
| 13 | + | ||
| 14 | + | GetOptions( | |
| 15 | + | "d" => \&decrypt, | |
| 16 | + | "e" => \&encrypt, | |
| 17 | + | ) or die(&usage); | |
| 18 | + | ||
| 19 | + | sub encrypt { | |
| 20 | + | print("enter plaintext: "); | |
| 21 | + | while (my $text = <STDIN>) { | |
| 22 | + | $text =~ tr/N-ZA-Mn-za-m/A-Za-z/; | |
| 23 | + | print("\nencrypted: $text"); | |
| 24 | + | exit 0; | |
| 25 | + | } | |
| 26 | + | } | |
| 27 | + | ||
| 28 | + | sub decrypt { | |
| 29 | + | print("enter encrypted text: "); | |
| 30 | + | while (my $text = <STDIN>) { | |
| 31 | + | $text =~ tr/A-Za-z/N-ZA-Mn-za-m/; | |
| 32 | + | print("\ndecrypted: $text"); | |
| 33 | + | exit 0; | |
| 34 | + | } | |
| 35 | + | } | |
| 36 | + | ||
| 37 | + | usage |