Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как изменить пароль / 22 сообщений из 22, страница 1 из 1
26.05.2012, 18:56
    #37813041
Adulik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
ребята пожалуйста помогите мне нужно написать !!!!!
...
Рейтинг: 0 / 0
26.05.2012, 18:59
    #37813043
Adulik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
Private Sub Command1_Click()
If txtuser.Text = "я" And txtpassword.Text = "1122" Then
MDIform1.Show
Unload Me
Else
MsgBox "Sxl e", vbCritical, "error"
End If
End Sub

Private Sub Command2_Click()
End
End Sub



Private Sub Command3_Click()
frmChangePass.Show vbModal
End Sub

Private Sub Form_Load()
Me.Height = 2250
End Sub
Это моя программа для запрета входа и мне нужно чтобы я смогла изменить пароль!!
...
Рейтинг: 0 / 0
26.05.2012, 19:58
    #37813068
BelowZero
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
Adulik,

храни пароли в зашифрованном виде. например, записываешь вместо символа "А" символ "Б", вместо "Ю" символ "Я" и т.д. сложность шифровки зависит от твоего воображения. и, надеюсь, ты понимаешь, что от серьёзно настроенного чела твой твой пароль не спасёт? только от рядовых пользователей
...
Рейтинг: 0 / 0
26.05.2012, 20:17
    #37813075
qwerty112
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
BelowZero,

вот что называется - "в цвет отвечает"
автор как раз и прищел с вопросом "где хранить", так что бы изменять,
а ты ей "про погоду"

автор - в реестре, - на лабу хватит ...
...
Рейтинг: 0 / 0
26.05.2012, 20:22
    #37813080
BelowZero
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
qwerty112автор как раз и прищел с вопросом "где хранить" выдели строку, в которой афффтар это спрашивает
...
Рейтинг: 0 / 0
26.05.2012, 20:31
    #37813085
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
BelowZero,
афтар тактже на спрашивала КАК хранить.

Adulik Это моя программа для запрета входа и мне нужно чтобы я смогла изменить пароль!!
...
Рейтинг: 0 / 0
26.05.2012, 20:33
    #37813086
qwerty112
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
BelowZeroqwerty112автор как раз и прищел с вопросом "где хранить" выдели строку, в которой афффтар это спрашивает
...тебе, сложновато будет, наверное, понять ..., но я попробую

когда автор говорит - "изменить",
это значит, что есть состояние пароля ДО, и состояние пароля ПОСЛЕ
вот эти 2-а слова которые я для тебя выделил - обозначают некоторый промежуток времени

..нуу, дальше понятно ?
...
Рейтинг: 0 / 0
26.05.2012, 20:36
    #37813088
BelowZero
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
BelowZeroqwerty112автор как раз и прищел с вопросом "где хранить" выдели строку, в которой афффтар это спрашивает я так и думал
афффтар не знал, как изменить пароль-константу. я предложил хранить его отдельно от проги. предупреждая следущий вопрос "ведь кто-нить может открыть текстовик и реестр и посмотреть его?" сказал, что можно зашифровать. что не так?
...
Рейтинг: 0 / 0
26.05.2012, 20:40
    #37813092
BelowZero
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
qwerty112..нуу, дальше понятно ? черезчур дерзкое выражение для того, кто не прав.
...
Рейтинг: 0 / 0
26.05.2012, 20:41
    #37813093
qwerty112
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
BelowZeroBelowZeroпропущено...
выдели строку, в которой афффтар это спрашивает я так и думал
афффтар не знал, как изменить пароль-константу. я предложил хранить его отдельно от проги. предупреждая следущий вопрос "ведь кто-нить может открыть текстовик и реестр и посмотреть его?" сказал, что можно зашифровать. что не так?
даа, всё так !

но шифрование у автора будет в 3-ем классе,
ей, щас, нужно как-то "вместить в мозг", что сравнивать можно не только с литералом "жестко" вбитым в код, а "доставать" это значение (пароль) откуда-то из-вне !

для неё и так это "уже Омерика" !
...
Рейтинг: 0 / 0
26.05.2012, 20:43
    #37813094
qwerty112
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
BelowZeroqwerty112..нуу, дальше понятно ? черезчур дерзкое выражение для того, кто не прав.
тебе семак отсыпать ?
...
Рейтинг: 0 / 0
26.05.2012, 20:52
    #37813099
BelowZero
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
qwerty112для неё и так это "уже Омерика" ! тогда при чём тут реестр? это вообще дремучий лес.я сам за полтора года программирования с реестром особо не возился - муторно
Adulik,
итак, правильный ответ:
храни пароли отдельно от программы
для этого лучше всего подходит txt файл в одной папке с твоей прогой. при проверке пароля проверяешь, совпадает ли введённый пароль с паролем в текстовом файле. при изменении пароля пишешь в текстовик товый пароль. с реестром мудиться не советую - себе дороже qwerty112тебе семак отсыпать ?
...
Рейтинг: 0 / 0
26.05.2012, 21:23
    #37813120
qwerty112
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
BelowZeroqwerty112для неё и так это "уже Омерика" ! тогда при чём тут реестр? это вообще дремучий лес.я сам за полтора года программирования с реестром особо не возился - муторно
нуу и зря
"полноценная" работа с реестром, может быть - и посложнее чем с тхт-файлом
но если ограничится спец.разделом "для буйных" - всё очень и очень просто ...
SaveSetting / GetSetting
а автору, имхо - больше и не нужно ...
...
Рейтинг: 0 / 0
26.05.2012, 21:29
    #37813125
BelowZero
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
qwerty112,

тогда грядущие многотомные топики афффтара по разбору реестра на кусочки на твоей совести)
...
Рейтинг: 0 / 0
26.05.2012, 23:01
    #37813164
Adulik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
спасибо вам ребята что не прошли мимо моего вопроса!!!!
...
Рейтинг: 0 / 0
26.05.2012, 23:16
    #37813170
BelowZero
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
Adulikспасибо вам ребята что не прошли мимо моего вопроса!!!! конешь, обращайся. будешь нашим с ЦЭ преемником. а когда мы вырастим и будем большими и сильными, то организуем свою банду хакеров и будем зарабатывать много денег и будем все жить долго и счастливо)
...
Рейтинг: 0 / 0
26.05.2012, 23:21
    #37813172
qwerty112
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
Adulikспасибо вам ребята что не прошли мимо моего вопроса!!!!
(на "почве" ответа в парал.тему)
это надо так понимать, что всё, что "ребята тут понаписывали", тебе не дошло, ты в серьёз не восприняла, так ??
...
Рейтинг: 0 / 0
26.05.2012, 23:50
    #37813183
BelowZero
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
qwerty112,

угу... вежливо поблагодарила, но ничего полезного не нашла.
Adulik, воть.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
Option Explicit
Private Sub Command1_Click()
Dim F As Long
Dim MyText As String
F = FreeFile
If Dir(App.Path & "/parolb.txt") <> "" Then
Open App.Path & "\parolb.txt" For Input As #F
Line Input #F, MyText
Close #F
If txtpassword.Text = MyText Then
MDIform1.Show
Unload Me
Else
MsgBox "Sxl e", vbCritical, "error"
End If
Else
MsgBox "net faila     " & App.Path & "/parolb.txt"
End If
End Sub

Private Sub Command2_Click()
Dim F As Long
F = FreeFile
Open App.Path & "\parolb.txt" For Output As #F
Print #F, txtpassword.Text
Close #F
End Sub

1 кнопка проверяет пароль(который в файле parolb.txt в папке в прогой), а вторая кнопка сохраняет пароль из текстбокса(txtpassword.Text)
Shocker.Pro,
не стал закрывать код простынкой, мб афффтар топика не умеет за неё заглядывать
...
Рейтинг: 0 / 0
27.05.2012, 00:19
    #37813199
qwerty112
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
BelowZero
не стал закрывать код простынкой, мб афффтар топика не умеет за неё заглядывать

гыы !

эхх ! быстро жж ты сдался !! нужно было довести хотя бы до 3-ей пересдачи "фотки в профиле"

---
...мая версия
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
' -- Установить пароль
Private Sub btn1_Click()
    Dim Result As String
    Result = InputBox("Новый парол давай, да ?", "Парол")
    If Result <> "" Then
        SaveSetting "Haba-Haba", "Adulik", "Password_cho?", Result
    End If
End Sub

' -- Проверить пароль
Private Sub btn2_Click()
    Dim Result As String
    Result = InputBox("Парол давай, да ?", "Парол")
    If Result = GetSetting("Haba-Haba", "Adulik", "Password_cho?") Then
        MsgBox "Вай, маладэц !", vbInformation
    Else
        MsgBox "Вай, нихороший человек !", vbExclamation
    End If
End Sub
...
Рейтинг: 0 / 0
27.05.2012, 00:32
    #37813201
BelowZero
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
qwerty112нужно было довести хотя бы до 3-ей пересдачи "фотки в профиле" врят ли это для универа. слишком расплывчатое задание. тут можно до кодирования файла на хостинге тему расписать. хотя... судя по срочности и количеству восклицательных знаков... и по отношению афффтара к своему же топику... всё может быть qwerty112...мая версия горизонт завален)
...
Рейтинг: 0 / 0
27.05.2012, 01:09
    #37813214
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
BelowZero,
Модератор: Что за флуд? На полдня оставить нельзя!
...
Рейтинг: 0 / 0
29.05.2012, 15:07
    #37816448
Adulik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить пароль
да что вы я очень вежлива (пока мне не злит),,,и я поблагодарил потому что вы мне помогли!!!это задание мне учитель задал и еще много задании, и еще раз СПАСИБО!!!!!!!!!!!!!!!!!!!!
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как изменить пароль / 22 сообщений из 22, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]