随机密码代码.txt

1、Private Sub Timer1_Timer()a = Year(Now)b = Month(Now)c = Day(Now)d = Hour(Time)e = Minute(Time)If b = 3 Thenm = b * 2ElseIf 4 = b = 6 Thenm = b * 4ElseIf 7 = b = 9 Thenm = b * 3Elsem = b * 5End IfEnd IfEnd IfIf c = 10 Thenn = c * 2 - 10ElseIf 11 = c = 20 Thenn = c * 3 - 6Elsen = c * 3 - 7End IfEnd I

2、fIf d = 1 Theno = d * 2 + 2ElseIf d = 2 Theno = d * 2 + 3ElseIf d = 3 Theno = d * 2 + 1ElseIf d = 4 Theno = d * 2 + 5ElseIf d = 5 Theno = d + 6ElseIf d = 6 Theno = d + 5ElseIf d = 7 Theno = d + 3ElseIf d = 8 Theno = d + 6ElseIf d = 9 Theno = d * 3 + 1ElseIf d = 10 Theno = d * 3 + 4ElseIf d = 11 Then

3、o = d * 3 + 9ElseIf d = 12 Theno = d * 3 + 7ElseIf d = 13 Theno = d * 2 + 1ElseIf d = 14 Theno = d * 2 + 6ElseIf d = 15 Theno = d * 2 + 8ElseIf d = 16 Theno = d * 2 + 5ElseIf d = 17 Theno = d * 3 + 5ElseIf d = 18 Theno = d * 3 + 2ElseIf d = 19 Theno = d * 3 + 1ElseIf d = 20 Theno = d * 3 + 4ElseIf d

4、 = 21 Theno = d * 3 + 1ElseIf d = 22 Theno = d * 3ElseIf d =23 Theno =d * 3 - 6ElseIf d = 24 Theno = d * 3 - 8Elseo = d * 3 + 1End IfEndIfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd Ifp = eIf p = 10 Thenl = a * 3 +

5、 1000ElseIf 11 = p = 20 Thenl = a * 6 + 2024ElseIf 21 = p = 50 Thenl = a * 5 + 500Elsel = a * 7 + 1245End IfEnd IfEnd IfIf p = 1 Thenk = o + p * 100 + n * 10000 + l * 1000000 + m * 100000000ElseIf p = 2 Thenk = p + o * 100 + l * 10000 + m * 1000000 + n * 100000000ElseIf p = 3 Thenk = p + m * 100 + n

6、 * 10000 + l * 1000000 + o * 100000000ElseIf p = 4 Thenk = p + p * 100 + o * 10000 + m * 1000000 + l * 100000000ElseIf p = 5 Thenk = p + o * 100 + l * 10000 + m * 1000000 + n * 100000000ElseIf p = 6 Thenk = p + l * 100 + n * 10000 + m * 1000000 + o * 100000000ElseIf p = 7 Thenk = l + p * 100 + n * 1

7、0000 + m * 1000000 + o * 100000000ElseIf p = 8 Thenk = p + o * 100 + l * 10000 + n * 1000000 + m * 100000000ElseIf p = 9 Thenk = m + o * 100 + n * 10000 + p * 1000000 + l * 100000000ElseIf p = 10 Thenk = p + l * 100 + n * 10000 + m * 1000000 + o * 100000000ElseIf p = 11 Thenk = n + o * 100 + l * 100

8、00 + m * 1000000 +p * 100000000ElseIf p = 12 Thenk = p + o * 100 + n * 10000 + m * 1000000 + l * 100000000ElseIf p = 13 Thenk = p + o * 100 + n * 10000 + l * 1000000 + m * 100000000ElseIf p = 14 Thenk = p + n * 100 + l * 10000 + m *1000000 + o * 100000000ElseIf p = 15 Thenk = m + o * 100 + n * 10000

9、 + p * 1000000 + l * 100000000ElseIf p = 16 Thenk = n + o * 100 + p * 10000 + m * 1000000 + l * 100000000ElseIf p = 17 Thenk = o + l * 100 + n * 10000 + m * 1000000 + p * 100000000ElseIf p = 18 Thenk = p + m * 100 + l * 10000 + n * 1000000 + o * 100000000ElseIf p = 19 Thenk = p + o * 100 + l * 10000

10、 + m * 1000000 + n * 100000000ElseIf p = 20 Thenk = o + n * 100 + l * 10000 + p * 1000000 + m * 100000000ElseIf p = 21 Thenk = l + p * 100 + n * 10000 + m * 1000000 + o * 100000000ElseIf p = 22 Thenk = p + o * 100 + l * 10000 + m * 1000000 + n * 100000000ElseIf p =23 Thenk =p + o * 100 + m * 10000 +

11、 n * 1000000 + l * 100000000ElseIf p = 24 Thenk = m + p * 100 + n * 10000 + l * 1000000 + o * 100000000ElseIf p = 25 Thenk = p + l * 100 + n * 10000 + m * 1000000 + o * 100000000ElseIf p = 26 Thenk = p + o * 100 + n * 10000 + l * 1000000 + m * 100000000ElseIf p = 27 Thenk = p + o * 100 + l * 10000 +

12、 m * 1000000 + n * 100000000ElseIf p = 28 Thenk = l + o * 100 + n * 10000 + m * 1000000 + p * 100000000ElseIf p = 29 Thenk = m + o * 100 + n * 10000 + p * 1000000 + l * 100000000ElseIf p = 30 Thenk = p + o * 100 + m * 10000 + n * 1000000 + l * 100000000ElseIf p = 31 Thenk = p + m * 100 + n * 10000 +

13、 o * 1000000 + l * 100000000ElseIf p = 32 Thenk = p + n * 100 + o * 10000 + m * 1000000 + l * 100000000ElseIf p = 33 Thenk = p + l * 100 + n * 10000 + m * 1000000 + o * 100000000ElseIf p = 34 Thenk = m + o * 100 + n * 10000 + l * 1000000 + p * 100000000ElseIf p = 35 Thenk = p + l * 100 + o * 10000 +

14、 m * 1000000 +n * 100000000ElseIf p = 36 Thenk = l + p * 100 + n * 10000 + m * 1000000 + o * 100000000ElseIf p = 37 Thenk = l + p * 100 + o * 10000 + n * 1000000 + m * 100000000ElseIf p = 38 Thenk = m + p * 100 + o * 10000 + l *1000000 + n * 100000000ElseIf p = 39 Thenk = p + o * 100 + n * 10000 + m

15、 * 1000000 + l * 100000000ElseIf p = 40 Thenk = l + o * 100 + p * 10000 + n * 1000000 + o * 100000000ElseIf p = 41 Thenk = l + m * 100 + p * 10000 + o * 1000000 + n * 100000000ElseIf p = 42 Thenk = l + o * 100 + n * 10000 + p * 1000000 + m * 100000000ElseIf p = 43 Thenk = p + l * 100 + n * 10000 + m

16、 * 1000000 + o * 100000000ElseIf p = 44 Thenk = l + o * 100 + n * 10000 + m * 1000000 + p * 100000000ElseIf p = 45 Thenk = p + o * 100 + l * 10000 + m * 1000000 + n * 100000000ElseIf p = 46 Thenk = l + o * 100 + m * 10000 + p * 1000000 + n * 100000000ElseIf p =47 Thenk =l + o * 100 + p * 10000 + m *

17、 1000000 + n * 100000000ElseIf p = 48 Thenk = p + l * 100 + n * 10000 + m * 1000000 + o * 100000000ElseIf p = 49 Thenk = m + o * 100 + n * 10000 + l * 1000000 + p * 100000000ElseIf p = 50 Thenk = m + o * 100 + l * 10000 + p *1000000 + n * 100000000ElseIf p = 51 Thenk = p + o * 100 + l * 10000 + m *

18、1000000 + n * 100000000ElseIf p = 52 Thenk = l + p * 100 + n * 10000 + o * 1000000 + m * 100000000ElseIf p = 53 Thenk = p + l * 100 + n * 10000 + m * 1000000 + o * 100000000ElseIf p = 54 Thenk = n + l * 100 + o * 10000 + p * 1000000 + m * 100000000ElseIf p = 55 Thenk = p + l * 100 + n * 10000 + m *

19、1000000 + o * 100000000ElseIf p = 56 Thenk = p + l * 100 + n * 10000 + o * 1000000 + m * 100000000ElseIf p = 57 Thenk = l + o * 100 + n * 10000 + m * 1000000 + p * 100000000ElseIf p = 58 Thenk = p + o * 100 + m * 10000 + l * 1000000 + n * 100000000ElseIf p =59 Thenk =p + m * 100 + n * 10000 + l * 10

20、00000 + o * 100000000ElseIf p = 60 Thenk = l + p * 100 + n * 10000 + m * 1000000 + o * 100000000Elsek = m + o * 100 + n * 10000 + p * 1000000 + l * 100000000End IfEnd IfEndIfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEndIfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEndIfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd If