• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Tạo ngẫu nhiên password

Các thủ thuật liên quan đến xử lý chuỗi và thời gian
vinhphuoc91
Thành viên tích cực
Thành viên tích cực
Bài viết: 146
Ngày tham gia: T.Tư 26/03/2008 5:52 pm
Đến từ: Phú Yên
Been thanked: 15 time
Liên hệ:

Tạo ngẫu nhiên password

Gửi bàigửi bởi vinhphuoc91 » T.Tư 26/03/2008 6:26 pm

Thủ thuật: Tạo ngẫu nhiên password
Tác giả: Sưu tầm
Mô tả: Hàm sau sẽ giúp bạn tạo password ngẫu nhiên.


Bạn tạo 1 module và thêm vào đoạn code sau :

Mã: Chọn hết

  1. Public Function Gen_Rand_Password(PassLength As Integer) As String
  2. Dim RetVal As String
  3. Dim Max As Integer
  4. Dim Min As Integer
  5. Max = 126
  6. Min = 48
  7. Randomize Timer
  8. If PassLength < 8 Then
  9. Gen_Rand_Password = "error: invalid length"
  10. End If
  11. For I = 1 To PassLength
  12. RetVal = RetVal & Chr(Int((Max - Min + 1) * Rnd + Min))
  13. Next I
  14. Gen_Rand_Password = RetVal
  15. End Function


Trong Form tạo 1 Command Button và nhập vào đoạn mã sau

Mã: Chọn hết

  1. Private Sub Command1_Click()
  2. MsgBox Gen_Rand_Password(7)
  3. End Sub

(Đoạn mã sẽ hiện thị 1 mật khẩu dài 7 kí tự)
---------------------------------------------------


My website : http://tinthoitrang.net

Hình đại diện của người dùng
thuongem
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 70
Ngày tham gia: T.Sáu 28/03/2008 1:31 am
Đến từ: Vĩnh Long
Has thanked: 2 time
Liên hệ:

Tạo ngẫu nhiên password

Gửi bàigửi bởi thuongem » T.Năm 03/04/2008 12:50 pm

Thủ thuật: Tạo ngẫu nhiên password
Tác giả: Alexander Levakov, Russia, 2000
Mô tả: Hàm sau sẽ giúp bạn tạo password ngẫu nhiên.

Đoạn mã này lụm trong chương trình cryptor sữa lại chút xíu thành cái hàm, không hiểu hàm này với hàm trên có gì khác biệt , anh nào biết giải thích dùm :D

Mã: Chọn hết

  1. Private Function RandomPass(dodai As String)
  2.     Dim PasChar As String
  3.     Dim i As Integer
  4.  
  5.     For i = 1 To dodai
  6. Label1:        NumRnd = Int(90 * Rnd + 1)
  7.         Select Case NumRnd
  8.         Case 48 To 57, 65 To 90, 97 To 122
  9.             PasChar = PasChar & Chr(NumRnd)
  10.         Case Else
  11.             GoTo Label1
  12.         End Select
  13.     Next i
  14.    
  15.     RandomPass = PasChar
  16. End Function
tôi thương chỉ mình em, em biết không ? ;;) :-*


Quay về “[VB] Chuỗi và Thời gian”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách