ANTICHAT — форум по информационной безопасности, OSINT и технологиям

#! /usr/bin/perl     @chr=('',0..9,a..z,A-Z,'$',' '); # выставляем набор символов для паролей   # ВАЖНО первый символ не убирать    @pas=(0,0,0,0,0,0,0,0,1); # массив символизирующий начальное положение счетчика    print"Insert min length or press enter by 1->";  $min=<STDIN>;  chomp$min;  if($min eq''){$min=1;}  print"Insert max length->";  $max=<STDIN>;  chomp$max;  foreach(@chr){$sum++;}  foreach(@pas){$dll++;}    # выставляем начально значение счетчика согласно мин длине пароля  for ($i = $dll-1; $i >=$dll-$min; $i--) {  @pas[$i]=1;  }  print "All symbols->$sum\n";  print "Cliker length->$dll";    open sdf,">pass.txt";  ### соственна осн цикл генерации  while(length($str)<=$max){  for ($i = $dll-1; $i >= 0; $i--) {  if(@pas[$i]>($sum-1)){@pas[$i-1]++;  @pas[$i]=@pas[$i]-($sum-1);}  }  $str="@chr[@pas[0]]@chr[@pas[1]]@chr[@pas[2]]@chr[@pas[3]]@chr[@pas[4]]@chr[@pas[5]]@chr[@pas[6]]@chr[@pas[7]]@chr[@pas[8]]";  if(@pas[$dll-1]==$sum){next;} # эта строчка исправляет небольшую колизию при составлении пароля  @pas[$dll-1]++;     print sdf "$str\n";  }  close sdf;