Mọi nguoi giúp mình tý ! - VN-Zoom forum

kingvandon · 06-07-2008, 18:33

Mình muốn tạo dãy số ngãu nhiên để trả lại password cho khách hàng thi làm thế nào vậy kiểu như tạo dãy số ngãu nhiên dể bảo mật đó ?? mail của mình : Lưu ý mình dùng ASP !
thax ! Mọi người !

thienthan · 06-07-2008, 22:18

Code:

Dim cread as String = ""
Function allenglish(ByVal a As UShort) As String
	allenglish0(a)
	allenglish = cread
	Return allenglish
End Function
Private Sub allenglish0(ByVal a As UShort)
	cread = ""
	Do Until Len(cread) = a
		cread = cread + ChrW(ngaunhien(32, 126))
	Loop
End Sub
Function ngaunhien(ByVal a As Integer, ByVal b As Integer) As Integer
	' Initialize the random-number generator.
	Randomize()
	' Generate random value between b and a ( a < b ).
	ngaunhien = CInt(Int((b - a + 1) * Rnd() + a))
	Return ngaunhien
End Function

Đoạn code này mình viết lâu rồi lấy một phần của nó ra.
Phần này tạo các kí tự ngẫu nhiên là các kí tự tiếng anh và kí tự đặc biệt.

kingvandon · 06-07-2008, 23:27

Cảm ơn nhé !

kingvandon · 06-07-2008, 23:28

Mình cho vao trang web lại không được bạn ạ !
khai báo lỗi bạn chỉ mình cụ thể dược không ?

kingvandon · 07-07-2008, 15:04

Da co cau tra loi !
<html>
<title>CodeAve.com(Five Random Letters)</title>
<body bgcolor="#FFFFFF">

<%
dim random_number, random_letter, counter, letters

' begin random function
randomize

' Begin a for next loop
For counter = 1 to 5

' select a number between 26 and 97
random_number = Int(26 * Rnd + 97)

' take the numeric and turn it into a character
random_letter = Chr(random_number)

' Adds the most recent random letter to the letters string
letters=letters & random_letter

' Repeat loop
next

' write the random letters to the browser
response.write letters
%>

<p>

Click <a href="<%= request.servervariables("script_name") %>">here</a> to refresh this page

</body>
</html>

06-07-2008, 18:33	#1
kingvandon Búa Gỗ Tham gia: Jun 2008 Bài: 14 VZD: 771 Điểm: 0/0 bài viết	Mọi nguoi giúp mình tý ! Mình muốn tạo dãy số ngãu nhiên để trả lại password cho khách hàng thi làm thế nào vậy kiểu như tạo dãy số ngãu nhiên dể bảo mật đó ?? mail của mình : Lưu ý mình dùng ASP ! thax ! Mọi người !

Ðiều Chỉnh
Tạo trang in Email trang này
Xếp Bài
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

06-07-2008, 23:27	#3
kingvandon Búa Gỗ Tham gia: Jun 2008 Bài: 14 VZD: 771 Điểm: 0/0 bài viết	Cảm ơn nhé !

06-07-2008, 23:28	#4
kingvandon Búa Gỗ Tham gia: Jun 2008 Bài: 14 VZD: 771 Điểm: 0/0 bài viết	Mình cho vao trang web lại không được bạn ạ ! khai báo lỗi bạn chỉ mình cụ thể dược không ?

07-07-2008, 15:04	#5
kingvandon Búa Gỗ Tham gia: Jun 2008 Bài: 14 VZD: 771 Điểm: 0/0 bài viết	Da co cau tra loi ! <html> <title>CodeAve.com(Five Random Letters)</title> <body bgcolor="#FFFFFF"> <% dim random_number, random_letter, counter, letters ' begin random function randomize ' Begin a for next loop For counter = 1 to 5 ' select a number between 26 and 97 random_number = Int(26 * Rnd + 97) ' take the numeric and turn it into a character random_letter = Chr(random_number) ' Adds the most recent random letter to the letters string letters=letters & random_letter ' Repeat loop next ' write the random letters to the browser response.write letters %> <p> Click <a href="<%= request.servervariables("script_name") %>">here</a> to refresh this page </body> </html>