/usr/share/doc/libhttp-proxy-perl/examples/leet.pl is in libhttp-proxy-perl 0.304-3.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
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 | #!/usr/bin/perl -w
use HTTP::Proxy qw( :log );
use HTTP::Proxy::BodyFilter::tags;
use HTTP::Proxy::BodyFilter::htmltext;
use strict;
# a very simple proxy
my $proxy = HTTP::Proxy->new( @ARGV );
my %leet = (
a => [qw( 4 /-\ @ )],
b => ['|3'],
c => [qw! c ( < [ !],
e => [qw( e 3 )],
g => [qw( g 6 )],
h => [qw! h |-| )-( !],
k => [qw( k |< ]{ )],
i => ['i', '!'],
l => [ 'l', "1", "|" ],
m => [ 'm', "|V|", "|\\/|" ],
n => ["|\\|"],
o => ['o', "0"],
s => [ "5", "Z" ],
t => [ "7", "+" ],
u => [qw( u \_/ )],
v => [qw( v \/ )],
w => [qw( vv `// )],
'y' => ['j', '`/'],
z => ["2"],
);
# but a complicated filter
$proxy->push_filter(
mime => 'text/html',
response => HTTP::Proxy::BodyFilter::tags->new,
response => HTTP::Proxy::BodyFilter::htmltext->new(
sub {
s/([a-zA-Z])/$leet{lc $1}[rand @{$leet{lc $1}}]||$1/ge;
}
)
);
$proxy->start;
|