فرم گرفتن رمز عبور و کلمه عبور

[hassan_123]

با سلام
راستش می خواتم یک فرم برای گرفتن نام کاربر و رمز عبور قرار بدم این کاری که من کردم فقط با گرفتن کلمه هایی که من به صورت پیش فرض قرار دادم انجام میشه (user :1111 , pass :0000)می خواستم بپرسم جطوری میشه کلمه عبور و رمز عبور را آن چیزهای که در بانک ذخیره کردیم مطابقت بدیم و در صورت درست بودن اجازه ورود بدیم
PrivateSub Btn_Signin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Signin.Click
If (usernameTextbox.Text = "1111") And (passwordTextBox.Text = "0000") Then
Me.Hide
Form2.Show
EndSub

[gdevnb]

کلمه عبورتون رو هش کنید و در بانک قرار بدید بعد در فرم ورود مقدار ست شده توسط کاربر رو هم هش کنید با مقدار داخل بانک مقایسه کنید

[علیرضا مداح]

سلام ،
شما بهتر است ابتدا با مفاهیم Cryptography از جمله Encryption/Decryption , Hash , Symmetric/Asymmetric Encryption ....... و چگونگی Implement کردن آنها در دات نت آشنا شوید ، در ضمن پیشنهاد میکنم مقاله ی زیر را حتما" مطالعه نمایید :
http://www.codeproject.com/KB/recipes/StoringPasswords.aspx

[khz-web1]

فارسی یکی بیاد راهنمایی کنه...

[gdevnb]

فارسی یکی بیاد راهنمایی کنه...

دوست عزیز تو همین فروم جستجو کن فارسیشم پیدا میکنی

[gdevnb]

salted hash

[mshakeri]

این سایت درست که انگلیسی اما مثال هایی زده که نیازی به بلد بودن انگلیسی نداره:
https://forums.microsoft.com/MSDN/ShowPo...0&SiteID=1

[hassan_123]

آدرسی که گفتی انگاری اشتباه است

[mshakeri]

ببخشید این
https://forums.microsoft.com/MSDN/Sh...30660&SiteID=1

[ali_sa]

ببخشید،من یادم رفته بود فایل اکسس شو بزارم ، الان گذاشتم.تو درایو D کپی کنید.

[saman_itc]

با سلام خدمت دوستان
https://barnamenevis.org/showth...415#post491415
یه برنامه دفتر چه تلفن کامل UPLOAD کردم
که توش خیلی واضح از فرم UserوPas استفاده شده دانلودش کن و حالشو ببر

[morteza_261]

با سلام و تبریک سال نو
یه کد برات گذاشتم امیدوارم که بدردت بخوره
وحالا مطنق کار:
1-ما توی بانکمون 3 تا فیلد داریم با عنوان های کد کاربری،نام کاربری و رمز عبور
2-در کد اولی وقتی کد کاربری رو میدیم و خونه مربوطه رو ترک میکنیم از صحت کد کاربری مطمئن میشیم.اگه این کد وجود داشت نام کاربری رو برای ما بر میگردونه و اگر وجود نداشت پیغام میده که همچین کدی نداریم.
3-در کد دومی کد رمز با نام کاربری تطبیق داده میشه و.......

PrivateSub TxtId_Leave(ByVal sender AsObject, ByVal e As System.EventArgs) Handles TxtId.Leave

If IsNumeric(TxtId.Text) Then

Try

PubSqlCom.CommandText = "SELECT UserName FROM TblLogIn where id=" & TxtId.Text

PubSqlCom.Connection = PubSqlCon

If PubSqlCon.State = ConnectionState.Closed Then PubSqlCon.Open()

PubSqlDR = PubSqlCom.ExecuteReader()

PubSqlDR.Read()

If PubSqlDR.HasRows Then

LblUserName.Text = PubSqlDR("UserName")

Else

MessageBox.Show("کد کاربری مورد نظر موجود نمی باشد", "اخطار", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button3, MessageBoxOptions.RightAlign)

TxtId.Text = ""

TxtId.Focus()

EndIf

If PubSqlCon.State = ConnectionState.Open Then PubSqlCon.Close()

Catch ex As SqlClient.SqlException

MsgBox(ex.Message & vbCrLf & "در ارتباط با بانک اطلاعاتی با مشکل مواجه هستید.")

Catch ex As Exception

MsgBox(ex.Message & vbCrLf & "خطا در اجرا")

Finally

If PubSqlCon.State = ConnectionState.Open Then PubSqlCon.Close()

EndTry

ElseIf Len(TxtId.Text) <> 0 Then

MessageBox.Show("لطفا عدد وارد نمایید.", "توجه", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button3, MessageBoxOptions.RightAlign)

TxtId.Text = ""

TxtId.Focus()

ExitSub

EndIf

EndSub

PrivateSub BtnLogIn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogIn.Click

If TxtId.Text = ""Then

MessageBox.Show("لطفا کد کاربری را وارد نمایید.", "خطا", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

TxtId.Focus()

ExitSub

EndIf

PubSqlCom.CommandText = "SELECT UserName,Pass FROM TblLogIn where id=" & TxtId.Text

PubSqlCom.Connection = PubSqlCon

If PubSqlCon.State = ConnectionState.Closed Then PubSqlCon.Open()

PubSqlDR = PubSqlCom.ExecuteReader

PubSqlDR.Read()

If LblUserName.Text = PubSqlDR("UserName") And TxtPass.Text = PubSqlDR("Pass") Then

Me.Hide()

FrmMain.ShowDialog()

Me.Close()

Else

MessageBox.Show("رمز عبور وارد شده متعلق به کاربر فوق نیست", "خطا", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button2, MessageBoxOptions.RightAlign)

TxtId.Text = ""

TxtPass.Text = ""

LblUserName.Text = ""

TxtId.Focus()

EndIf

If PubSqlCon.State = ConnectionState.Open Then PubSqlCon.Close()

EndSub

 

[hassan_123]

با سلام و تشکر از شما من هر چی سعی میکنم اما نمی تونم این مشکل چک کردن یوزر رو حل کنم اینو بگم که من میخوام بایوزر و پسورد هایی که در بانک خودم ذخیره کردم مقایسه کنم و در صورت صحیح بودن اجازه ورود بدم.
(با تشکر از شما دوستان همچنان منتظر یاری سبزتان هستیم )

[hassan_123]

سلام به morteza_261
با تشکر از کد شما اما میشه بگید که این کدی که من برای ادامه کد شما نوشتم کجاش اشتباه است
Dim PubSqlCom As SqlCommand
Dim PubSqlCon As SqlConnection
Dim PubSqlDR As SqlDataReader
کد بالا برای شناختن کد زیر است
PubSqlCom.CommandText = "SELECT UserName,Pass FROM TblLogIn where id=" & TxtId.Text
PubSqlCom.Connection = PubSqlCon
If PubSqlCon.State = ConnectionState.Closed Then PubSqlCon.Open()
PubSqlDR = PubSqlCom.ExecuteReader
PubSqlDR.Read()

[saman_itc]

من سورس اجرایی گذاشتم بدردت نخورد؟!!!!

[morteza_261]

با سلام مجدد
دوست گرامی کدها را به صورت زیر در بالای کدهای دیگر قرار بده

Dim PubSqlCom AsNew SqlClient.SqlCommand

Dim PubSqlCon AsNew SqlClient.SqlConnection

Dim PubSqlDR As SqlClient.SqlDataReader

PublicShared PubStrConString AsString = ("Data Source=" Server Name";Initial Catalog=Institute;Integrated Security=True")

لازم به ذکره که برای لود فرم کد زیر فراموش نشه(با توجه به کدی که من نوشتم):

PubSqlCon.ConnectionString = PubStrConString

[hassan_123]

سلام morteza_261
کدهایی که در بالا گفته بودی در برنامه بکار بردم اما از رمز عبور اشکال میگریه این در صورتی است که رمز درست است ضمنا کد کاربری از نوع عدد است اما رمز عبور رو بیشتر از نوع رشته دادم اما حتی از نوع عدد هم بکار بردم باز هم اشکال میگیره (وقتی کد کاربری رو میدم و از text boxخارج میشم نام کاربری رو نشون میده اما از رمز اشکال میگیره )

[art2000ir]

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

[hassan_123]

سلام art2000ir
ببین من مشکلی که دارم اونم اینه که نمیدونم چطور رشته که در textbox وجود دارد اونم از نوع رشته (a,b,c,....)را با بانک مقایسه کنم ولی مقدار عددی(1و2و3و..) را که val بکار میبرم درست میشه اما رشته نمیشه همینطور در کدی که morteza_261نوشته باز هم این مشکل هست در تاپیک 12 کدهای قسمت دوم که این کد نوشته است
If LblUserName.Text = PubSqlDR("UserName") And TxtPass.Text = PubSqlDR("Pass") Then
در این شرط ، شرط قبل از and اجرا میشه اما شرط قسمت دوم که And TxtPass.Text = PubSqlDR("Pass") این کد هست اجرا نمیشه

[morteza_261]

با سلام مجدد
میشه اون کدی رو که نوشتی برام بزاری
فعلا

[reza6384]

PrivateSub Btn_Signin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Signin.Click
If (usernameTextbox.Text = "1111") And (passwordTextBox.Text = "0000") Then
Me.Hide
Form2.Show
EndSub

سلام حسن جان ، لطفا کد ها رو بین تگ کد- Code Tag قرار بده. اینجوری اینقدر به هم ریختس که آدم اصلا دوست نداره بخونه.

PrivateSub Btn_Signin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Signin.Click

If (usernameTextbox.Text = "1111") And (passwordTextBox.Text = "0000") Then

Me.Hide

Form2.Show

EndSub

[hassan_123]

رضا جان سلام
از بابت کد متشکرم اما کد شما تنها نوشته های بین " " را مقایسه میکنه ولی من میخوام هر چیزی که در textbox نوشتم را با فیلدهای بانک sql مقایسه کنه مثلا اگر شما نوشتید حسن بگرده ببینه که اصلا همچین نامی وجود داره یا نه اما کد شما فقط اگه 1111 باشه اجازه می دهد
کدی که morteza_261نوشت درست هست اما یه مشکل داره اونم چک کردن رمز عبوره اول کدش اینجوریه که میاد کد کاربر رو چک میکنه اگه درست بود نام کاربری رو در label نمایش میده اما وقتی پسورد را وارد میکنم اشکال میگیره یعنی نیمه اول شرط درسته اونم وقتی که میاد محتویات label رو مقایسه میکنه ضمنا اینو بگم که تا اونجا که من فهمیدم اون چیزهای که در labelقرار میگیره رو میتونه مقایسه کنه اما اون چیزهای که در text box وجود دراه رو نمیتونه به همین خاطر از pass اشکال میگیره یعنی اگه این pass رو مثل نام کاربر در label قرار بدم درست میشه اما اگه همون text رو مقایسه کنم نمیشه

[hassan_123]

morteza_261 سلام
همینطور که در بالا نوشتم اون کدت کامل است اما فقط در موقع چک کردن pass از pass اشکال میگیره

[hassan_123]

لطفا کمی منو راهنمایی کنین چون این موضوع دیگه پاک داره منو کفری میکنه آخه به هر دری که زدم نشد.
(با تشکر از همه دوستان )

[art2000ir]

ds.Clear()

s1 = "provider=microsoft.jet.oledb.4.0;data source =" + Application.StartupPath + "\gldb.mdb; jet oledb:database password=;"

con = New OleDbConnection(s1)

con.Open()

s2 = "select * from ip where us=" & "'" + t1 + "'"

da = New OleDbDataAdapter(s2, con)

da.Fill(ds, "ip")

If ds.Tables("ip").Rows.Count = 0 Then

MsgBox("شناسه کاربری معتبر نمی باشد")

ExitSub

EndIf

nw = ds.Tables("ip").Rows.Item(0)

If t2 = nw.Item("ps") Then

MsgBox("ok")

b = True

Else

MsgBox("کلمه عبور معتبر نمی باشد")

EndIf

این کد را ببین
البته من این کد را در یک ماژول استفاده می کنم و هرجا نیاز به فرم کلمه عبور دارم کلم و رمز عبور را به این ماژول می فرستم و جوابش رو میگیرم
ip جدولی هست که کلمه عبور درش قرار داره همراه با رمز عبور
us فیلدی هست که کلمه عبور درش قرار داره
t1 این متفیر از فرم فرستاده میشه که کلمه عبور هست یا همان id
شما می توانید از تکس باکس استفاذه کنید

Dim con As OleDbConnection

Dim da As OleDbDataAdapter

Dim ds AsNew DataSet

Dim s1, s2 AsString

Dim nw As DataRow

Dim e As pass

این ها هم تعاریف متغیرها هستش

[art2000ir]

یادم رفت بگم
t2 رمز عبور هستش
ps نام فیلدی که رمز عبور درش قرار داره
در ضمن شما فیلد رمز رو از جه نوعی انتخاب کردید ؟؟؟
اگر nvarchar باشه نباید اشکالی پیدابشه

[hassan_123]

با سلام به همه دوستان
راستش من هر چی سعی کردم نتونستم مشکلم رو حل کنم به همین خاطر سورس برنامه خودم رو براتون گذاشتم تا ببینید که اشکال من در کجا است که با وجود اینکه من پسورد رو درست میزنم باز هم از پسورد اشکال میگیره .
بانک برنامه sql 2000 و vb2005 نوشته شده
از اینکه برنامه از نظر امنیتی خیلی داغونه اونم به این خاطره که شما بتونین id , user , pass جدید وارد کنین راستی اینو هم بگم که من برنامه در درایو e:\tamrin بوده .
لطفا منو راهنمایی کنین (منتظرتون هستم ).

[hassan_123]

سلام هنوز کسی نمیخواد منو راهنمائی کنه

[hassan_123]

با سلام به همه دوستان این کد که در زیر قرار داره کدی هست که morteza_261 برام گذاشته بود که در صفحه 2 قرار داره اما این کد رو وقتی من بکار بردم اون خط از کد که به رنگ سبز کردم اشکال داره خواهشن راهنمائیم کنید.

PrivateSub BtnLogIn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

BtnLogIn.Click

If TxtId.Text = ""Then

MessageBox.Show("لطفا کد کاربری را وارد نمایید.", "خطا", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

TxtId.Focus()

ExitSub

EndIf

PubSqlCom.CommandText = "SELECT UserName,Pass FROM TblLogIn where id=" & TxtId.Text

PubSqlCom.Connection = PubSqlCon

If PubSqlCon.State = ConnectionState.Closed Then PubSqlCon.Open()

PubSqlDR = PubSqlCom.ExecuteReader

PubSqlDR.Read()

If LblUserName.Text = PubSqlDR("UserName") And TxtPass.Text = PubSqlDR("Pass") Then

Me.Hide()

FrmMain.ShowDialog()

Me.Close()

Else

MessageBox.Show("رمز عبور وارد شده متعلق به کاربر فوق نیست", "خطا", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button2, MessageBoxOptions.RightAlign)

TxtId.Text = ""

TxtPass.Text = ""

LblUserName.Text = ""

TxtId.Focus()

EndIf

If PubSqlCon.State = ConnectionState.Open Then PubSqlCon.Close()

EndSub

[parsavb]

دوستان اگر مشکل این تاپیک حل نشده من می تونم راهنمائی کنم

[hassan_123]

سلام پارسا هنوز مشکل حل نشده لطفا بگید چیکار کنم تا مشکل من حل بشه
ضمنا از vb2005 , sql200 استفاده میکنم .

[hassan_123]

سلام پارسا اگه بگی چی کار کنم تا این مشکلم حل بشه لطف می کنی .

[hassan_123]

سلام بچه ها
انگاری کسی نمیخواد به من کمک کنه تا من از دست این مشکل راحت بشم
باز هم از شما ها تشکر میکنم لطفا بگید من چیکار کنم .

[morteza_261]

با سلام مجدد
آقا مشکلتو پیدا کردم
کدایی که نوشتی مشکلی نداشت مشکل تو بانکت بود
اگه Data Type فیلد id از نوع int بزاری مشکلت حله

[hassan_123]

مرتضی جون دمت گرم فعلا مشکلم در این مورد حل شد با وجود اینکه id رو از نوع nvarchar گذاشتم
یعنی در واقع اون کدی که داده بودی درست بود اما نمیدونم چرا قبلا هر کاری که میکردم نمی شد
باز هم متشکرم.