آموزش Excel

[مهندس بیاتسرپرست]

مهندس بیات

ساخت پسورد تصادفی در اکسس

ساخت پسورد تصادفی در اکسس : در این مطلب آموزشی قصد دارم تا شما را با یک برنامه تولید پسورد تصادفی آشنا کنم. از طریق این برنامه می توان به تعداد دلخواه اقدام به ایجاد پسورد با تعداد کاراکتر (طول) مشخص نمود. در صورتی که بخواهید به تعداد انبوه اقدام به تولید پسورد تصادفی نمائید می توانید از حلقه ها در محیط برنامه نویسی اکسس استفاده کنید و پسوردهای تولید شده را در یک جدول ذخیره و مورد استفاده قرار دهید. برای ساخت این برنامه کاربردی مراحل زیر را به ترتیب انجام دهید:

ابتدا یک ماژول در محیط VBA ایجاد کنید و کدهای زیر را در درون آن قرار دهید:

Visual Basic

Public Function CreateRandomPassword(strlen As Integer, Optional seed As Variant) As String On Error GoTo Err_CreateRandomPassword Dim i As Integer, j As Integer Dim strSource As String Dim strTarget As String 'دانلود کدهای کاربردی در اکسس 'www.mrplanner.ir '*** used with the RND() function to return ' a random number Randomize strSource = "12345678901234567890" & _ "abcdefghijklmnopqrstuvwxyz" & _ "ABCDEFGHIJKLMNOPQRSTUVWXYZ" strTarget = "" For i = 1 To strlen '*** select a character position at random j = Int((Len(strSource) - 1) * Rnd + 1) strTarget = strTarget & Mid(strSource, j, 1) Next '*** when the Target String is complete, pass it back CreateRandomPassword = strTarget Exit_CreateRandomPassword: Exit Function Err_CreateRandomPassword: MsgBox Err.Description Resume Exit_CreateRandomPassword End Function

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Public Function CreateRandomPassword(strlen As Integer, Optional seed As Variant) As String          On Error GoTo Err_CreateRandomPassword Dim i As Integer, j As Integer Dim strSource As String Dim strTarget As String 'دانلود کدهای کاربردی در اکسس 'www.mrplanner.ir '*** used with the RND() function to return '    a random number     Randomize       strSource = "12345678901234567890" & _                 "abcdefghijklmnopqrstuvwxyz" & _                 "ABCDEFGHIJKLMNOPQRSTUVWXYZ"     strTarget = ""       For i = 1 To strlen           '*** select a character position at random             j = Int((Len(strSource) - 1) * Rnd + 1)             strTarget = strTarget & Mid(strSource, j, 1)     Next          '*** when the Target String is complete, pass it back     CreateRandomPassword = strTarget   Exit_CreateRandomPassword:     Exit Function   Err_CreateRandomPassword:         MsgBox Err.Description         Resume Exit_CreateRandomPassword End Function

در مرحله بعدی یک فرم بسازید و دو عدد TextBox را به نام های PasswordLength جهت وارد کردن طول پسورد و دیگری را به نام txtPassword برای نمایش پسورد ساخته شده روی فرم قرار دهید.

در مرحله آخر یک دکمه روی فرم قرارداده و در رویداد OnClick آن کدهای زیر را قرار دهید:

Visual Basic

On Error GoTo Err_Command5_Click If IsNull(Me.PasswordLength) Then MsgBox "طول پسورد را وارد کنيد" Else Me.txtPassword = CreateRandomPassword(Me.PasswordLength) End If Exit_Command5_Click: Exit Sub Err_Command5_Click: MsgBox Err.Description Resume Exit_Command5_Click

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

On Error GoTo Err_Command5_Click         If IsNull(Me.PasswordLength) Then         MsgBox "طول پسورد را وارد کنيد"     Else         Me.txtPassword = CreateRandomPassword(Me.PasswordLength)     End If   Exit_Command5_Click:     Exit Sub   Err_Command5_Click:     MsgBox Err.Description     Resume Exit_Command5_Click

تذکر: بجای اسم دکمه که در اینجا command5 هست اسم دکمه خود را جایگذین کنید!

فرم را دخیره کنید و آنرا اجرا کنید. حالا با وارد کردن طول پسورد و زدن دکمه ساخته شده در فرم نرم افزار پسوردهای تصادفی را برای شما تولید و به نمایش در خواهد آورد.