تولید پسورد تصادفی در vb6
#1
Note 
[VB]Function genAdvRndString(ByRef length As Integer) As String
Randomize()
Dim allowableChars As String
allowableChars = "!@#$%^&*()?><1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"

Dim i As Integer
For i = 1 To length
genAdvRndString = genAdvRndString & Mid$(allowableChars, Int(Rnd() * Len(allowableChars) + 1), 1)
Next
End Function[/VB]

پاسخ
ایجاد موضوع جدید   پاسخ به موضوع  

موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
Note سورس قطع کردن اتصال به اینترنت با رفرش کردن moeinmq 3 957 14-08-2014 ساعت 20:23
آخرین ارسال: vc3000
Note برنامه پیدا کردن پسورد کاربران در ویندوز SOFTAFZAR 0 618 25-01-2013 ساعت 22:25
آخرین ارسال: SOFTAFZAR
Note سورس ذخیره کردن یوزر نیم و پسورد کاربر (فوری) H3sam 1 711 25-07-2012 ساعت 19:40
آخرین ارسال: Daniel

کاربرانِ درحال بازدید از این موضوع:   1 مهمان