Пассген
- 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;
- }
pass(8) например создаст комбинацию из 8 символов.