ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Yuriy Kaminskiy                      2:5020/517.21  18 Jun 2001  02:13:33
 To : Igor Ivlev
 Subject : Re: Зашифровать файл
 -------------------------------------------------------------------------------- 
 

 
 >>>>> On 08:43 14/6/2001, Igor Ivlev <2:467/116.9> writes:
  AG> $data =~ tr/./. ^ $password/g  ?
  II> Если я тебя правильно понял, то попробуй
  II> my (@password = qw(m y c o o l p a s s);
  II> my $i=0;
  II> $data =~ tr/(.)/($1+$password[&func])/g;
 
  Мда. Хоть бы попробовал, прежде чем писать подобный бред.
  Правильный вариант я уже кидал. Занимает он ровно одну строчку, в
 отличие от :)
 
  II> sub func{
  II> if ($i=10){
  II> $i=0;
  II> }else {$i++};
  II> return $i;
  II> }
  II> Идею я подкинул, дальше думай сам.
 
 -- 
 Yuriy Kaminskiy.
 --- Gnus v5.2.25/XEmacs 19.14
  * Origin: C2B8 59EA 497A D6F6 2640  0E49 D84A AADA EAC (2:5020/517.21@fidonet)
 
 

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