ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Yevgeny Manyashev                    2:5020/400     07 Mar 2002  09:00:49
 To : Dmitry Sergeev
 Subject : Re: сгенерировать пароль   ?
 -------------------------------------------------------------------------------- 
 

 
 Я уже давненько решил такую задачу.
 Вот готовый код:
 
 #!/usr/bin/perl -w
 
 use strict;
 
 my @b = ( 'a'..'z', 0..9 );
 #my @b = ( "A".."Z", "a".."z", "a".."z", 0..9, 0..9, ',', "'", qw{ = - . 
 / ; [ ] } );
 my $n = 7;
 if( $ARGV[ 0 ] && $ARGV[ 0 ] =~ /^\d+$/ )
 {
         $n = $ARGV[ 0 ];
 }
 my $r = join( "", @b[ map{ rand @b }( 1 .. $n ) ] );
 print "Generated switch is $r\n";
 
 __END__
 
 =pod
 
 Прога генерирует и печатает случайную последовательность символов.
 Длина последовательности по умолчанию - 7 символов.
 Чтобы изменить длину, нужно напечатать
         Generator N
 , где N - длина последовательности.
 Используется для генерации паролей и ключей.
 
 =cut
 
 -- 
 
 Best regards.
 
 --- ifmail v.2.15dev5
  * Origin: Sibnet (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    сгенерировать пароль ?   Dmitry Sergeev   06 Mar 2002 23:04:37   Re: сгенерировать пароль ?   Victor Wagner   06 Mar 2002 23:47:41   Re: сгенерировать пароль ?   Yevgeny Manyashev   07 Mar 2002 09:00:49