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)))
}
\"uncrackable password\"?? it isnt any information hidden by it. so how can u say its uncrackable. As for the script, this aint very good, like russelreal said the pattern of the script is known. You cannot specify how many chars the pw should be, nor can you use it in a script since there\'s no return.
Usage: $pass_(A-Z|a-z|0-9,len)
len is option. one thing to notice, the lenght of $1- must be longer then len.
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)))
}