პაროლის გენერატორის მაგალითი ASP- ში

თუ თქვენ აკეთებთ პროგრამას, სადაც საჭიროა პაროლის შექმნა, ASP– ში კოდის ეს ნაწილი ძალიან სასარგებლო იქნება.

დააკოპირეთ შემდეგი კოდი და შეინახეთ იგი სახელით GeneratorPassword.asp

'ASP პაროლის გენერატორის მაგალითი

ფუნქცია gen_con (max_num)

dim gen_array (36)
'სიმბოლოების მასივი 

gen_array (0) = "0"
gen_array (1) = "1"
gen_array (2) = "2"
gen_array (3) = "3"
gen_array (4) = "4"
gen_array (5) = "5"
gen_array (6) = "6"
gen_array (7) = "7"
gen_array (8) = "8"
gen_array (9) = "9"
gen_array (10) = "ა"
gen_array (11) = "ბ"
gen_array (12) = "გ"
gen_array (13) = "დ"
gen_array (14) = "ე"
gen_array (15) = "ვ"
gen_array (16) = "გ"
gen_array (17) = "თ"
gen_array (18) = "მე"
gen_array (19) = "კ"
gen_array (20) = "კ"
gen_array (21) = "ლ"
gen_array (22) = "მ"
gen_array (23) = "n"
gen_array (24) = "o"
gen_array (25) = "p"
gen_array (26) = "q"
gen_array (27) = "რ"
gen_array (28) = "s"
gen_array (29) = "t"
gen_array (30) = "შენ"
gen_array (31) = "v"
gen_array (32) = "w"
gen_array (33) = "x"
gen_array (34) = "y"
gen_array (35) = "z"

შემთხვევითი
'ჯაჭვის წარმოქმნა სიგრძის მიღწევამდე

გააკეთე ხოლო len (გამომავალი) num = gen_array (Int ((35 - 0 + 1) * Rnd + 0))
გამომავალი = გამომავალი + რიცხვი
მარყუჟი

'ფუნქცია აბრუნებს შედეგს = გამომავალს

gen_con = გამომავალი
დასრულების ფუნქცია

'გამომავალი ფუნქცია, რომელიც იღებს მაქსიმალურ მნიშვნელობას

თუ მოითხოვეთ. ფორმა ("NUMGEN") <> "" შემდეგ
intGEN = CInt (მოთხოვნა. ფორმა ("NUMGEN"))
a = 0
გააკეთე ხოლო <500
საპასუხო. დაწერე gen_con (intGEN) & "
"
a = a + 1
მარყუჟი
დაასრულე თუ


%>

 o = ასო "o"
 O = დიდი ასო "O"
 0 = ნულოვანი
 ლ = ასო "ლ"
 1 = ნომერი 1