getpsw.asp

私密信息系统-PrivNote System v20080719 很好用的大家试试看

<%
Function gen_key(digits)

'Create and define array
dim char_array(76)
char_array(0) = "0"
char_array(1) = "1"
char_array(2) = "2"
char_array(3) = "3"
char_array(4) = "4"
char_array(5) = "5"
char_array(6) = "6"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"
char_array(10) = "A"
char_array(11) = "B"
char_array(12) = "C"
char_array(13) = "D"
char_array(14) = "E"
char_array(15) = "F"
char_array(16) = "G"
char_array(17) = "H"
char_array(18) = "I"
char_array(19) = "J"
char_array(20) = "K"
char_array(21) = "L"
char_array(22) = "M"
char_array(23) = "N"
char_array(24) = "▲"
char_array(25) = "P"
char_array(26) = "Q"
char_array(27) = "R"
char_array(28) = "S"
char_array(29) = "T"
char_array(30) = "U"
char_array(31) = "V"
char_array(32) = "W"
char_array(33) = "X"
char_array(34) = "Y"
char_array(35) = "Z"
char_array(36) = "a"
char_array(37) = "b"
char_array(38) = "c"
char_array(39) = "d"
char_array(40) = "e"
char_array(41) = "f"
char_array(42) = "g"
char_array(43) = "h"
char_array(44) = "i"
char_array(45) = "j"
char_array(46) = "k"
char_array(47) = "l"
char_array(48) = "m"
char_array(49) = "n"
char_array(50) = "o"
char_array(51) = "p"
char_array(52) = "q"
char_array(53) = "r"
char_array(54) = "s"
char_array(55) = "t"
char_array(56) = "u"
char_array(57) = "v"
char_array(58) = "w"
char_array(59) = "x"
char_array(60) = "y"
char_array(61) = "z"

char_array(62) = "~"
char_array(63) = "!"
char_array(64) = "@"
char_array(65) = "#"
char_array(66) = "$"
char_array(67) = "^"
char_array(68) = ";"
char_array(69) = "*"
char_array(70) = "▼"

randomize

do while len(output) < digits
num = char_array(Int((70 - 0 + 1) * Rnd + 0))
output = output + num
loop

gen_key = output
End Function
%>