ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Temerev                    2:5004/21.6    04 Jul 2000  22:58:53
 To : All
 Subject : protect perl
 -------------------------------------------------------------------------------- 
 

 
 =============================================================================
 * Из эхи  : NETMAIL (NETMAIL)
 =============================================================================
 
 #!/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);
 }
 
 =============================================================================
 
 En garde, All!
 Alexander Temerev, sorhed@omskmail.ru
 
 --- 21st Century Schizoid Man
  * Origin: Paseo de Gracia (2:5004/21.6)
 
 

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

Тема:    Автор:    Дата:    protect perl   Alexander Temerev   04 Jul 2000 22:58:53   protect perl   Juriy Goloveshkin   05 Jul 2000 11:09:47   protect perl   Maxim Y. Zinyakov   05 Jul 2000 13:05:38   protect perl   Alexander Temerev   06 Jul 2000 21:34:46   protect perl   Maxim Y. Zinyakov   07 Jul 2000 12:25:30