Não tenho uma solução para a pergunta que você está realmente fazendo, ou seja, como copiar texto e deixá-lo legível.
No entanto! Parece do seu exemplo como a "criptografia" aqui é uma simples substituição de caracteres. Sendo este o caso, não seria muito difícil passar o texto copiado através de um filtro para descriptografá-lo e produzir um resultado legível. Por exemplo, assuma o seguinte script chamado decrypt.pl
:
#!/usr/bin/perl
use strict;
use utf8;
binmode STDIN, ':utf8';
my %map = (
# from => to
'z' => 's',
'd' => 'h',
'n' => 'e',
'a' => 'i',
'~' => 'u',
'g' => 'n',
'f' => 'a',
'p' => 'p',
'' => 'r',
'b' => 'o',
'j' => 'c',
'd' => 'h',
''' => 'b',
'h' => 'l',
# other substitutions here
);
while (my $line = <STDIN>) {
foreach my $char (split(//, $line)) {
my $upcase = (lc($char) eq $char ? 0 : 1);
my $found = $map{lc($char)};
if (!$found) {
die "No substitution found for character '$char'\n";
};
$found = uc($found) if $upcase;
print $found;
};
};
Se você copiar o texto desejado do PDF em um arquivo chamado, por exemplo, source
, execute cat source | perl decrypt.pl > destination
, então o arquivo destination
conterá o conteúdo descriptografado:
[user@host tmp]$ echo 'Zdn az ~gfppbfjdf'hn' > source
[user@host tmp]$ cat source | perl decrypt.pl > destination
[user@host tmp]$ cat destination
She is unapproachable
[user@host tmp]$