GenRndStr()

GenRndStr().ahk

F1::MsgBox %  GenRndStr( 10 ) 
Return 

GenRndStr( len )
{
    loop % (122, d="~")
        cStr .= chr( (i:=a_index)>32&&i<60 ? i : i>59&&i<91 ? i : i>93&&i<125 ? i : "" ) d
    cStr:=regexreplace(cStr, d d)

    while ( strlen(nStr)<len )
    {
        sort, cStr, % "Random D" d
        nStr .= ((v:=substr(regexreplace(cStr,d),1,10))~="\d"
	&&v~="[!-/]"&&v~="[:-@]"&&v~="[^-`]"&&v~="[A-Z]"&&v~="[a-z]"
	&&!(v~="[A-Z]{2}")&&!(v~="[a-z]{2}")&&!(v~="\d{2}")) ? v : ""
    }

    return substr(nStr,1,len)
}