| Вопрос: Логин/Пароль из текстового файла | Добавлено: 25.03.05 01:50 |
Автор вопроса:  Артём | ICQ: 6330018 |
| Хотелось бы предусмотреть возможноть использования программы только зарегистрированными пользователями. Логины и пароли пользователей лежат в отдельном текстовом файле. Заранее спасибо... |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #1 | Добавлено: 25.03.05 04:58 |
|
Очень интересно.
А какой смысл хранения секретной инфы рядом в текстовике? То же самое, что налепить на монитор yellow sticker с паролем. |
||
|
Номер ответа: 2 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #2 | Добавлено: 25.03.05 08:34 |
| От них же можно хранить хэши. | ||
|
Номер ответа: 3 Автор ответа: Артём ICQ: 6330018 Вопросов: 6 Ответов: 11 |
Профиль | | #3 | Добавлено: 25.03.05 11:59 |
|
2GSerg
Ну надо именно так, в текстовике, кто нибудь может помочь??? |
||
|
Номер ответа: 4 Автор ответа:  AlexF Вопросов: 20 Ответов: 113 |
Профиль | | #4 | Добавлено: 25.03.05 12:22 |
|
eto v modul :
' Win32api function which retrieves data from INI FILE Public 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 Public Function GetIniString(ByVal FileName As String, ByVal Section As String, ByVal SectionPart As String) As String '**************************************************************************** ' Purpose: retrieves data from TEXT FILE ' Inputs: FileName - Name of TEXT FILE to be searched. ' Section - Name of Section in TEXT FILE to be searched. ' SectionPart - which Part in Section of TEXT FILE to be searched. '**************************************************************************** Dim lngResult As Long Dim strTemp1 As String On Error GoTo err_hndl strTemp1 = Space$(500) lngResult = GetPrivateProfileString(Section, SectionPart, "", strTemp1, 500, FileName) strTemp1 = Trim$(strTemp1 & "" 
GetIniString = CStr(LCase$(Left$(strTemp1, lngResult))) Exit Function err_hndl: GetIniString = Err.Number End Function i na formu : Dim strLogin as String, strPwd as String, strFilePath as string Private Sub Form_Load() strFilePath = "c:\user.txt" strLogin = GetIniString(strFilePath, "LOGIN", "USER1"
strPwd = GetIniString(strFilePath, "PWD", "USER1"
End Sub i potom sravnivaesh vvodimij login i parol' so stringami. Esli v faile neskol'ko userov, to sozdai massiv ciklom. |
||
|
Номер ответа: 5 Автор ответа: АртёмICQ: 6330018 Вопросов: 6 Ответов: 11 |
Профиль | | #5 | Добавлено: 02.04.05 00:24 |
| Извините, но нельзя сделать комментарий к коду выше, а лучше объяснить как это сделать проще, так как по ходу код исполнен многим неизвестным мне...дайте алгоритм проверки...спасибо! | ||
Страница: 1 |