#!/usr/bin/perl @list = (0..9, a..z, A..Z,'!','@','#'); #@list = (0..9, a..z, A..Z,'!','@','#','$','%','^','&','*','(',')'); $range = 71; for ( 1..10 ) { $pass .= $list[int(rand($range))]; } print "$pass\n";
#!/usr/bin/perl @list = (0..9, a..z, A..Z,'!','@','#'); #@list = (0..9, a..z, A..Z,'!','@','#','$','%','^','&','*','(',')'); $range = 71; for ( 1..10 ) { $pass .= $list[int(rand($range))]; } print "$pass\n";
留言