Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
Как делаются такие проги Perl Crack-me? На hackzone.ru выкладывался пример как-то... но без solution и т.п. 21.05.01 10:49
Автор: 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 - ну это совсем не интересно ;)
|
|
|
подробно о проекте
Анализ криптографических сетевых...
