ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Babanov                    2:5020/1609.69 03 Sep 2001  18:53:22
 To : Konstantin Stupnik
 Subject : Re: japh :)
 -------------------------------------------------------------------------------- 
 

 
 >>>>>>>>>>>>>>>>>>> Begin of japh5.pl <<<<<<<<<<<<<<<<<<<
 
 #! /usr/bin/perl
 *{A^"'"}=sub{return substr(++$q,-1)};for(map{chr(${'%'}++)}
 split'','!'x127){next unless/[A-Za-z]/;$_="1\%{$_},Japh_$_;
 2Japh_$_;34{56{},7;}39{8007=~/.+?_0.)/x),7);5'';};++\$x;#";
 s/\d/(join'',map{$_^"\x3"}split'',{f()=>wjf,f()=>'sb`hbdf',
 
 f()=>pva,f()=>WJFKBPK,f()=>qfwvqm,f()=>aofpp,f()=>pkjew,f()
 =>sqjmw,f()=>'EFW@K##',f()=>'+'}->{$&}).' '/egx;eval('exit'
 
 ^ztrb^'zzzz ');}$c{$e{$P{$e{r.' '.''}}}.$a{$h{$r{l.' '}}}}.
 $k{e}.$r{','}unless $t{$a{$J{$v}.$u{'s'}.$t{' '}}.$n{o}.h};
 
 >>>>>>>>>>>>>>>>>>>> End of japh5.pl <<<<<<<<<<<<<<<<<<<<
 
 У-у-у, нагородил-то =8) Так, пожалуй, будет попонятнее,
 если кто захочет разобраться:
 
 >>>>>>>>>>>>>>>>>>> Begin of japh5t.pl <<<<<<<<<<<<<<<<<<<
 
 *{'A' ^ q[']} = sub {
   return substr(++$q, -1);
 };
 
 foreach $_(map {chr ${'%'}++} split (//, '!' x 127, 0)) {
   next unless /[A-Za-z]/;
   $_ = '1%{' . $_ . '},Japh_' . $_ . ";\n2Japh_" . $_
         . q[;34{56{},7;}39{8007=~/.+?_0.)/x),7);5'';};++$x;#];
   s[\d][
     join('', map({$_ ^ "\cC"} split(//, {
       f(), 'wjf', f(), 'sb`hbdf', f(), 'pva', f(), 'WJFKBPK',
       f(), 'qfwvqm', f(), 'aofpp', f(), 'pkjew', f(), 'sqjmw',
       f(), 'EFW@K##', f(), '+'
 
     }->{$&}, 0))) . ' ';
 
   ]egx;
   eval('exit' ^ 'ztrb' ^ 'zzzz ');
 }
 
 $c{
   $e{
     $P{
       $e{ 'r' . ' ' . '' }
     }
   }
   .
   $a{
     $h{
       $r{ 'l' . ' ' }
     }
   }
 }
 .
 $k{'e'} . $r{','}
       unless $t{
         $a{
           $J{$v} . $u{'s'} . $t{' '}
         }
         . $n{'o'} . 'h'
       };
 
 >>>>>>>>>>>>>>>>>>>> End of japh5t.pl <<<<<<<<<<<<<<<<<<<<
 
 IMHO здесь больше стараний зашифровать надпись, чем показать технику.
 Hу, на то оно и IMHO чтобы его можно было свободно игнорировать :)
 
 >>>>>>>>>>>>>>>>>>> Begin of sig4x.pl <<<<<<<<<<<<<<<<<<<
 
 print${$}if(($$=reverse+join+undef,reverse(($$=q)jsua thtonlyp yykcah ,))
 =~/((??{'.?'x+$?++}))/g))=~s>y|(\b\w)>$1?($$=!$$..!$$)?$&:uc$1:q yery>eg)
 
 >>>>>>>>>>>>>>>>>>>> End of sig4x.pl <<<<<<<<<<<<<<<<<<<<
 
 CYa!!!
 
 ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ   ЪДДДД 2:5020/1609.69 ДДДї
 іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER   і babanov@earthlink.net і
 ... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
 ---
  * Origin: Our governor can beat up your governor! (2:5020/1609.69)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    japh :)   Konstantin Stupnik   03 Sep 2001 09:41:16   Re: japh :)   Alexander Babanov   03 Sep 2001 18:53:22