Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hàm] Demo_Tạo ra mật khẩu ngẫu nhiên (2 loại)
#1
Đôi lúc bạn thấy nhàm chán phải suy nghĩ để tạo ra mật khẩu cho mình hoặc ai đó.
Có khi cần phải tạo ra một mật khẩu khác nhau cho vài trăm hay vài nghìn người thì sẽ ra sau.


Vâng đoạn code sau sẽ giúp các bạn tạo ra mật khẩu ấy.

Ở đây minh sẽ trình bày 2 loại Demo để tạo ra mật khẩu đi kèm với nó là 2 hàm riêng biệt.

Ở bài này xin trình bày 1 loại đầu tiên, đó là: lấy tất cả các ký tự trên bàn phím của mình, còn cái kế tiếp thì chỉ lấy 33 chữ cái + chữ số thôi.

[Hình: hinhtaopassngaunhien1.jpg]

Demo: Xem file đính kèm.

Code:
Mã PHP:
Public Function Taopassngaunhien(Dodaimatkhau As Integer) As String
    Dim RetVal 
As String
    Dim Max 
As Integer
    Dim Min 
As IntegerAs Integer
    Max 
126
    Min 
48
    Randomize Timer
    
For 1 To Dodaimatkhau
    RetVal 
RetVal Chr(Int((Max Min 1) * Rnd Min))
    Next i
    Taopassngaunhien 
RetVal
End 
Function 


Khi cần thì alo:

Mã PHP:
Taopassngaunhien(8

Trong đó: số 8 là độ dài ký tự cần tạo ra.


File đính kèm
.zip   Demo_Tao pass ngau nhien (Loai 1).zip (Kích cỡ: 14.96 KB / Tải về: 33)
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn bvchauthanh
#2
Đoạn code thứ 2 về tạo mật khẩu ngẫu nhiên lấy 33 chữ cái và 10 số.


[Hình: hinhtaopassngaunhien2.jpg]

Demo: Xem file đính kèm.

Code:
Mã PHP:
Public Function Taopassngaunhien2(Dodaicantao As Integer) As String
    Dim sTmp 
As String
    sTmp 
"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
    Dim iRndPos As Integer
    Randomize
    
For 1 To Dodaicantao
        RndPos 
Int(Len(sTmp) * Rnd 1
        Taopassngaunhien2 Taopassngaunhien2 Mid$(sTmpRndPos1
    Next i
End 
Function 


Khi cần thì alo:

Mã PHP:
Taopassngaunhien2(8

Trong đó: số 8 là độ dài ký tự cần tạo ra.
[/quote]


File đính kèm
.zip   Demo_Tao pass ngau nhien (Loai 2).zip (Kích cỡ: 15.36 KB / Tải về: 27)
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn bvchauthanh , zinzin8x


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hàm] Demo Hàm mở mọi loại file ( Access) maidinhdan 7 1,738 26-05-16, 10:53 AM
Bài mới nhất: lmthu

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ