Make secret codes for you and your friends with this one-of-a-kind tool! JK, it's my version of a secret language which I use to talk with some of my geeky friends with, the script encodes and decodes text and ascii.
#!/usr/bin/perl
use CGI::Carp 'fatalsToBrowser';
use strict;
use warnings;
use CGI;
my $message = param('message');
my $choice = param('choice');
use CGI qw/:standard/;
if ($choice eq "") {
print header,
start_html('Secret Encoder');
print start_form(), table(
Tr(td(radio_group(-name=>'choice',
-values=>['encode','decode'])) ),
Tr(td(textarea(-name=>'message',
-override=>1,
-rows=>5,
-columns=>40)) ),
Tr(td(submit)),
end_form(),
hr(),
);
}
elsif ($choice eq "encode") {
my @character_code = join ' ', unpack("C*", "$message");
print header,
start_html('Secret Encoder');
print start_form(), table(
Tr(td(radio_group(-name=>'choice',
-values=>['encode','decode'])) ),
Tr(td(textarea(-name=>'message',
-default=>"@character_code",
-override=>1,
-rows=>5,
-columns=>40)) ),
Tr(td(submit)),
end_form(),
hr(),
);
}
elsif ($choice eq "decode") {
my $characters = pack("C*", split ' ', "$message");
print header,
start_html('Secret Encoder');
print start_form(), table(
Tr(td(radio_group(-name=>'choice',
-values=>['encode','decode'])) ),
Tr(td(textarea(-name=>'message',
-default=>"$characters",
-override=>1,
-rows=>5,
-columns=>40)) ),
Tr(td(submit)),
end_form(),
hr(),
);
}