Skip to content

Instantly share code, notes, and snippets.

@asteres
asteres / score_password.pl
Created May 31, 2019 17:56
score password
#!/usr/local/bin/perl
sub score_password {
my ( $passwd ) = @_;
my $strength;
my $lc;
my $c;
my $count;
my $max_a_run;
my $a_run;

Keybase proof

I hereby claim:

  • I am asteres on github.
  • I am asher (https://keybase.io/asher) on keybase.
  • I have a public key ASBFFy9JsTQvB_kTkOjMQ1I3SL8OL9rWl5Q5q9qixZvIAQo

To claim this, I am signing this object: