sslug-teknik team mailing list archive

["Erwin S. Andreasen" <erw@xxxxxx>]

On Sat, 6 Feb 1999, Juri Jensen wrote:

> Hej alle,
> 
> 1. Jeg har lagt mærke til at Get2net har en bestemt måde deres
> pop-passwords er bygget op. Det må være fordi de bliver lavet automatisk af
> et program. Er der nogen der kender et sådan...?

Hvordan ser deres passwords ud? Her er fx. noget Perl kode der lavet noget
tilfaeldig tal/bogstavsraekke - den bruger /dev/random som er en rimelig
god tilfaeldighedsgenerator - se i Linux kernel dokumentationen for
hvorfor. Evt. kan du bruge /dev/urandom som er mindre sikker men
hurtigere.

Gem det i fx genpassword og bruge ./genpasswd 10 for at lave 10 password,
eller ./genpassword 10 20 for at lave 10 passwords som er 20 bogstaver
lange.

Det er saa det ukrypterede password der kommer ud.

Du kan evt. ogsaa aendre paa de tilladte bogstaver ved at aendre @letters
arrayet.


#!/usr/bin/perl
@letters = ('a'.. 'z', 'A' .. 'Z', 0 .. 9);
$len = 8 unless $len = $ARGV[1];

open(R, "/dev/random") or die;

$count = 1 unless $count = $ARGV[0];

foreach $n (0 .. $count-1) {
	foreach (1 .. $len) {
		sysread (R, $x, 1) or die;
		print $letters[ord(substr($x, 0, 1)) % ($#letters+1)];
	}
}
close (R);
print "\n";


-- 
==============================================================================
Erwin Andreasen   Herlev, Denmark <erw@xxxxxx>          UNIX System Programmer
<URL:http://www.andreasen.org>              <*>         (not speaking for) DDE
==============================================================================