ComplexPass("whatEver")
function ComplexPass($password)
dim $temp,$counter,$complexity[3]
 for $counter=1 to 255
 $temp=join(split($password,chr($counter)),"")
  if $temp<>$password
   select
    case $counter>47 and $counter<58 $complexity[0]=" "
    case $counter>64 and $counter<91 $complexity[1]=" "
    case $counter>96 and $counter<123 $complexity[2]=" "
    case 1 $complexity[3]=" "
   endselect
  endif
 next
$complexPass=len(join($complexity,""))
endfunction