ANTICHAT - Показать сообщение отдельно

А вот на перл:
PHP код:

		
			
#!/usr/bin/perl



$m = 16;

$x = 8; 

$y = 92; 



my $pass = "";

$n = 1;



@mass = ( "1",  "2",  "3",  "4",  "5",  "6",  "7",  "8",  "9",  "0",    # 10

          "a",  "b",  "c",  "d",  "e",  "f",  "g",  "h",  "i",  "j",    # 20

          "k",  "l",  "m",  "n",  "o",  "p",  "q",  "r",  "s",  "t",    # 30

          "u",  "v",  "w",  "x",  "y",  "z",                            # 36

          "A",  "B",  "C",  "D",  "E",  "F",  "G",  "H",  "I",  "J",    # 46

          "K",  "L",  "M",  "N",  "O",  "P",  "Q",  "R",  "S",  "T",    # 56

          "U",  "V",  "W",  "X",  "Y",  "Z",                            # 62

          "`",  "-",  "=", "\\",  ";",  "'",  ",",  ".",  "/",  "~",    # 72

          "!",  "@",  "#", "\$",  "%",  "^",  "&",  "*",  "(",  ")",    # 82

          "_",  "+",  "|",  "{",  "}",  ":", "\"",  "<",  ">",  "?",    # 92

        );



while ( $n <= $m ) {

  $k = 0;

  $pass = "";



  while ( $k < $x ) {

    srand;

    $b = int(rand($y));

    $pass = "$pass".$mass[$b];

    $k++;

  }



  print "$n\t\t$pass\n";

  $n++;

}