Mailinglist Archive: opensuse-de (781 mails)

[Heinz Diehl <htd@xxxxxxxxxxxxxxxxx>]

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@xxxxxxxxxxxx
Um eine Liste aller verfuegbaren Kommandos zu bekommen, schicken
Sie eine Mail an: opensuse-de+help@xxxxxxxxxxxx