Архив метки: perl

Скрытие кода, метод 10: почти стеганография

Получил от клиента жалобу, что антивирус ругается на… картинки! Сначала я проверил все файлы .htaccess, ничего подозрительного. Затем сами файлы картинок (jpg) командой file – нормальные файлы изображений в формате JPEG. Затем открыл файл (по ссылке) в браузере – обычная картинка (мой антивирус не проверяет изображения на предмет вирусов, а зачем?). Бред какой-то… Тогда я… Читать далее »

Скрытие кода, метод 9

Этот метод популярен у ботоводов (т.е. распространителей perl-ботов), зашифрованный код передается непосредственно процессу Perl, запускаемому функцией popen(): error_reporting( 1 ); global $HTTP_SERVER_VARS; if (@is_resource( $f = @popen( ‘perl — E54POCH’, "w" ) )) { @fwrite( $f, ‘eval( pack( "H*", "6368…7d20" ) );eval( pack( "H*", "7573…353b"));’ ); @fflush( $f ); sleep( 1 ); @pclose( $f );… Читать далее »

RRDTool Graphs with Gradient

Захотелось мне странного – чтобы на графике RRD c температурой процессора был градиент вместо простой линии. То, что вы видите выше – результат моих изысканий, изначально график выглядел примерно так: Просто полка и не очень ясно, какая там обстановка, пока не глянешь на цифровые значения. А если учесть наличие других графиков на странице, то не… Читать далее »

Simon says? Cow says!

Говорит и показывает корова cowsay – бесполезный 🙂 перловый скрипт, который выводит заранее напечатанный текст в виде ASCII-картинки говорящей или думающей коровы. И не только коровы, а любого персонажа из заготовленного набора. Оригинальная корова: ~> set M=»Hello, world\!» ~> cowsay $M _______________ < Hello, world! > ————— \ ^__^ \ (oo)\_______ (__)\ )\/\ ||—-w |… Читать далее »