#!/usr/bin/perl 
 
use strict; 
 
use warnings; 
 
use CGI ':cgi'; 
 
use CGI::Carp qw(fatalsToBrowser); 
 
print header; 
 
#uses the param function to define user input from a webform 
 
my %data; 
 
$data{$_} = param($_) for qw(message); 
 
#seperate user string to array 
 
my @message; 
 
@message = split(//,$data{message}); 
 
$data{message} =~ s/a/1/g; 
 
$data{message} =~ s/b/2/g; 
 
$data{message} =~ s/c/3/g; 
 
$data{message} =~ s/d/4/g; 
 
$data{message} =~ s/e/5/g; 
 
$data{message} =~ s/f/6/g; 
 
$data{message} =~ s/g/7/g; 
 
$data{message} =~ s/h/8/g; 
 
$data{message} =~ s/i/9/g; 
 
$data{message} =~ s/j/10/g; 
 
$data{message} =~ s/k/11/g; 
 
$data{message} =~ s/l/12/g; 
 
$data{message} =~ s/m/13/g; 
 
$data{message} =~ s/n/14/g; 
 
$data{message} =~ s/o/15/g; 
 
$data{message} =~ s/p/16/g; 
 
$data{message} =~ s/q/17/g; 
 
$data{message} =~ s/r/18/g; 
 
$data{message} =~ s/s/19/g; 
 
$data{message} =~ s/t/20/g; 
 
$data{message} =~ s/u/21/g; 
 
$data{message} =~ s/v/22/g; 
 
$data{message} =~ s/w/23/g; 
 
$data{message} =~ s/x/24/g; 
 
$data{message} =~ s/y/25/g; 
 
$data{message} =~ s/z/26/g; 
 
$data{message} =~ s/\s/27/g; 
 
$data{message} =~ s/\./28/g; 
 
$data{message} =~ s/\?/29/g; 
 
print "$data{message}\n"; 
 
print "@message"; 
 
  
 
  

    
  
#!/usr/bin/perl  
  
use strict;  
  
use warnings;  
  
use CGI ':cgi';  
  
use CGI::Carp qw(fatalsToBrowser);  
  
print header;  
  
#uses the param function to define user input from a webform  
  
my %data;  
  
$data{$_} = param($_) for qw(message);  
  
$data{message} =~ s/a/1_/g;  
  
$data{message} =~ s/b/2_/g;  
  
$data{message} =~ s/c/3_/g;  
  
$data{message} =~ s/d/4_/g;  
  
$data{message} =~ s/e/5_/g;  
  
$data{message} =~ s/f/6_/g;  
  
$data{message} =~ s/g/7_/g;  
  
$data{message} =~ s/h/8_/g;  
  
$data{message} =~ s/i/9_/g;  
  
$data{message} =~ s/j/10_/g;  
  
$data{message} =~ s/k/11_/g;  
  
$data{message} =~ s/l/12_/g;  
  
$data{message} =~ s/m/13_/g;  
  
$data{message} =~ s/n/14_/g;  
  
$data{message} =~ s/o/15_/g;  
  
$data{message} =~ s/p/16_/g;  
  
$data{message} =~ s/q/17_/g;  
  
$data{message} =~ s/r/18_/g;  
  
$data{message} =~ s/s/19_/g;  
  
$data{message} =~ s/t/20_/g;  
  
$data{message} =~ s/u/21_/g;  
  
$data{message} =~ s/v/22_/g;  
  
$data{message} =~ s/w/23_/g;  
  
$data{message} =~ s/x/24_/g;  
  
$data{message} =~ s/y/25_/g;  
  
$data{message} =~ s/z/26_/g;  
  
$data{message} =~ s/\s/27_/g;  
  
$data{message} =~ s/\./28_/g;  
  
$data{message} =~ s/\?/29_/g;  
  
#seperate user string to array  
  
my @message;  
  
@message = split(/_/,$data{message});  
  
   
  
print "$data{message}\n";  
  
print "@message";  
  
   
  
 

#!/perl/bin/perl.exe 
use strict; 
use CGI; 
use CGI::Carp qw(fatalsToBrowser); 
 
my %code_hash = ( 
   a => 1, b => 2, c => 3, d => 4, e => 5, f => 6, g => 7, h => 8, i => 9, 
   j => 10, k => 11, l => 12, m => 13, n => 14, o => 15, p => 16, q => 17, 
   r => 18, s => 19, t => 20, u => 21, v => 22, w => 23, x => 24, y => 25, 
   z => 26, '+' => 27, '.' => 28, '?' => 29 
); 
 
my $q = new CGI; 
print $q->header; 
 
#my $message = $q->param('message') 
 
my $message = "this is a test. To see what happens"; 
my @message = &encode($message); 
print "@message"; 
 
 
sub encode { 
   my $message = shift; 
   $message = lc $message; #convert to all lower case 
   $message =~ s/[^a-zA-Z\.\?\s]//g; #get rid of unwanted characters 
   $message =~ s/\s+/\+/g; #substitute + for spaces 
   my @temp = split(//,$message); #split characters into @temp array 
   s/\Q$_\E/$code_hash{$_}/gi for @temp; #convert message to code 
   return(@temp); #return results 
}

  my %decode_hash = (1 => a, 2 => b, 3 => c, 4 =>d, 5 => e, 6 => f, 7 => g, 8 => h,9 => i, 10 => j, 11 => k, 12 => l, 13 => m, 14 => n, 15 => o,16 => p, 17 => q, 18 => r, 19 => s, 20 => t, 21 => u, 22 => v,23 => w, 24 => x, 25 => y, 26 => z, 27 => '+', 28 => '.', 29 => '?');

  sub decode {s/$_/$decode_hash{$_}/gi for @coded_message;return (@coded_message);}

#!/usr/bin/perl 
                                                                                 
use strict; 
use warnings; 
                                                                                 
my $message = 'the quick brown fox jumps over the lazy dog.'; 
                                                                                 
my @chars = ('a' .. 'z', ' ', '.', '?'); 
my %chars = map { $chars[$_] => $_ + 1 } 0 .. $#chars; 
                                                                                 
$message =~ s/(.)/$chars{$1}/g; 
                                                                                 
print $message;

my %chars = map { $chars[$_] => sprintf '%02d', $_ + 1 } 0 .. $#chars;

    
  
#!/perl/bin/perl  
  
use strict;   
  
use CGI;   
  
use CGI::Carp qw(fatalsToBrowser);   
  
my %code_hash = (   
  
a => 1, b => 2, c => 3, d => 4, e => 5, f => 6, g => 7, h => 8, i => 9, j => 10, k => 11, l => 12, m => 13, n => 14, o => 15, p => 16, q => 17, r => 18, s => 19, t => 20, u => 21, v => 22, w => 23, x => 24, y => 25, z => 26, '+' => 27, '.' => 28, '?' => 29, '_' => 27);   
  
my %decode_hash = (  
  
1 => 'a', 2 => 'b', 3 => 'c', 4 => 'd', 5 => 'e', 6 => 'f', 7 => 'g', 8 => 'h', 9 => 'i', 10 => 'j', 11 => 'k', 12 => 'l', 13 => 'm', 14 => 'n', 15 => 'o', 16 => 'p', 17 => 'q', 18 => 'r', 19 => 's', 20 => 't', 21 => 'u', 22 => 'v', 23 => 'w', 24 => 'x', 25 => 'y', 26 => 'z', 27 => '_', 28 => '.', 29 => '?');  
  
my $q1 = new CGI;  
  
print $q1->header;  
  
my $message = $q1->param('message');  
  
my @message = &encode($message);   
  
sub encode {   
  
my $message = shift;  
  
$message = lc $message; #convert to all lower case   
  
$message =~ s/[^a-zA-Z\.\?\s]//g; #get rid of unwanted characters   
  
$message =~ s/\s+/\+/g; #substitute + for spaces   
  
my @temp = split(//,$message); #split characters into @temp array   
  
s/\Q$_\E/$code_hash{$_}/gi for @temp; #convert message to code   
  
return(@temp); #return results   
  
}  
  
my $count;  
  
my $remainder;  
  
$count = @message;  
  
$remainder = $count % 3;  
  
while ($remainder == 1 || $remainder == 2) {  
  
push @message,'27';  
  
$count = @message;  
  
$remainder = $count % 3;  
  
};  
  
my @code;  
  
@code = (0,1,0,1,1,0,1,0,1);  
  
my $n1;  
  
my $p1;  
  
my @coded_message;  
  
$n1 = 0;  
  
$p1 = 0;  
  
until ($n1 == $count){  
  
  
  
$coded_message[$p1] = ($code[0] * $message[$n1++]) + ($code[1] * $message[$n1++]) + ($code[2] * $message[$n1++]);  
  
$p1+=3;  
  
}  
  
$n1 = 0;  
  
$p1 = 1;  
  
until ($n1 == $count){  
  
$coded_message[$p1] = ($code[3] * $message[$n1++]) + ($code[4] * $message[$n1++]) + ($code[5] * $message[$n1++]);  
  
$p1+=3;  
  
}  
  
$n1 = 0;  
  
$p1 = 2;  
  
until ($n1 == $count){  
  
$coded_message[$p1] = ($code[6] * $message[$n1++]) + ($code[7] * $message[$n1++]) + ($code[8] * $message[$n1++]);  
  
$p1+=3;  
  
}  
  
$n1 = 0;  
  
until ($n1 == $count) {  
  
until ($coded_message[$n1] < 30){  
  
$coded_message[$n1] = $coded_message[$n1] - 29;  
  
}  
  
$n1++;  
  
}  
  
$n1 = 0;  
  
until ($n1 == $count) {  
  
until ($coded_message[$n1] > 0) {  
  
$coded_message[$n1] = $coded_message[$n1] + 29;  
  
}  
  
$n1++;  
  
}  
  
  
  
@coded_message = &decode(@coded_message);  
  
sub decode {  
  
s/\Q$_\E/$decode_hash{$_}/gi for @coded_message;  
  
  
  
return (@coded_message);  
  
}  
  
print <<EOF  
  
<HTML>  
  
<HEAD>  
  
<TITLE>Encrypted Message!</TITLE>  
  
</HEAD>  
  
<BODY><center>  
  
<H1>Your message has been encrypted\!</H1>  
  
<p>Your message has been successfully encrypted.<BR><font color=orange size=4><b>@coded_message</b></font></p></center>  
  
</BODY>  
  
</HTML>  
  
EOF

#!/usr/bin/perl   
   
use strict;    
use warnings; 
   
use CGI ':standard'; 
use CGI::Carp qw(fatalsToBrowser);    
   
my @chars = ('a' .. 'z', ' ', '.', '?'); 
my %code_hash = map { $chars[$_] => $_ + 1 } 0 .. $#chars; 
my %decode_hash = reverse %code_hash; 
   
print header;   
   
my @message = encode(param('message'));    
   
while (@message % 3) { 
  push @message, '27'; 
}; 
 
my @code = (0,1,0,1,1,0,1,0,1); 
 
my @coded_message; 
 
foreach my $p1 (0 .. 2) { 
  my $n1 = 0; 
  my @index = ($p1 * 3, $p1 * 3 + 1, $p1 * 3 + 2); 
 
  until ($n1 == @message) { 
    $coded_message[$p1] = ($code[$index[0]] * $message[$n1++]) 
                        + ($code[$index[1]] * $message[$n1++]) 
                        + ($code[$index[2]] * $message[$n1++]); 
    $p1 += 3; 
  } 
} 
 
foreach my $n1 (0 .. $#message) { 
  until ($coded_message[$n1] < 30) { 
    $coded_message[$n1] = $coded_message[$n1] - 29; 
  } 
 
  until ($coded_message[$n1] > 0) { 
    $coded_message[$n1] = $coded_message[$n1] + 29; 
  } 
}  
 
@coded_message = decode(@coded_message); 
 
print <<EOF; 
 
<html>   
  <head> 
    <title>Encrypted Message!</title> 
  </head> 
  <body> 
    <center> 
      <h1>Your message has been encrypted!</h1> 
      <p>Your message has been successfully encrypted.<br /> 
      <font color=orange size=4><b>@coded_message</b></font></p> 
    </center> 
  </body> 
</html>   
EOF 
 
sub encode {    
  my $message = shift;   
 
  $message = lc $message; #convert to all lower case 
  $message =~ s/[^a-zA-Z\.\? ]//g; #get rid of unwanted characters 
   
  my @temp = split(//, $message); #split characters into @temp array    
   
  s/\Q$_\E/$code_hash{$_}/gi for @temp; #convert message to code 
 
  return @temp; #return results    
} 
 
sub decode { 
  my @msg = @_; 
  s/\Q$_\E/$decode_hash{$_}/gi for @msg;   
 
  return (@msg); 
}