///perl
pass(8) например создаст комбинацию из 8 символов.

                        
sub pass {

$sim = $_[0];

@arr = ('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z','1','2','3','4','5','6','7','8','9','0');

$a=0;

$pass = "";

$raz = @arr;

while($a<$sim) {

$pass .=@arr[rand($raz)];

$a++;

}

return $pass;

}