برای برناتون پسورد بذارید

[john smithair]

به نام ایزد منان
با سلام خدمت دوستان
با اطمینان می تونم بگم که جزء اولین چیزهایی که یک برنامه نویس دوست داره یاد بگیره
اینه که بتونه یک برنامه بنویسه که برای انجام مثلا کار a و یا اجرای برنامش پسورد بخواد خوب یکی از ساده ترین راه های نوشتن پسورد رو من برای اون هایی
که تا حالا یاد نگرفتن می زارم . امیدوارم که مفید واقع شود

    Dim a, b, c, d As String

        b = GetSetting("myproject", "setting", "first", 12445)

        If b <> 1 Then

            a = InputBox("enter first password", "get setting")

            SaveSetting("myproject", "Settings", "Pass", a)

            SaveSetting("myproject", "setting", "first", "1")

            MsgBox("exit and run the program again")

            End

        ElseIf b = 1 Then

            c = InputBox("Enter Password", "Enter Administrator Password")

            d = GetSetting("myproject", "Settings", "Pass")

            If c <> d Then

                MsgBox("Wrong password")

                End

            ElseIf c = d Then

                Me.Show()

            End If

        End If

من در این برنامه محل دریافت داده رو inputbox در نظر گرفتم شما میتونید ازtextboxویا هرچیزدیگری استفاده کنید

[kablayi]

جالب بود ...
میگم حالا اگه بخوای پسورد رو عوش کنی چیکار میکنی ...

[touraj]

دقیقاً! برای تغییر پسورد چه باید کرد؟

[john smithair]

بچه ها ببخشید من تو امتحانات هستم دیر دیر میان ولی خوب اگه می خواید پسورد رو عوض کنید خلی ساده اس با دستور savesetting میتونید بگید که عبارت رو تغییر بده مثل این کد

  SaveSetting("myproject", "Settings", "Pass", b)

البته دقت کنید که باید خوب یه جایی براش درست کنید که بتون پسورد رو تغییر بده.
مثلا یک textbox و متن درونش رو b تعریف کنید البته میتونید هرچی دلتون خواست قرار بدید ولی تو کد هم باید تغییر بدین.
خوشحالم که مفید واقع شد. حداقل برای افراد کمی.

[john smithair]

سلام هر چند بر این عقیده ام که نباید با سورس به کسی کمک کرد ولی خوب چون اولین پست اموزشیمه این سورس رو براش میزارم
http://upload.iranblog.com/1/1211826310.zip
انشا ء الله مفید واقع بشه

[VirGil]

میشه یکم در مورد کد های این برنامه توضیح بدید؟

[parsavb]

با عرض پوزش لازم دونستم تا مطالبی رو عرض کنم
این روش بیشتر برای تشخیص اینکه برنامه یا فرمی برای اولین بار اجرا شده یا نه مورد استفاده قرار می گیره و روش جالبی برای پسورد گذاری روی برنامه هاتون نیست چون براحتی می شه از طریق رجیستری به پسورد برنامه دست پیدا کرد حتی اگه کد گذاری هم بشه باز هم قابل دست یابی هست به نظره من بهتره دوستان از روشهای مطمئن تری استفاده کنند

[msh_gold]

با سلام ببخشيد دوستان ميشه يه روش خوب و كاملا مطمئن برا ي پسورد گذاري روي برنامه معرفي كنيد . با تشكر از تمامي كساني كه در اين سايت زحمت مي كشند.

[arsalansalar]

کدت از نظر آموزشی عالی هست ولی از لحاظ تجاری نه!
ولی با این حال دستت در نکنه

[Hshirdel]

لطفاً کامپوننت دات نت را برای من بفرستید hshirdel@yahoo.com

[mostafaaa]

یکی دیگه از اشکالات این روش اینه که با Restore کردن سیستم تنظیمات رجیستری نیز به حالت اول بر میگرده .یعنی میتونی سیستم رو به تاریخی برگردونی که روی برنامت پسوورد نبوده.
در هر صورت یکی از روشهای متداول ذخیره Username & password نگهداری اونها به صورت Hash شده توی دیتابیس هستش. و اگه تو دیتابیسهای نمونه .net مثل ASPUSERS نگاه کنید میبینید که از این روش استفاده کرده. البته انکار نمی کنم که این روش هم خالی از اشکال نیست. با این حال به مثالش توجه کنید.

    ' Set a new password for the user.

      Private Sub btnSetPassword_Click(ByVal sender As  _

          System.Object, ByVal e As System.EventArgs) Handles _

          btnSetPassword.Click

          ' Open the database.

          Dim conn As OleDbConnection = GetDbConnection()

  

          ' Delete any existing record.

          Dim query As String

          Dim cmd As New OleDbCommand

          query = "DELETE FROM Passwords WHERE UserName='" & _

              txtUserName.Text & "'"

          cmd = New OleDbCommand(query, conn)

          cmd.ExecuteNonQuery()

  

          ' Insert the new record.

          query = "INSERT INTO Passwords VALUES ('" & _

              txtUserName.Text & "', '" & _

              HashPassword(txtPassword.Text) & "')"

          cmd = New OleDbCommand(query, conn)

          cmd.ExecuteNonQuery()

  

          ' Close the connection.

          conn.Close()

          conn.Dispose()

  

          MessageBox.Show("Ok")

      End Sub

  

[barrai]

سلام هر چند بر این عقیده ام که نباید با سورس به کسی کمک کرد ولی خوب چون اولین پست اموزشیمه این سورس رو براش میزارم
http://upload.iranblog.com/1/1211826310.zip
انشا ء الله مفید واقع بشه

سایت فیلتره میشه مجددا آپ کنید

[barnamenevisjavan]

سلام ممنون از آموزشی که گذاشتین
ولی....امنیت 0 خیلی راحت دیکد میشه و میشه رمز رو پیدا کرد بهتره از روش های بهتری مثل هش کردن رمز و قرار دادن داخل فایل dll و دیتابیس استفاده کنید.