Re: Minimal password checking: a summary

If you're doing rotations, you should probably also do reversals.

sub passcheck2 {
  my ($u, $p) = splice @_, 2;
  "password ok" eq passcheck( $u, $p, @_ ) and
  "password ok" eq passcheck( $u, reverse($p), @_ )
}
[download]

Comment on Re: Minimal password checking: a summary Download Code

Replies are listed 'Best First'.
Re: Re: Minimal password checking: a summary by bronto (Priest) on Jul 30, 2003 at 08:59 UTC
I thought about it yesterday and implemented in my nightly programming session `:-)` I am going to post the new code later Ciao! `--bronto` Update: posted!, with a test script, too. The very nature of Perl to be like natural language--inconsistant and full of dwim and special cases--makes it impossible to know it all without simply memorizing the documentation (which is not complete or totally correct anyway). --John M. Dlugosz	[reply]

Replies are listed 'Best First'.

Re: Re: Minimal password checking: a summary
by bronto (Priest) on Jul 30, 2003 at 08:59 UTC

I thought about it yesterday and implemented in my nightly programming session :-)

I am going to post the new code later

Ciao!
--bronto

Update: posted!, with a test script, too.

The very nature of Perl to be like natural language--inconsistant and full of dwim and special cases--makes it impossible to know it all without simply memorizing the documentation (which is not complete or totally correct anyway).
--John M. Dlugosz

[reply]