>>А можно как-нить скрыть исходный текст перлового скрипта... откомпелировать может чем-то? Или
>>никак?
>
>
>perlcc
Ну и что? Вместо скриптика на 100 байтов получится здоровенная дура на все 300 КБ. Если хотите увидеть, как можно закодировать код Перла, так чтобы там даже чёрт ногу сломал, посмотрите чатовую программу на сайте http://www.gtchat.de/, вот фрагмент:
sub x17ras8aFs2M{my($xqIeG0ByxeYk)=@_;if($externalmknod){($mknodprog eq $xdtNAoyzfZY||system($mknodprog,$xqIeG0ByxeYk,$xeDRS2627TwI))&&($mkfifoprog eq $xdtNAoyzfZY||system($mkfifoprog,$xqIeG0ByxeYk))&&xOy95R0gSUWY($xWMMQLt39cac);}
else{if(syscall($SYS_mknod,$xqIeG0ByxeYk,$S_IFIFO|0600,0)!=0){xOy95R0gSUWY($xWMMQLt39cac);}
}
xOy95R0gSUWY($xWMMQLt39cac)if(! -p$xqIeG0ByxeYk);}
sub x5T0aNnxJnY{my $xSaQZAFlSh3k=shift;open(FILE,$xSaQZAFlSh3k.$x32ZcS9EcUo);my $xnfWF4tac6Ps= <FILE>;close(FILE);return $xnfWF4tac6Ps;}
sub xH5lcxuxYIs{eval $xWmKrkf4BoYE;if($SYS_mknod==0||$S_IFIFO==0){open(FILE,$xvjjby2xx9F6);print FILE $x06VCCiyCILc;close(FILE);my @xE0WAuDzHZNM=($x3nejiQoFoQw,$xlCVvjxq9gjY,$xM3sUi8ewnWE,$xZ6M2rkFFQ36,$xK25eURJblNY,$xTFlDhkjIFI);my @xQEmKoAMjGY=split(/\s/,x5T0aNnxJnY($xmuqS3ha7XQ));shift(@xQEmKoAMjGY);push(@xE0WAuDzHZNM,@xQEmKoAMjGY);@xQEmKoAMjGY=split(/\s/,x5T0aNnxJnY($xCYqRHROUoCY));shift(@xQEmKoAMjGY);push(@xE0WAuDzHZNM,@xQEmKoAMjGY);foreach(@xE0WAuDzHZNM){if(system($_,$xzu7YxHGdoxM,$xzgBaaT7pmk,$x4jeYUk4oE8Y)){last;}
}
($SYS_mknod,$S_IFIFO)=split(/\s/,x5T0aNnxJnY($xoxJVtFYqsE));unlink($xzgBaaT7pmk);unlink($x4jeYUk4oE8Y);}
if($SYS_mknod==0||$S_IFIFO==0){$externalmknod=1;}
xN5nSt3BUz1o();}
Вариант для распечатки
Программирование под UNIX (Public)
on
19-Мрт-04, 06:28 (MSK)
