Foro - Perl en Español

Hola, ¿que hay de nuevo?

Estoy teniendo un rompecabezas con una cosita que quiero hacer. Quiero hacer un tipo de BruteForce a una variable, que se le pida al usuario un límite en la longitud de la palabra. Y si tenemos en $secreto="hola";, y el usuario a puesto un límite en la longitud de la palabra de 4 caracteres, que el programa se encargue de hacer un recorrido desde a-z y 0-9 en todas sus combinaciones posibles en 4 caracteres que fue puesto por el usuario. Y cuando se tope que tal variable es igual al valor que se encuentra en $secreto, muestre un "conseguido". Tengo más o menos la idea de lo que quiero hacer, pero no tengo ni idea de cómo crear la función que me haga un recorrido por todos los valores alfanuméricos y no alfanuméricos.

Gracias.

Puedes empezar a investigar por aquí...



Salida:

Código: Seleccionar todo

a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
aa
ab
ac
ad
ae
af
ag
ah
ai
aj
ak
al
am
an
ao
ap
aq
ar
as
at
au
av
aw
ax
ay
az
ba
bb
bc
bd
be
bf
bg
bh
bi
bj
bk
bl
bm
bn
bo
bp
bq
br
bs
bt
bu
bv
bw
bx
by
bz
ca
cb
cc
cd
ce
cf
cg
ch
ci
cj
ck
cl
cm
cn
co
cp
cq
cr
cs
ct
cu
cv
cw
cx
cy
cz
da
db
dc
dd
de
[...]