73 lines
1.4 KiB
Perl
Executable file
73 lines
1.4 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use Getopt::Std;
|
|
getopts('u');
|
|
|
|
$user = (getpwuid($<))[0];
|
|
|
|
%maps = (
|
|
'a' => "\340\341\342\343\344\345",
|
|
'c' => "\242\347",
|
|
'd' => "\360",
|
|
'e' => "\350\351\352\353",
|
|
'i' => "\354\355\356\357",
|
|
'n' => "\361",
|
|
'o' => "\272\362\363\364\365\366\370",
|
|
'p' => "\376",
|
|
'q' => "\266",
|
|
'u' => "\265\371\372\373\374",
|
|
'x' => "\244\327",
|
|
'y' => "\375",
|
|
'A' => "\300\301\302\303\304\305",
|
|
'B' => "\337",
|
|
'C' => "\307\251",
|
|
'D' => "\320",
|
|
'E' => "\310\311\312\313",
|
|
'I' => "\314\315\316\317",
|
|
'L' => "\243",
|
|
'N' => "\321",
|
|
'O' => "\322\323\324\325\326",
|
|
'P' => "\336",
|
|
'R' => "\256",
|
|
'U' => "\331\332\333\334",
|
|
'Y' => "\245\335",
|
|
'!' => "\241",
|
|
'>' => "\273",
|
|
'<' => "\253",
|
|
'"' => "\250",
|
|
'+' => "\367",
|
|
'|' => "\246",
|
|
',' => "\270",
|
|
'?' => "\277",
|
|
'0' => "\330",
|
|
'2' => "\262",
|
|
'3' => "\263"
|
|
);
|
|
|
|
$| = 1;
|
|
|
|
while (<>) {
|
|
CHAR: for $i (0..(length($_) - 1)) {
|
|
$c = substr($_,$i,1);
|
|
|
|
# if ($c eq 'A' && substr($_,$i+1,1) eq 'E') {
|
|
# print "\306";
|
|
# $skip = 1; next;
|
|
# } elsif ($c eq 'a' && substr($_,$i+1,1) eq 'e') {
|
|
# print "\346";
|
|
# $skip = 1; next;
|
|
# } else {
|
|
# print((defined $maps{$c}) ?
|
|
# substr($maps{$c}, int rand(length($maps{$c})), 1) : $c);
|
|
# }
|
|
|
|
for $x (keys %maps) {
|
|
if ($maps{$x} =~ /\Q$c/) {
|
|
print $x;
|
|
next CHAR;
|
|
}
|
|
}
|
|
|
|
print $c;
|
|
}
|
|
}
|