информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Сетевые кракеры и правда о деле ЛевинаГде водятся OGRы
BugTraq.Ru
Русский BugTraq
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Модель надежности отказоустойчивой... 
 Google по-тихому включила изоляцию... 
 25 лет FreeBSD 
 Microsoft покупает GitHub 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / theory
Имя Пароль
ФОРУМ
все доски
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 Crack-me? На hackzone.ru выкладывался пример как-то... но без solution и т.п. 21.05.01 10:49  Число просмотров: 613
Автор: Nik Статус: Незарегистрированный пользователь
<"чистая" ссылка>
#!/usr//bin/perl

s*^*QJwEw=QGv:vt=PGwEvvvEwt=OGUtMGUt=N\@:tKG:A=O> G:GNb,&+ 1%" Z)2" j&zz,+*
&&s^$^ Y+1&E["+0,/0%&- [y*-y&\$+!=Pt:S=QtUSQM%11-RGG444F"##F,/\$Gz)2"/&zz^,
s@$@,+F%1*)=QSF=QSUUt=PSF:t=OSJ>=NSL>=NtUUGNtUUG=OtGPtG=@,y,=:-|"-9,\n"-
,s,&,\\"\\,g,s,;,/"/,g,s,",===,g,s,(\d),' 'x$1,eg,print $_;
nik@host2:~/www/t$ ./3.pl
Invalid password
nik@host2:~/www/t$ cat 3.pl
#!/usr/bin/perl -i=v'p@/)iaen$kcBhrj.#]{l([2s+,tXC
sub s{$;[++$#{;}]||=s;.*$;$_[$[];&&$;&&$_}&s('MG-U8B!?,3!R<\'=D>R@D'.
'+"PD?CUE=F%L*"1^/7$@<R1^/3%?6S(C7UUS+$`C+M"1^/7YS?EQD?EPD?G-G+`HD?'.
'BDI/7YS/2Y<)#\D/3US+"0]/3`L)"P];W)D)M"8L)"QA;F0D.STD?F]R(\')E=\'5R'.
';CLD+#TW,"LH)"P*)35\?#4I+#LW+20[/M7YS/BX^)"T];W)D)"8L+"0]*STD7STH)'.
'"U</C<P*3\H)"TM)"PL*3IH97@D)MBPL"F-H<CYG<V5X(&%N9"!R971U<FX[*"0]+3'.
'TR*F]R9"!C:&]P)#LI)C$U?H\'PQ,#`J=6YP86-K(\'$[3#LL"G!A8VL@<3M(*CLL<'.
'7$L)#M<,"P[?0@!T');&s('50749:&6^^KuS93-LQG*QKuS93-LQuQK4V&f65;;foW'.
'_1EEY`O0O0}IRR0M0P74V&f650}>|3: 93-LQG*QKDo&SQQK50;');eval"y;7|Q95".
"^`&3>S0L\\-GVWDEMPO:_IY4RK6%Z;$^I;;";eval;
$|=1;
unless (($t = _10rpwd($ARGV[0])) && $t>15) {
print"Invalid password\n";
} else {
print"Valid until: ".Datestamp($t)."\n";
}

sub Datestamp {
my ($mday,$mon,$year) = (localtime(shift|time))[3,4,5];

my @m = ('January','February','March','April','May','June','July',
'August','September','October','November','December');

"$m[$mon] $mday, ".(1900+$year);
}

или такое:

#!/usr//bin/perl

s*^*QJwEw=QGv:vt=PGwEvvvEwt=OGUtMGUt=N\@:tKG:A=O> G:GNb,&+ 1%" Z)2" j&zz,+*
&&s^$^ Y+1&E["+0,/0%&- [y*-y&\$+!=Pt:S=QtUSQM%11-RGG444F"##F,/\$Gz)2"/&zz^,
s@$@,+F%1*)=QSF=QSUUt=PSF:t=OSJ>=NSL>=NtUUGNtUUG=OtGPtG=@,y,=:-|"-9,\n"-
,s,&,\\"\\,g,s,;,/"/,g,s,",===,g,s,(\d),' 'x$1,eg,print $_;


еще видел с вызовом утилит внешних с параметрами запакованных текстов, а потом eval - ну это совсем не интересно ;)
<theory> Поиск 
  • Как делаются такие проги Perl Crack-me? На hackzon... - Nik 21.05.01 10:49 [613]








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


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