Firstly, create 2 new txt files in your mIRC Directory named 'numa' & 'alt'
For the txt file 'alt' you can add any alt characters that you think would be useful in a password and for the txt file 'numa' add all of the shift number characters.
Once the mIRC script is in your remotes, type /gen.pw
It'll open a custom window and generate a random, uncrackable password. This is my first window script so please don't be harsh ;)
alias gen.pw {
if ($window(PwdGenerator) == $null) {
window -a @PwdGenerator -1 -1 -1 -1
aline @PwdGenerator 3Password generator created by Syntax of irc.bahajainc.com
aline @PwdGenerator -
}
set %generated.pw $rand(a,z) $+ $rand(0,9) $+ $read(numa.txt) $+ $rand(0,9) $+ $rand(a,z) $+ $read(alt.txt) $+ $rand(0,24) $+ $rand(g,z) $+ $rand(g,z) $+ $read(numa.txt) $+ $rand(0,9) $+ $rand(a,g) $+ $rand(0,4) $+ $read(alt.txt)
aline @PwdGenerator 4Generating password ..
timer 1 3 aline @PwdGenerator %generated.pw
timer 1 3 unset %generated.pw
}
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)))
}
heh, I\'d say thats rediculous, because now the pattern is pretty much known,
$regex(%pass,/[a-z]\d.+\d\D.+\d[g-z].+\d[a-g]\d.+/Si) :x
But other then the never changing pattern dats a cool script :D
You could actually pass through a random number a random amount of times the amount of times would be the length of the outcome string, while each random number will represent either numeric or alphabetic, which would ouput a COMPLETELY random password thus being much more hard to steal