CryptoCaesar/Pythonmelhor.pl at master · inascim/CryptoCaesar · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
#Trabalho de Linguagens de programaçã#Trabalho de Linguagens de programação - 2016/1
# Eduardo Naslausky
# Igor Nascimento
#Professor: Miguel

use warnings;
use strict;

#use File::Basename qw(dirname);
#use Cwd  qw(abs_path);
#use lib dirname(dirname abs_path $0) . '\CryptoCaesar\lib';


use menosmenos qw( menosmenosLetra menosmenosNum );


sub code{
    my ($tamanho, $senha, $mensagem) = @_;
    my @charsMensagem = split("", $mensagem);
    my $lowerSenha= lc($senha);
    my @charsSenha = split("", $lowerSenha);
    my $contador=0;
    foreach (@charsMensagem){
        my $i='a';
        if (/[a-zA-Z0-9]/){
            while($i ne @charsSenha[$contador % $tamanho]){
                ++$_;
                ++$i;
            }
            my @letra = split("",$_);
            $_= $letra[-1];
            $contador++;
            #print $_,"\n";
        }
    }
    my $string = join ( '', @charsMensagem );
    return ($string);
}


sub decode{
    my ($tamanho, $senha, $mensagem) = @_;
    my @charsMensagem = split("", $mensagem);
    my $lowerSenha= lc($senha);
    my @charsSenha = split("", $lowerSenha);
    my $contador=0;
    foreach (@charsMensagem){
        my $i='a';
        if (/[a-zA-Z]/){
            while($i ne @charsSenha[$contador % $tamanho]){
                #for (my $j=0; $j<25; $j++){#HACK PARA FAZER DECREMENTO, JA QUE PERL NÃO CONSEGUE DECREMENTAR
                #    ++$_;
                #}
                $_=menosmenosLetra($_);
                ++$i;
            }
            my @letra = split("",$_);
            $_= $letra[-1];
            $contador++;
            #print $_,"\n";
        }
		elsif(/[0-9]/){
            while($i ne @charsSenha[$contador % $tamanho]){
                #for (my $j=0; $j<9; $j++){#HACK PARA FAZER DECREMENTO, JA QUE PERL NÃO CONSEGUE DECREMENTAR
                #    ++$_;
                #}
                $_=menosmenosNum($_);
                ++$i;
            }
            my @letra = split("",$_);
            $_= $letra[-1];
            $contador++;
		}
    }
	my $string = join ( '', @charsMensagem );
    return ($string);
}