إنشاء كلمة مرور عشوائية؟

مغلق

بدأه عبدالله جابر شقليه في 28 أبريل 2004 · 3 رد · 429 مشاهدة · في منتدى تصميم صفحات الويب

#128 أبريل 2004 في 20:45 صاحب الموضوع

السلام عليكم

في الكود التالي، سوف يقوم بعمل كلمة سر عشوائية يتم توليدها.

<%


Dim Password
Dim RandomPassword
Dim nCharacters



Dim array_cod(35)
array_cod(0) = "0"
array_cod(1) = "1"
array_cod(2) = "2"
array_cod(3) = "3"
array_cod(4) = "4"
array_cod(5) = "5"
array_cod(6) = "6"
array_cod(7) = "7"
array_cod(8) = "8"
array_cod(9) = "9"
array_cod(10) = "a"
array_cod(11) = "b"
array_cod(12) = "c"
array_cod(13) = "d"
array_cod(14) = "e"
array_cod(15) = "f"
array_cod(16) = "g"
array_cod(17) = "h"
array_cod(18) = "i"
array_cod(19) = "j"
array_cod(20) = "k"
array_cod(21) = "l"
array_cod(22) = "m"
array_cod(23) = "n"
array_cod(24) = "o"
array_cod(25) = "p"
array_cod(26) = "q"
array_cod(27) = "r"
array_cod(28) = "s"
array_cod(29) = "t"
array_cod(30) = "u"
array_cod(31) = "v"
array_cod(32) = "w"
array_cod(33) = "x"
array_cod(34) = "y"
array_cod(35) = "z"

for cod=0 to 9  
	MaxCod = 35 
	MinCod = 0  
	Randomize   

	RandomPassword = CStr(RandomPassword & array_cod(Int(Rnd * MaxCod) - MinCod))
next

Password = RandomPassword


response.write "الباسورد: <b>" & Password & "</b>"

%>

أي ملاحظات أو استفسار، او هناك بعض الأكواد الغير واضحة،أنا على استعداد توضيحها لكم.

مع تحياتي.

MCP

MCTS:.Net Framework 2.0: Web Applications

MCPD:Web Developer

http://www.arabmoheet.net

#229 أبريل 2004 في 17:10

كود اخر

<%@ Language = VBScript %>
<% Option Explicit %>
<% Response.Buffer = True %>
<%
' Declare Variables
Dim intCounter, intDecimal, strPassword
' Create a 6-Character random password
For intCounter = 1 To 6
    ' Generate a random number between 65 and 90.
    ' ASCII A=65, Z=90
    Randomize
    intDecimal =  Int((26 * Rnd) + 1) + 64

    ' Create random Password String
    strPassword = strPassword & Chr(intDecimal)
Next
' Output the random password
Response.Write "Random Password = " & strPassword
%>