VG
он хотя бы на XS, в отличие от Crypt::License
Size: a a a
2020 April 25
IB
почему не очень, самое то, за такую цену)
разве была озвучена цена заказа?
VG
разве была озвучена цена заказа?
"клиент на апворке попросил такую защиту сделать, я бы за это приложение и 100$ не дал бы, там такое легаси с индусским кодом"
IB
гм. и где тут цена заказа на разработку защиты для этого приложения?
IB
ты считаешь что это $100?
VG
если человек всё приложение в 100 баксов оценивает, ну ок, пусть в несколько раз, но защита явно не стоит больше
IB
ход мыслей понял, спасибо
SK
если человек всё приложение в 100 баксов оценивает, ну ок, пусть в несколько раз, но защита явно не стоит больше
:) я иронизировал) за приложение явно больше берут, да и заказ на большие деньги
VG
ну понятно что гипербола, но так и защита всяко дешевле самого приложения же
2020 April 26
SZ
ну "в принципе" есть градации пирамиды по затратам на того, кто будет вскрывать:
* проверка сертификата - любой человек, умеющий программирование или даже хороший админ, умеющий "несколько команд gdb"
* обфусцированный Perl-код - понадобится уже конкретно перловик
* сишный модуль - нужен любой сишник
* скомпилированная хрень, расшифровывающая сырцы - нужен не просто сишник, а умеющий дизассемблирование, их заметно меньше
* скомпилированная хрень, расшифровывающая сырцы с патченным интерпретатором - нужен сишник как выше, не просто с дизасссемблером, но еще и знакомый с исходниками перла, таких вообще мало
* проверка сертификата - любой человек, умеющий программирование или даже хороший админ, умеющий "несколько команд gdb"
* обфусцированный Perl-код - понадобится уже конкретно перловик
* сишный модуль - нужен любой сишник
* скомпилированная хрень, расшифровывающая сырцы - нужен не просто сишник, а умеющий дизассемблирование, их заметно меньше
* скомпилированная хрень, расшифровывающая сырцы с патченным интерпретатором - нужен сишник как выше, не просто с дизасссемблером, но еще и знакомый с исходниками перла, таких вообще мало
Ага, упаковать все зависимости в один пакет утилиткой с срана, обфусцировать, чтобы логику было труднее реверснуть, скомпилить это всё и статически слинковать, удалить все возможные символы, бинарь зашифровать алгоритмом цезаря и написать рядом утилитку на си, которая будет уметь его грузить в память и расшифровывать. И рядом положить библиотеку, которая будет заниматься протоколом клиент-серверного обмена, который каждый день/месяц меняется (протокол передачи шифруется каждый день новым ключом, а ключ можно скачать только при наличии валидной лицензии, причем эту часть проверки можно реализовать легко, штатными средствами ssl client auth) и требует от заказчика выкачивания новой версии.
VG
Ага, упаковать все зависимости в один пакет утилиткой с срана, обфусцировать, чтобы логику было труднее реверснуть, скомпилить это всё и статически слинковать, удалить все возможные символы, бинарь зашифровать алгоритмом цезаря и написать рядом утилитку на си, которая будет уметь его грузить в память и расшифровывать. И рядом положить библиотеку, которая будет заниматься протоколом клиент-серверного обмена, который каждый день/месяц меняется (протокол передачи шифруется каждый день новым ключом, а ключ можно скачать только при наличии валидной лицензии, причем эту часть проверки можно реализовать легко, штатными средствами ssl client auth) и требует от заказчика выкачивания новой версии.
AP
в докере зашифровать контейнер...
2020 April 27
АР
Приветствую! Помогите плз с алгоритмом.
Есть отсортированный массив чисел от 1 до ...
Дублей в массиве нет!
Нужно вывести непрерывные последовательности чисел как диапазон.
Например:
my @dig = qw(5 6 7 8 11 15 21 22 23);
Необходимо на выходе получить строки:
5-9
11-12
15-16
21-24
Есть отсортированный массив чисел от 1 до ...
Дублей в массиве нет!
Нужно вывести непрерывные последовательности чисел как диапазон.
Например:
my @dig = qw(5 6 7 8 11 15 21 22 23);
Необходимо на выходе получить строки:
5-9
11-12
15-16
21-24
АР
Как это проще и элегантнее на перле реализовать?
SZ
Как это проще и элегантнее на перле реализовать?
Да ничего особенного перл в этой сфере не предлагает. Обычный for с одной переменной, в которой хранится предыдущее число
SZ
perl -e '... ; my $v = 0; print "$dig[0]-"; for (@dig) { if ($_ != $v) {print "$_\n$_-" if $v; $v = $_ + 1; } else { $v++ }}' думаю, так, с мобилы не проверить...AT
print $v-1; в конце не хватает вродеSZ
print $v-1; в конце не хватает вроде++
Полностью так:
Полностью так:
perl -e 'my @dig = qw( 5 6 7 8 11 15 21 22 23); my $v = 0; print "$dig[0]-"; for (@dig) { if ($_ != $v) {print "$v\n$_-" if $v; $v = $_ + 1; } else { $v++ }} print "$v\n"'SZ
@PerlBanjoBot perl -e 'my @dig = qw( 5 6 7 8 11 15 21 22 23); my $v = 0; print "$dig[0]-"; for (@dig) { if ($_ != $v) {print "$v\n$_-" if $v; $v = $_ + 1; } else { $v++ }} print "$v\n"'
P
@PerlBanjoBot perl -e 'my @dig = qw( 5 6 7 8 11 15 21 22 23); my $v = 0; print "$dig[0]-"; for (@dig) { if ($_ != $v) {print "$v\n$_-" if $v; $v = $_ + 1; } else { $v++ }} print "$v\n"'
syntax error at script.pl line 9, near "perl -e "
Execution of script.pl aborted due to compilation errors.
https://PerlBanjo.com/90472a8bb4
Execution of script.pl aborted due to compilation errors.
https://PerlBanjo.com/90472a8bb4