ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Stupnik                   2:5020/400     03 Sep 2001  09:41:16
 To : All
 Subject : japh :)
 -------------------------------------------------------------------------------- 
 

 Hi!
 
 Вот:
 #! /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};
 --
 Best regards,
   Konstantin.
 Brainbench MVP for perl.
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.Ru (2:5020/400)
 
 

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

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