Passwörter dynamisch generieren...: Suche nach der schnellsten Methode (Allgemeines zu Perl)

renee

2004-05-03 12:49

User since
2003-08-04
14371 Artikel
ModeratorIn

Hi!

Wie kann ich möglichst schnell Passwörter generieren?? Das sollte nach Möglichkeit keine 10 Sekunden dauern...

Die Passwörter sollen zwischen 5 und 8 Buchstaben und haben... Sonderzeichen sollen keine drin vorkommen...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

dominicn

2004-05-03 13:28

User since
2003-08-08
327 Artikel
BenutzerIn
[default_avatar]

[quote=renee,03.05.2004, 10:49]Hi!

Wie kann ich möglichst schnell Passwörter generieren?? Das sollte nach Möglichkeit keine 10 Sekunden dauern...

Die Passwörter sollen zwischen 5 und 8 Buchstaben und haben... Sonderzeichen sollen keine drin vorkommen...[/quote]
passwoerter ohne sonderzeichen? was n das. habe grad keine zeit, poste dann code

Crian

2004-05-03 13:48

User since
2003-08-04
5870 Artikel
ModeratorIn

Vielleicht einfach per Zufall Buchstaben/Zahlen generieren?

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

renee

2004-05-03 14:33

User since
2003-08-04
14371 Artikel
ModeratorIn

[quote=dominicn,03.05.2004, 11:28]passwoerter ohne sonderzeichen? was n das. habe grad keine zeit, poste dann code[/quote]
also ich meint damit kein öüä... ein §$! darf schon drin vorkommen...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

format_c

2004-05-03 14:35

User since
2003-08-04
1706 Artikel
HausmeisterIn

So vielleicht?

Code: (dl )

my @allowedchars = ('a'..'z',0..9,'A'..'Z');
for (1..8) {
  print $allowedchars[rand(scalar( @allowedchars - 1 ))];
}

Gruß alex

Effizente Linuxshell

Gast Gast

2004-05-03 14:49

so geht's auch:

Code: (dl )

sub make_pwd {
    my $pwd = "";
    my @char_set = ('a' .. 'k', 'm' .. 'n', 'p' .. 'z', '2' .. '9');
        
    $pwd .= $char_set[int(rand($#char_set + 1))] for 0 .. 7;
    $pwd;
}

renee

2004-05-03 14:50

User since
2003-08-04
14371 Artikel
ModeratorIn

Danke, das hilft mir erstmal weiter... (hätte ich auch alleine drauf kommen müssen ;-) )

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/