|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vlad 2:5020/400 06 Jan 2002 01:15:49
To : All
Subject : Спрятать скрипт
--------------------------------------------------------------------------------
Всем доброго дня/ночи!
Пришла мне тут в голову одна идея, а именно: как скрыть скрипт от
посторонних глаз. Причин может быть много: у кого-то паранойя, а
у кого-то нечестные заказчики сперли разработку (как со мной было
давно), etc. И вот, что мне подумалось:
---------------------- cut here -----------------------------------
#!/usr/bin/perl
use strict;
use Crypt::RC4;
use MIME::Base64;
# RC4 - один из вариантов, можно попробовать любое из Crypt::...
my $pass = "Очень длинный пароль";
# В качетве пароля можно использовать привязку к хосту
# и регистрационному ключу или к сумме MD5 чего-нибудь,
# или к trial-дате
my $text;
while (<DATA>) {$text .= $_;}
&evaluating_code($pass, $text); # расшифровываем и выполняем код
#&crypted_to_file($pass, $text); # криптуем, упаковываем base64 и пишем в файл,
# мануально копируем и помещаем после __DATA__
sub evaluating_code {
my ($pass, $text) = @_;
my $decoded = decode_base64($text); # декодируем
my $decrypted = RC4($pass, $decoded); # расшифровываем
chop($decrypted);
eval $decrypted;
}
sub crypted_to_file {
my ($pass, $text) = @_;
my $crypted = RC4($pass, $text); # криптуем
my $encoded = encode_base64($crypted); # кодируем в base64
open (FILE, ">/vlad/perl/works/crypted");
chop($encoded);
print FILE $encoded;
close (FILE) ;
}
# а тут лежит наш спрятанный скрипт
# я положил окно на perl/tk
__DATA__
1ZX5e4sqJKnxuHa9bvnMNEihDuivFQmU8ry1E6v6zIPkx4ULul+Q3DXqTFbv5BIhqiUMsSMvb9EQ
7rWNdUL/F9J1Gkk8hYEzCFEqyZa0PCiJZGwm6w/g4puzwH05GYs=
---------------------- cut here -----------------------------------
Какие будут соображения?
Да, пробовал я под win2000 и Linux7.0, вроде бы работает
VLAD
mailto:vlad@niko.kiev.ua
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: NIKO (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
