All pastes #215782 Raw Edit

Mine

public text v1 · immutable
#215782 ·published 2006-10-22 20:19 UTC
rendered paste body
use Math::BigInt;
use warnings;
use strict;
sub permutate { # convert from decimal to some number base fast
        my ($perms,$ref) = @_;
        my @charset = @$ref;
        my $scalars = @charset;
        my $pass = '';
        my $mod;
        while($perms) {
                $mod = $perms % $scalars;
                while($mod == 0) {
                        $perms = int($perms / $scalars);
                        $mod = $perms % $scalars;
                }
                $pass = $charset[$mod] . $pass;
                $perms = int($perms / $scalars);
        }
        return $pass;
}
my ($start,$end) = @ARGV;
my @charset = ("`",'a' .. 'z','0' .. '9');
my $x = Math::BigInt->new($start);
my $y = Math::BigInt->new($end);
my $num = @charset;
for (; $x <= $y; $x++) {
        next if $x % $num == 0;
        print permutate($x, \@charset), "\n";
}