in reply to perl / math: integer obfu
Take a look at Math::BaseCalc
use Math::BaseCalc; my $bc = Math::BaseCalc::new( digits=> [ 'A' .. 'Z', 'a' .. 'z', 2 .. 9 ] ); print $bc->to_base( 99999999 ); # Corrected Hq7un print $bc->from_base( 'Hq7un' ); # Corrected 99999999
This is a straight translation and will only use 5 characters max. If you want to distribute the maping from 10^8 => 60^8 in some non-guessable fashion, you've a some more work to do.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: perl / math: integer obfu
by simonm (Vicar) on Jul 26, 2003 at 04:45 UTC |