5 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
my @website = split "", $ARGV[0];
my $num = @chars = (a..z, A..Z, 0..9);
my $length = scalar(@website);
my $print = "";
my $zaehl = "";
foreach(@website) {
$print = $print.$website[$zaehl];
&wdh($length-1, $print);
$length--;
$zaehl++;
}
sub wdh {
for ($i=0;$i<20;$i++) {
system('clear');
print @_[1];
for ($wd=0;$wd < @_[0];$wd++) {
$passwd = join '', @chars[eval "int(rand($num-1))," x 1];
print $passwd;
}
print "\n";
}
}
Quoteschwerer wird nur den timer zu setzten das das auslöst müsste gehen
müsst ich aber auch erst mal nachlesen.
5 Einträge, 1 Seite |