Nautilus: конвертируем изображения в JPEG или PNG

topng
topng

Иногда приходится конвертировать изображения с одного формата в другой, основные это JPEG и PNG.
Добавим сценарии в контекстное меню Nautilus при клике правой кнопки на файле.
Continue reading «Nautilus: конвертируем изображения в JPEG или PNG»

Получаем местонахождение через GPS-инфо в изображении

gps_exif
gps_exif

Многие мобильные телефоны оснащенные GPS навигаторами вставляют информацию о местонахождении в фотографию(т.е. в EXIF).
На написание этого скрипта подвигло выступление одного хакера создавшего сайт мониторинга местоположения через сервис Twitter’a.
В общем для работы скрипта необходимо установить модуль Image::EXIF (sudo cpan -i Image::EXIF), возможно, также придется установить и другой пакет, если первый не будет собираться (sudo cpan -i YAML возможно еще и sudo apt-get install libexif-dev), на выходе получаем собственно сами координаты и название места, где было сделано фото. Continue reading «Получаем местонахождение через GPS-инфо в изображении»

Curl & Perl & Web-Money

Сидя в субботний вечер, от нефиг делать накатал такой «парсер» для узнавания курса вывода 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 HTTP DoS

slowloris
slowloris

Эксперт в области информационной безопасности Роберт Хансен (Robert Hansen), известный под ником RSnake, сконструировал инновационный инструмент, пригодный для проведения атак типа «Denial of Service» нового поколения. Творение Хансена, получившее имя Slowloris, использует обнаруженную уязвимость в архитектуре серверов Apache и других популярных веб-серверов.

В отличие от DoS-атак «старой школы», которые позволяли подвесить любой веб-сайт путем бомбардировки сервера пакетами данных и возникающих как следствие перегрузки каналов связи, Slowloris позволяет добиться тех же результатов путем отправки относительно небольшого количества пакетов. Continue reading «Slowloris HTTP DoS»

Psi password decoder

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";