Как заменить произвольное количество обратных ссылок в sed или Perl?(для запутывания mailto) - PullRequest
Новая
       5

Как заменить произвольное количество обратных ссылок в sed или Perl?(для запутывания mailto)

1 голос
/ 08 августа 2010

Я ищу способ запутать почтовые сообщения в исходном коде веб-сайта.Я хотел бы перейти от этого: 

href="mailto:president@whitehouse.gov"

К этому: 

href="" onmouseover="this.href='mai'+'lto:'+'pre'+'sid'+'ent'+'@wh'+'ite'+'hou'+'se.'+'gov'"</code>

Я, вероятно, вместо этого пойду с решением PHP, как это (таким образом, мне нужно всего лишь глобально заменить весь mailto, и источник на моем конце будет выглядеть лучше), но я потратил слишком много времени на изучение sed и Perl, и теперь я не могу перестать думать о том, как это можно сделать!Есть идеи?

Обновление: Основываясь на решении eclark, я в конце концов придумал следующее: 

#!/usr/bin/env perl -pi
if (/href="mailto/i) {
    my $start = (length $&#x60;) +6;
    my $len = index($_,'"',$start)-$start;
    substr($_,$start,$len,'" onmouseover="this.href=' .
    join('+',map qq{'$_'}, substr($_,$start,$len) =~ /(.{1,3})/g));
}

Ответы [ 5 ]

3 голосов
/ 08 августа 2010 
#!/usr/bin/perl

use strict; use warnings;

my $s = 'mailto:president@whitehouse.gov';

my $obfuscated = join('+' => map qq{'$_'}, $s =~ /(.{1,3})/g );

print $obfuscated, "\n";

Выход: 

'mai'+'lto'+':pr'+'esi'+'den'+'t@w'+'hit'+'eho'+'use'+'.go'+'v'

Обратите внимание, что 'lto: - это четыре символа, в то время как похоже, что вы хотите три группы символов.

0 голосов
/ 08 августа 2010

Ack! Thppfft! Я предлагаю вам этот шарик для волос: 

s='href="mailto:president@whitehouse.gov"'
echo "$s" | sed -n 's/=/=\x22\x22\n/;
h;
s/\n.*//;
x;
s/[^\n]*\n//;
s/"//g;
s/\(...\)/\x27&\x27+/g;
s/.*/onmouseover=\x22this.href=&\x22/;
x;
G;
s/\n//2;
s/+\([^\x22]\{1,2\}\)\x22$/+\x27\1\x27\x22/;
s/+\x22$/\x22/;
p'
0 голосов
/ 08 августа 2010

Основываясь на идее Синан, вот небольшой скрипт на Perl, который будет построчно обрабатывать файл. 

#!/usr/bin/env perl -p

my $start = index($_,'href="') +6;
my $len = index($_,'"',$start)-$start;
substr($_,$start,$len+1,'" onmouseover="this.href=' .
  join('+',map qq{'$_'}, substr($_,$start,$len) =~ /(.{1,3})/g)
);

Если вы собираетесь его использовать, убедитесь, что ваши старые файлы переданы в систему контроля версий и измените параметр -p на -i, который перезапишет файл на месте.

0 голосов
/ 08 августа 2010

Это достаточно близко? 

use strict; 
use warnings; 

my $old = 'href="mailto:president@whitehouse.gov"';
$old =~ s/href="(.*)"/$1/;
my $new = join '+', map { qq('$_') } grep { length $_ } split /(.{3})/, $old;
$new = qq(href=""\nonmouseover="this.href=$new\n");
print "$new\n";

__END__

href=""
onmouseover="this.href='mai'+'lto'+':pr'+'esi'+'den'+'t@w'+'hit'+'eho'+'use'+'.go'+'v'
"
0 голосов
/ 08 августа 2010

Просто пример.

$ echo $s
href="mailto:president@whitehouse.gov"

$ echo $s | sed 's|\(...\)|\1+|g' | sed 's/hre+f=\"/href="" onmouseover="this.href=/'
href="" onmouseover="this.href=+mai+lto+:pr+esi+den+t@w+hit+eho+use+.go+v"
...