PDA

View Full Version : برای برناتون پسورد بذارید



john smithair
شنبه 04 خرداد 1387, 15:36 عصر
به نام ایزد منان
با سلام خدمت دوستان
با اطمینان می تونم بگم که جزء اولین چیزهایی که یک برنامه نویس دوست داره یاد بگیره
اینه که بتونه یک برنامه بنویسه که برای انجام مثلا کار 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
یک شنبه 05 خرداد 1387, 03:04 صبح
جالب بود ...
میگم حالا اگه بخوای پسورد رو عوش کنی چیکار میکنی ...

touraj
یک شنبه 05 خرداد 1387, 07:06 صبح
دقیقاً! برای تغییر پسورد چه باید کرد؟

john smithair
دوشنبه 06 خرداد 1387, 21:42 عصر
بچه ها ببخشید من تو امتحانات هستم دیر دیر میان ولی خوب اگه می خواید پسورد رو عوض کنید خلی ساده اس با دستور savesetting میتونید بگید که عبارت رو تغییر بده مثل این کد

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

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

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

VirGil
سه شنبه 19 شهریور 1387, 14:03 عصر
میشه یکم در مورد کد های این برنامه توضیح بدید؟

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

msh_gold
چهارشنبه 20 شهریور 1387, 05:51 صبح
با سلام ببخشيد دوستان ميشه يه روش خوب و كاملا مطمئن برا ي پسورد گذاري روي برنامه معرفي كنيد . با تشكر از تمامي كساني كه در اين سايت زحمت مي كشند.:تشویق::تشویق:

arsalansalar
چهارشنبه 20 شهریور 1387, 08:20 صبح
کدت از نظر آموزشی عالی هست ولی از لحاظ تجاری نه!
ولی با این حال دستت در نکنه

Hshirdel
چهارشنبه 20 شهریور 1387, 08:40 صبح
لطفاً کامپوننت دات نت را برای من بفرستید hshirdel@yahoo.com

mostafaaa
چهارشنبه 20 شهریور 1387, 10:57 صبح
یکی دیگه از اشکالات این روش اینه که با 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
یک شنبه 27 مرداد 1392, 15:23 عصر
سلام هر چند بر این عقیده ام که نباید با سورس به کسی کمک کرد ولی خوب چون اولین پست اموزشیمه این سورس رو براش میزارم
http://upload.iranblog.com/1/1211826310.zip
انشا ء الله مفید واقع بشه
سایت فیلتره میشه مجددا آپ کنید

barnamenevisjavan
یک شنبه 27 مرداد 1392, 15:37 عصر
سلام ممنون از آموزشی که گذاشتین
ولی....امنیت 0 خیلی راحت دیکد میشه و میشه رمز رو پیدا کرد بهتره از روش های بهتری مثل هش کردن رمز و قرار دادن داخل فایل dll و دیتابیس استفاده کنید.