Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Password Solver 2

by apl (Monsignor)
on Jul 09, 2009 at 13:16 UTC ( [id://778566]=note: print w/replies, xml ) Need Help??


in reply to Password Solver 2

In addition to what others said, if you really needed
my %mapping = ( "a" => "1", "b" => "2", "c" => "3", "d" > "4", "e" => "5", "f" => "6", "g" => "7", "h" => "8", "i" => "9", "j" => "10", "k" => "11", "l" => "12", "m" => "13", "n" => "14", "0" => "15", "p" => "16", "q" => "17", "r" => "18", "s" => "19", "t" => "20", "u" => "21", "v" => "22", "w" => "23", "x" => "24", "y" => "25", "z" => "26"
you could replace it with (untested)
my $new_ch = ( $old_ch - 'a' ) + 1;
or
my $new_ch = chr( ord( $old_ch ) - 96 );
Perl golfers, and those more confident than me, can reduce itr further.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://778566]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others lurking in the Monastery: (5)
As of 2024-03-28 17:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found