پسورد

[mrs225]

سلام به دوستان برنامه نویس .نوشتن یک برنامه که هنگام اجرا گذروژاه و نام کاربری بخواد اسان اما من میخوام برنامه بویسم که گذرواژه و نام کاربری تغییر وبعد از اجرا دوباره با این گذرواژه بالا بیاید.

[mrs225]

کسی نبود به این سوال پاسخ بده

[MohammadGh2011]

سلام به دوستان برنامه نویس .نوشتن یک برنامه که هنگام اجرا گذروژاه و نام کاربری بخواد اسان اما من میخوام برنامه بویسم که گذرواژه و نام کاربری تغییر وبعد از اجرا دوباره با این گذرواژه بالا بیاید.
سلام عليکم
ميتونيد از بانک اطلاعاتي استفاده کنيد که نام کاربري و پسوورد رو ذخيره کنه
يه نمونه اي تو سايت بود اگه پيدا کردم ميزارم و اگر پيدا نکردم خودتون جستجو کنيد پيداميشه تو اين سايت و يا در گوگل.


موفق باشيد

[بهروز عباسی]

شرمنده قصد دخالت ندارم

ميتونيد از بانک اطلاعاتي استفاده کنيد که نام کاربري و پسوورد رو ذخيره کنه
کمی از نظر امنیتی مشکل داره

دوستمون بهتره اول کلمه عبور رو با الگوریتم های رمز گذاری یا هش code کنه و کلمه عبور رمز شده رو به صورت binary در یک فایل ذخیره کنه و عمل مقایسه هم برروی فایل رمز شده صورت بگیره.

[MohammadGh2011]

شرمنده قصد دخالت ندارم

کمی از نظر امنیتی مشکل داره

دوستمون بهتره اول کلمه عبور رو با الگوریتم های رمز گذاری یا هش code کنه و کلمه عبور رمز شده رو به صورت binary در یک فایل ذخیره کنه و عمل مقایسه هم برروی فایل رمز شده صورت بگیره.
سلام عليکم
ميشه بر روي بانک اطلاعاتي هم رمز گذاشت تا کسي نتونه اون رو ببينه البته اگه اکسس باشه بايد از ورژن بالاش استفاده شود، تو ورژن هاي پايينش کاملا ميشه با نرم افزار هاي ديگه پسوورد رو به دست آورد.

موفق باشيد

[mrs225]

سلام
اگه میشه یک نمونه سورسش بزار. من ذخیره به صورت باینری بلد نیستم

[MohammadGh2011]

سلام عليکم
بفرما
اين رو خودم قبلا از همين سايت دانلود کردم ولي لينکش رو پيدا نکردم تا برات بزارم ،خودم آپلودش کردم:
همونطور که دوستمون اشاره کردن شما ميتونيد از روش هاي مختلفي براي اين کار استفاده کنيد که يکيش همينه که من گذاشتم فکر کنم همونيه که ميخواستيد.
موفق باشيد

[mrs225]

متشکر ولی مشکل داشت .
وقتی 1234پاک کردم رمز جدید میدم حالا دوباره اجرا میکنم رمز جدید وارد میکن فقط داخل فرم1 . کپشن ="خوش امدید" اما فرم 2 .نمایش داده نمیشه

[بهروز عباسی]

یه راه ساده از ini file استفاده کن اینجوری
این توابع رو توی یه ماژول کپی کن و ازشون استفاده کن خیلی ساده اگه بازم کمک خواستی بگو :
Option Explicit
'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
'| ÎæÇäÏä æ äæÔÊä ÊäÙíãÇÊ
'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Function GetProfile(lpAppName$, lpKeyName$, lpDefault, lpFileName$)
Dim lpReturnString$, nSize%, Valid%
'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
'|Get value from INI-file
'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
lpReturnString$ = Space$(128)
nSize% = Len(lpReturnString$)
Valid% = GetPrivateProfileString(ByVal lpAppName$, ByVal lpKeyName$, ByVal lpDefault, ByVal lpReturnString$, ByVal nSize%, ByVal lpFileName$)
GetProfile = Left$(lpReturnString$, Valid%)

End Function
Sub WriteProfile(lpAppName$, lpKeyName$, lpString$, lpFileName$)
Dim Valid%
'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
'|Write value to INI-file
'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Valid% = WritePrivateProfileString(lpAppName$, lpKeyName$, lpString$, lpFileName$)
End Sub

[بهروز عباسی]

یا از این کلاس استفاده کن مثال هم داره:
نام کلاس باید این باشد
ClsINI_File
Option Explicit
'Private str_INI_FILE As String
Private Type ini_File
strINIFileName As String
strGET_INI As String
strSET_INI As String
End Type
Private INIFile As ini_File
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Public Property Let INIFileName(strName As String)
INIFile.strINIFileName = strName
End Property
Public Property Get INIFileName() As String
INIFileName = INIFile.strINIFileName
End Property

Public Function GET_INI(ByVal strAppName As String, strKeyName As String, strDefault As String) ', strFileName As String)
Dim strReturnString As String
Dim intnSize, intValid As Integer
strReturnString = Space$(128)
intnSize = Len(strReturnString)
intValid = GetPrivateProfileString(ByVal strAppName, ByVal strKeyName, ByVal strDefault, ByVal strReturnString, ByVal intnSize, ByVal INIFileName) 'strFileName)
GET_INI = Left$(strReturnString, intValid)
End Function

Public Sub SET_INI(strAppName As String, strKeyName As String, strValue As String) ', strFileName As String)
Dim intValid As Integer
intValid = WritePrivateProfileString(strAppName, strKeyName, strValue, INIFileName) 'strFileName)
End Sub


در مورد مثال اینکه اول این فایلو کناربرنامه بساز SETTING.INI
اینم مقدار پیشفرضش
[Setting]
Password=123
123 پسورد پیشفرض این مثاله

اینم کد برای ذخیره و چک کرن پسورد:
Dim ini As ClsINI_File
Private Sub Form_Load()
Set ini = New ClsINI_File
ini.INIFileName = App.Path & "\SETTING.INI"
If ini.GET_INI("Setting", "Password", "") = txtPass Then MsgBox "Yes" Else MsgBox "No"
End Sub

Private Sub Form_Unload(Cancel As Integer)
ini.SET_INI "Setting", "Password", txtPass.Text
End Sub

[caspianhero]

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

[بهروز عباسی]

درود

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

موفق باشید.

[caspianhero]

متشکر: شما از این کد ها سراغ دارید که به وی بی 6 هم بخوره؟؟؟ از کجا میشه این کدهای الگوریتم رمزنگاری را گیر اورد؟؟؟
لطفا راهنمایی کنید؟؟
سپاس