lol. it removed my escape\'s..
This should solve it.
alias pass_ {
if (!$2) { tokenize 32 $1 10 }
var %b = 0,%a
if (A-Z isincs $1) { %b = $regsubex($str(1,26),/(1)/g,$chr($calc(64 + \\\\n))) }
if (a-z isincs $1) { %b = %b $+ $regsubex($str(1,26),/(1)/g,$chr($calc(96 + \\\\n))) }
if (0-9 isin $1) { %b = %b $+ $regsubex($str(1,10),/(1)/g,$chr($calc(47 + \\\\n))) }
if (%b = 0) { %b = $1 }
%a = $regsubex(%b,/(.)/g,$regml($r(1,$regml(0))))
noop $regex(%a,/(?=(.{ $+ $2 $+ }))/g)
return $regml($r(1,$regml(0)))
}