У меня нет решения для вопроса, который вы на самом деле задаете, то есть, как скопировать текст и сделать его читабельным.
Тем не мение! Из вашего примера видно, что "шифрование" здесь представляет собой простую замену символов. В таком случае было бы не сложно пропустить скопированный текст через фильтр, чтобы расшифровать его и получить читаемый результат. Например, предположим, что следующий скрипт называется 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;
};
};
Если вы копируете любой текст из PDF-файла в файл с именем, например, source
, то выполните cat source | perl decrypt.pl > destination
, тогда destination
файла будет содержать расшифрованный контент:
[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]$