PDA

View Full Version : ایجاد password در برنامه !


rouzbeh
شنبه 18 بهمن 1382, 13:23 عصر
سلام

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

متشکر میشم اگر جواب بدین
الهام تفریشی
شنبه 18 بهمن 1382, 13:38 عصر
شما باید دوست عزیز
یه جدول تو بانک اضافه کنی واسه پسورد ها که این‌ username و password هارو ذخیره کنه
rouzbeh
شنبه 18 بهمن 1382, 13:54 عصر
خسته نباشید خانم الهام
میشه کمی توضیح بدین یا اگر امکان داره یه برنامه نمونه برایم بدین . تشکر میکنم اگه کمکم کنید
الهام تفریشی
شنبه 18 بهمن 1382, 15:11 عصر
ببینید اصلا کار سختی نیست
شما یه جدول میسازید که شامل فیلدهای username و password و یا حالا اطالعات خاصه دیگه هم میتونی بذاری
مثلا اخرین تاریخ ویرایش و این جور چیزا
بعد یه فرم درست میکنی اول برنامه که میخوای وارد سیستم بشه username و password رو بگیره
و قبل از ورود به صفحه اصلی باید از تو بانک چک کنه که این username و password درست وارد شده یا نه
در صورتی که درست بود به صفحه اصلی میره و قبلش هم اینا رو تو یه متغیر global ذخیره میکنی تا تو کل برنامه بتونی ازش استفاده کنی
بعد یه جا میذاری واسه تغییر password که در این فرم شما پسورد قدیمی و پسورد جدید رو میگیری
و در صورت درست بودن پسورد قدیمی پسورد جدید رو ویرایش میکنی
در صورتی که ابهامی هست بگو
rouzbeh
شنبه 18 بهمن 1382, 16:01 عصر
به خدا خانم الهام دیگه اصلا فکرم کار نمیکنه . اگه میشه حالا یه نمونه برام بفرستین دیگه

راستش من بایستی تا تاریخ 27 بهمن پروژه ام رو تموم کنم ولی فکر نکنم برسم.
BehnamPro
شنبه 18 بهمن 1382, 18:56 عصر
برای پسورد گذاشتن می تونی پسورد را(به همراه یک username) در رجیستری ذخیره کنی.با این کد:


Savesetting("Project1","Settings",username,password)

که در آن اولین پارامتر نام پروژه(برنامه) است دومی را همینطوری بنویس و ...
با این کار password تحت یک username در رجیستری ذخیره می شود.و برای بدست آوردن مجدد پسورد از این کد استفاده می شود:


GetSetting("Project1","Settings",username,"Defaul value")

البته باید بهداین نکته دقت داشت که برای ذخیره یک پسورد در رجیستری ابتدا آنرا بصورت رمز در آورد و پسورد رمز شده را ذخیره کرد. 8-)
کم حوصله
یک شنبه 19 بهمن 1382, 01:08 صبح
البته باید بهداین نکته دقت داشت که برای ذخیره یک پسورد ابتدا آنرا بصورت رمز در آورد و پسورد رمز شده را ذخیره کرد.

مهمترین نکته همین است :)
BehnamPro
یک شنبه 19 بهمن 1382, 11:15 صبح
نگران این موضوع هم نباشید. :) یه نمونه برنامه آماده می کنم برای upload .در اون برنامه کد های آماده رو مشاهده می کنید. 8-)
منتظر باشید :wink:
BehnamPro
یک شنبه 19 بهمن 1382, 12:37 عصر
خدمت شما! 8-)
rouzbeh
یک شنبه 19 بهمن 1382, 14:54 عصر
متشکرم بهنام .
rouzbeh
یک شنبه 19 بهمن 1382, 14:58 عصر
اقای بهنام من این رو دیدم خیلی ممنون .

حالا ما رمز رو میدیم خوب تا اینجا درست . رمز رو هم ذخیره میکنه .
ملی حالا وقتی کاربر رمز رو میده چی ؟
ببخشید ها من تازه کارم برایه همین .
منظورم اینه که یه text box ای هم باید باشد که کاربر وقتی اون کد را داد و اون کد با رمز برابر بود بره تو برنامه .
کمکم کنید . چطوری تعریف کنم ؟
BehnamPro
دوشنبه 20 بهمن 1382, 11:00 صبح
شما می تونید پسورد را با یک user مثلا ruzbeh در رجیستری ذخیره کنید.و وقتی که کاربر برای ورود رمزی را وارد می کنه رمز وارد شده توسط کاربر را با رمز ذخیره شده در رجیستری مقایسه کنید.
سعی میکنم این یکی رو هم برنامشو اینجا بذارم. :)
BehnamPro
دوشنبه 20 بهمن 1382, 19:22 عصر
این برنامه برای ایجاد یک user و بعد استفاده از آن جهت login شدن است.
امیدوارم دیگه مشکلی نباشه! :lol: :wink:
rouzbeh
شنبه 02 اسفند 1382, 23:48 عصر
اقای بهنام من امروز با این برنامه که کار می کردم به مشکل دچار شدم .
اینکه برنامه به حروف مساوی و برابر حسساس می باشد .

ببخشید یه برنامه کامل و دقیق password سراغ ندارید؟ :)
vahid18670
یک شنبه 12 مرداد 1393, 13:10 عصر
سلام بهنام جان،من پروژم درباره طراحی وی پی انه ،الان واسه نوشتن کد قسمت یوزرنیم و پسوردش دچار مشگل شدم که وقتی کسی یوزرنیم و پسوردو وارد کرد بتونه کانکت بشه، میشه لطف کنی ی کد برام بزاری که بتونم مشکلمو حل کنم
m.4.r.m
یک شنبه 12 مرداد 1393, 19:00 عصر
این همه کش و قوس برای یک جواب ؟

Private Sub Command1_Click()
If cmuser.Text = "" Then
MsgBox " لطفا نام کاربري را انتخاب نمائيد ", vbExclamation, ""
cmuser.SetFocus
Exit Sub
End If
If Trim(txtpass.Text) = "" Then
MsgBox " لطفا کلمه عبور را وارد نمائيد ", vbExclamation, ""
txtpass.SetFocus
Exit Sub
End If
Adodc2.RecordSource = "SELECT * FROM Login WHERE User='" & cmuser.Text & "'"
Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then
If UCase(Adodc2.Recordset.Fields("password")) = UCase(txtpass) Then


sndPlaySound App.Path + "\log.wav", SND_ASYNC Or SND_NODEFAULT



Main_frm.Show
Unload Me
Else
MsgBox " کلمه عبور شما اشتباه است ", vbCritical, ""
Label4.Caption = Label4.Caption + 1
If Label4.Caption = 3 Then
End
End If
txtpass.SelStart = 0
txtpass.SelLength = Len(txtpass)
txtpass.SetFocus
End If
End If
End Sub