topng
Иногда приходится конвертировать изображения с одного формата в другой, основные это JPEG и PNG.
Добавим сценарии в контекстное меню Nautilus при клике правой кнопки на файле.
more »
gps_exif
Многие мобильные телефоны оснащенные GPS навигаторами вставляют информацию о местонахождении в фотографию(т.е. в EXIF).
На написание этого скрипта подвигло выступление одного хакера создавшего сайт мониторинга местоположения через сервис Twitter’a.
В общем для работы скрипта необходимо установить модуль Image::EXIF (sudo cpan -i Image::EXIF), возможно, также придется установить и другой пакет, если первый не будет собираться (sudo cpan -i YAML возможно еще и sudo apt-get install libexif-dev), на выходе получаем собственно сами координаты и название места, где было сделано фото. more »
Сидя в субботний вечер, от нефиг делать накатал такой «парсер» для узнавания курса вывода WMZ на одном сайте.
1 | curl http://ukrwebmoney.com/rates.js | perl -ne 'if (/out(.*?)([\d+][\.][0-9]{2})/) { print "Вывод WMZ: ".$2." UAH\n"; }' > rate && clear && cat rate && rm -f rate |
slowloris
Эксперт в области информационной безопасности Роберт Хансен (Robert Hansen), известный под ником RSnake, сконструировал инновационный инструмент, пригодный для проведения атак типа «Denial of Service» нового поколения. Творение Хансена, получившее имя Slowloris, использует обнаруженную уязвимость в архитектуре серверов Apache и других популярных веб-серверов.
В отличие от DoS-атак «старой школы», которые позволяли подвесить любой веб-сайт путем бомбардировки сервера пакетами данных и возникающих как следствие перегрузки каналов связи, Slowloris позволяет добиться тех же результатов путем отправки относительно небольшого количества пакетов. more »
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | #!/usr/bin/perl sub decode_password { my ($pw, $jid) = @_; my ($cpw, $n, @pw) = ('', 0, split //, $pw); while (@pw) { my $x; $x += hex (shift @pw) * 4096; $x += hex (shift @pw) * 256; $x += hex (shift @pw) * 16; $x += hex (shift @pw); $cpw .= chr ($x ^ ord(substr $jid, $n, 1)); $n++; $n = $n >= length $pw ? 0 : $n; } $cpw } $jid = $ARGV[0]; my $cpw = decode_password ($ARGV[1], $ARGV[0]); print "$jid : $cpw\n"; |
