[Cascavel-pm] Verificar segurança da senha

[Daniel de Oliveira Mantovani]

Acho que esse módulo faz o que você quer:
Data::Password::Check
http://search.cpan.org/~chisel/Data-Password-Check-0.08/lib/Data/Password/Check.pm

Se você ler a documentação, vai perceber que você pode escolher os testes.

Olha só:
<code>
#!/usr/bin/perl

use strict;
use warnings;

use Data::Password::Check;

my @foo = qw/dainel 32fDs2a dsAdsa1fd dajHi1s2 123456 654341 123456
111111 223344/;

  foreach (@foo) {

    # check a password
    my $pwcheck = Data::Password::Check->check(
        { tests => [ 'length', 'alphanumeric', 'diverse_characters' ],
password => $_ } );

    # did we have any errors?
    if ( $pwcheck->has_errors ) {

        # print the errors
        print( join( "\n", @{ $pwcheck->error_list } ), "\n" );
    }
    else {
        print "Senha segura => $_\n";
    }
}
</code>



2009/9/20 Sammuel Souza <sammuel.souza em gmail.com>:
>
> Ola,
>
> estou eu aqui novamente ;)
>
> como todo sistema via Internet nada melhor que garantir que as senhas que o
> usuário vai escolher seja segura para não ser algo como 123456 111111 223344
> para isso é necessário um checador de senhas, como diz a lista reinventar a
> roda não é fácil!!!
>
> Andei olhando este modulo
> http://search.cpan.org/~bronto/Data-Password-BasicCheck-2.01/BasicCheck.pm porem
> ele requer senha com numero e letras!!!!
>
> Preciso de algo mais simples pois apenas não deixar criar senhas fáceis!
>
> Algum outro modulo???
>
> []'s Sammuel
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
"Deus usa os loucos pra confundir os sábios"
http://mantovanihouse.blogspot.com/
This is my poney:
-------(\_------------_/)-----------
-------)--(----------)--(-----------
------(----(---------)----)----------
-------)----(-------)----(-----------
-------(----(-------)----)-----------
--------\_-(\\.---.//)-_/------------
----------\)' -8--8- '(/--------------
-----------/------------\---------------
----------(--)--------(--)--------------
------------(_c__c_)----------------
----------------------------------------
perl -MLWP::Simple -le 'grep{ print $1 if
/href="(http.+?)"/}split($/,get("http://www.perl.org.br"))'