Kategoriler :
Genel Motosiklet Komik Security System Windows Siyasi Tatar Yemek Mutfak HTML Javascript Müzik CSS ASP Yaşam Sağlık SQL VBScript

Online: 2 ziyaretçi
69755 kere ziyaret edildi

ASP, VBScript Random Password Generator Etiketler : ASP,VBScript

Eklenme tarihi : 12.01.2010 19:33:42 Güncellenme tarihi : 12.01.2010 19:36:48

<%
arr_l = Array(_
	"A","B","C","D","E","F","G","H",_
	"J","K","L","M","N","P","Q","R",_
	"S","T","U","V","W","X","Y","Z",_
	"a","b","c","d","e","f","g","h",_
	"i","j","k","m","n","p","q","r",_
	"s","t","u","v","w","x","y","z"_
)
arr_n = Array(_
	"2","3","4","5","6","7","8","9"_
)

Function letters(n)
	output = ""
	For i = 1 To n
		Randomize Timer
		k = arr_l(Int((UBound(arr_l)-LBound(arr_l)+1) * Rnd + (LBound(arr_l))))
		output = output & k
	Next
	letters = output
End Function

Function numbers(n)
	output = ""
	For i = 1 To n
		Randomize Timer
		k = arr_n(Int((UBound(arr_n)-LBound(arr_n)+1) * Rnd + (LBound(arr_n))))
		output = output & k
	Next
	numbers = output
End Function

Response.Write letters(4) & numbers(3)
%>

4 kere görüntülendi...
Yorum Ekle