使用Perl生成随机密码

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

#!/usr/bin/perl

use strict;

use warnings;

use Getopt::Std;

sub show_help {

  print "Useage:\n";

  print "newp -aAnsl\n";

  print "-a\t\t the password contains lower case letters(a-z)\n";

  print "-A\t\t the password contains upper case letters(A-Z)\n";

  print "-n\t\t the password contains numerical character(0-9)\n";

  print "-s\t\t the password contains special symbols\n";

  print "-u\t\t the password contains only unique characters\n";

  print "-l length\t set the password length(default: 6)\n";

  exit 0;

}

sub show_version {

  print "Version: 0.2.1 Changed the default option: -l 9 -Ana. 2016-4-15\n";

  exit 0;

}

### main program

use vars qw($opt_a $opt_A $opt_h $opt_l $opt_n $opt_s $opt_u $opt_v);

getopts('aAhl:nsuv');

&show_version if $opt_v;

&show_help if $opt_h;

my $len = $opt_l || 9;  # default length 9

my $opt_cnt = 0;

my @rand_str = ();

# store all the characters

my @num = qw(0 1 2 3 4 5 6 7 8 9);

my @ABC = qw(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);

my @abc = qw(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);

# my @sym = qw(! " $ % & ' * + - . / : ; < = > ? @ [ \ ] ^ _ ` { | } ~);

my @sym = qw(! $ % & * + - . / : ; < = > ? @ [ ] ^ _ ` { | } ~); # no " ' \

unshift (@sym, '(', ')', '#', ','); # to prevent perl's complains or warnings.

my @all_sym = (@num, @ABC, @abc, @sym);

my @ch_src = ();

if ((!$opt_a) && (!$opt_A) && (!$opt_n) && (!$opt_s)) {

  $opt_a++;

  $opt_A++;

  $opt_n++;

}

if ($opt_a) {

  $opt_cnt++;

  my $i = rand @abc;

  unshift @rand_str, $abc[$i];

  if ($opt_u) {

    if ($i>=1) {

      $abc[$i-1] = shift @abc;

    } else {

      shift @abc;

    }

  }

  unshift (@ch_src, @abc);

}

if ($opt_A) {

  $opt_cnt++;

  my $i = rand @ABC;

  unshift @rand_str, $ABC[$i];

  if ($opt_u) {

    if ($i>=1) {

      $ABC[$i-1] = shift @ABC;

    } else {

      shift @ABC;

    }

  }

  unshift (@ch_src, @ABC);

}

if ($opt_n) {

  $opt_cnt++;

  my $i = rand @num;

  unshift @rand_str, $num[$i];

  if ($opt_u) {

    if ($i>=1) {

      $num[$i-1] = shift @num;

    } else {

      shift @num;

    }

  }

  unshift (@ch_src, @num);

}

if ($opt_s) {

  $opt_cnt++;

  my $i = rand @sym;

  unshift @rand_str, $sym[$i];

  if ($opt_u) {

    if ($i>=1) {

      $sym[$i-1] = shift @sym;

    } else {

      shift @sym;

    }

  }

  unshift (@ch_src, @sym);

}

if ($len < $opt_cnt) {

  print "The count of characters[$len] should not be smaller " .

     "than count of character types[$opt_cnt].\n";

  exit -1;

}

if ($opt_u && $len > (@ch_src + @rand_str)) {

  print "The total number of characters[".(@ch_src + @rand_str).

     "] which could be contained " .

     "in password is smaller than the length[$len] of it.\n";

  exit -1;

}

foreach (1..$len-$opt_cnt) {

  my $i = rand @ch_src;

  unshift @rand_str, $ch_src[$i];

  if ($opt_u) {

    if ($i>=1) {

      $ch_src[$i-1] = shift @ch_src;

    } else {

      shift @ch_src;

    }

  }

}

foreach (1..$len) {

  my $i = rand @rand_str;

  print $rand_str[$i];

  if ($i>=1) {

    $rand_str[$i-1] = shift @rand_str;

  } else {

    shift @rand_str;

  }

}

print "\n";

exit 0;