Generate Strong Random Password

Hi All,
I am just working around create random strong password in ColdFusion which gives combination of Upper case, lowercase, digit and special characters. I just come out with function which I like to share with you.

 <cfscript> function generateRandom(lenofpass) {  var tNumeric=2;  var tSpecial=1;  var tUppder =2;  var tLower = lenofpass - (tNumeric + tSpecial + tUppder);  var charset = ArrayNew(1);  var generatedPass = "";  charset[1] = "qwertyuiopasdfghjklzxcvbnm";  charset[2] = uCase(charset[1]);  charset[3] =  "~!@##$%^&*?";  charset[4] = "1234567890";  for(i=1;i<=tLower;i=i+1)  {   generatedPass = generatedPass & mid(charset[1],randRange(1,len(charset[1])-1)+1,1);  }  for(i=1;i<=tUppder;i=i+1)  {   insertAt = randRange(2,len(generatedPass)-1);     generatedPass = left(generatedPass,insertAt-1) & mid(charset[2],randRange(1,len(charset[2])-1)+1,1) & right(generatedPass,len(generatedPass)-insertAt+1);  }  for(i=1;i<=tNumeric;i=i+1)  {   insertAt = randRange(2,len(generatedPass)-1);     generatedPass = left(generatedPass,insertAt-1) & mid(charset[4],randRange(1,len(charset[4])-1)+1,1) & right(generatedPass,len(generatedPass)-insertAt+1);  }  for(i=1;i<=tSpecial;i=i+1)  {   insertAt = randRange(2,len(generatedPass)-1);     generatedPass = left(generatedPass,insertAt-1) & mid(charset[3],randRange(1,len(charset[3])-1)+1,1) & right(generatedPass,len(generatedPass)-insertAt+1);  }  return generatedPass; }</cfscript>