///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;
}
0 63 0
Без комментариев...