19 lines
309 B
Perl
Executable File
19 lines
309 B
Perl
Executable File
#!/usr/pkg/bin/perl
|
|
|
|
binmode STDIN;
|
|
binmode STDOUT;
|
|
|
|
while (1)
|
|
{
|
|
my $byte = getc;
|
|
last unless defined($byte);
|
|
$byte = ord($byte);
|
|
$a = $byte & 0x08;
|
|
$b = $byte & 0x10;
|
|
$byte = $byte & 0xe7;
|
|
$byte = $byte | 0x08 if ($b);
|
|
$byte = $byte | 0x10 if ($a);
|
|
printf "%c", $byte;
|
|
}
|
|
|