On 03.05.2009, Heinz Diehl wrote:
Zum Herstellen des ASCII-Schluessels, der auch ab und an mal wechselt, benutze ich einen Perlscript, den ich mir extra dafuer erstellt habe (ich habe ab und an recht viel mit Routern zu tun), und der dafuer /dev/random anzapft. Bei genuegend Festplattenaktion und Mausbewegung spuckt er ca. 10 Schluessel in 1-2 min. aus.
Da ich mehrfach via Mail gefragt wurde, hier die paar Zeilen, bitte sehr. Das Array "@range" enthaelt den Bereich der verwendeten Zeichen (ASCII-Wert dezimal) und kann auch von Perl-Unkundigen einfach angepasst werden, wenn es so nicht behagt. Benutzung auf eigenes Risiko blabla... #!/usr/bin/perl -Tw use strict; my $randkey; my $iter = 1; for ($iter=1; $iter < 11; $iter++) { $randkey = &gen_randkey; if ($randkey) { print "$iter: $randkey\n"; } else { print "Something went wrong\n"; } } sub gen_randkey { my $keylength = 63; my $len = shift; $len = $keylength unless $len; my @range; @range = (33..126); my $id = &read_dev_random($len); return unless $id; $id =~ s/(.)/chr($range[ord($1) % $#range+1])/esg; return $id; } sub read_dev_random { my $len = shift; unless ($len) { print STDERR "No parameter given\n"; return; } eval { open(RANDOM, "/dev/random") or die; }; if ($@) { print STDERR "Unable to open the random device\n"; return; } my $random; unless (read(RANDOM, $random, $len) == $len) { print STDERR "Unable to read from the random device\n"; return; } close(RANDOM); return $random; } -- Um die Liste abzubestellen, schicken Sie eine Mail an: opensuse-de+unsubscribe@opensuse.org Um eine Liste aller verfuegbaren Kommandos zu bekommen, schicken Sie eine Mail an: opensuse-de+help@opensuse.org