#!/usr/bin/perl
use strict;
use warnings;
my $i;
my $j;
for ($i = 0;$i < 800000000;$i++) {
     my $pass = "";
     my @liste = ("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z");
     my $nombre = int(rand(20));
     for ($j = 0;$j < 20;$j++) {
          if ($j == $nombre) {
               $pass .= int(rand(10));
          }
          else {
               $pass .= $liste[int(rand(26))];
          }
     }

     open my $logfile, ">>", "pass.lst" or die "Could not open pass.lst: $!";
     print $logfile $pass."\n";
     print $i."\n";
}
