PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » PureBasic - форум » Вопросы по PureBasic » окно регестирации в програме Pure Basic

окно регестирации в програме Pure Basic

Страница: 1

Сообщений 1 страница 6 из 6

1

  • Автор: Weyz
  • Участник
  • Зарегистрирован: 17.08.2020
  • Приглашений: 0
  • Сообщений: 11
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    11 часов 27 минут
  • Последний визит:
    02.04.2021 10:47:19

Всем здравствуйте,вообщем я только начал изучать PureBasic,и хочу задать вопрос можно ли сделать так что когда ты запускаешь свою програму там будет Логин
Пороль И там нужно ввести верные данные(пороль и логин будут 1 и без проверки) Тоесть я буду сам регестировать правильные логин и пороль,если человек ввел не правильно пишет ошибка или что то еще,и основная програма не открывается,если же все велли правильно то тогда програма успешно открылась помогите.

Отредактировано Weyz (17.08.2020 18:22:45)

0

2

  • Автор: ВиниПур
  • Активный участник
  • Зарегистрирован: 11.11.2010
  • Приглашений: 0
  • Сообщений: 271
  • Уважение: [+8/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 22 часа
  • Последний визит:
    12.03.2022 21:07:46

Для честных людей подойдет такой код:

Код:
; по умолчанию пароль и логин admin
; пароль и логин не хранятся в программе

Define pwd$, log$, pass$
UseCRC32Fingerprint()
log$ = InputRequester("", "Введите ваш логин!", "")
pwd$ = InputRequester("", "Введите ваш пароль!", "", #PB_InputRequester_Password)
pass$ = pwd$+log$
;Debug StringFingerprint(pass$, #PB_Cipher_CRC32) ; f532ff8d запомнить при отладке и вставить в программу!

If StringFingerprint(pass$, #PB_Cipher_CRC32) <> "f532ff8d"
  MessageRequester("Ошибка!", "Неверный пароль или логин!",#PB_MessageRequester_Error)
  End
Else
  OpenWindow(0, #PB_Any, #PB_Any, 640, 480, "Окно основной программы", #PB_Window_SystemMenu| #PB_Window_ScreenCentered)
Repeat
    EventID = WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf

0

3

  • Автор: Weyz
  • Участник
  • Зарегистрирован: 17.08.2020
  • Приглашений: 0
  • Сообщений: 11
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    11 часов 27 минут
  • Последний визит:
    02.04.2021 10:47:19
ВиниПур написал(а):

Для честных людей подойдет такой код:

Привет,спасибо почему то когда делаю основную програму выдает ошибку и можно ли как то сменить логин и пороль? Так же можешь пожалуйста сам склеить 2 програмы твою авторизационую и мою вот код

Код:
OpenWindow(1,150,200,200,200,"Заголовок окна",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered|#PB_Window_SizeGadget)
 
TextGadget(0, 10, 10, 180, 16, "Текст")
ButtonGadget(2,50,70,80,25,"Кнопка")
SetWindowColor(1, RGB(5, 7, 250))
SetGadgetColor(0, #PB_Gadget_BackColor, RGB(5, 7, 250))
SetGadgetColor(0, #PB_Gadget_FrontColor, RGB(250, 250, 250))

CreateMenu(0, WindowID(1))
MenuTitle("Файл")
MenuItem(0, "Выход")

CreateStatusBar(0, WindowID(1))
AddStatusBarField(90)
AddStatusBarField(100)
StatusBarText(0, 0, "Area normal")
StatusBarText(0, 1, "Area borderless", #PB_StatusBar_BorderLess)

Repeat
  Event=WaitWindowEvent()
  Gadget=EventGadget()
  
  If Event=#PB_Event_Gadget And Gadget=2 
    MessageRequester("Сообщение","Была нажата кнопка")
    
  ElseIf Event=#PB_Event_Menu
    Select EventMenu()
      Case 0
        Break
    EndSelect
  EndIf 
  
Until Event = #PB_Event_CloseWindow 
End

0

4

  • Автор: ВиниПур
  • Активный участник
  • Зарегистрирован: 11.11.2010
  • Приглашений: 0
  • Сообщений: 271
  • Уважение: [+8/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 22 часа
  • Последний визит:
    12.03.2022 21:07:46
Код:
; по умолчанию пароль и логин admin
; пароль и логин не хранятся в программе

Define pwd$, log$, pass$
UseCRC32Fingerprint()
log$ = InputRequester("", "Введите ваш логин!", "")
pwd$ = InputRequester("", "Введите ваш пароль!", "", #PB_InputRequester_Password)
pass$ = pwd$+log$
;Debug StringFingerprint(pass$, #PB_Cipher_CRC32) ; f532ff8d запомнить при отладке и вставить в программу!

If StringFingerprint(pass$, #PB_Cipher_CRC32) <> "f532ff8d"
  MessageRequester("Ошибка!", "Неверный пароль или логин!",#PB_MessageRequester_Error)
  End
EndIf


OpenWindow(1,150,200,200,200,"Заголовок окна",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered|#PB_Window_SizeGadget)
 
TextGadget(0, 10, 10, 180, 16, "Текст")
ButtonGadget(2,50,70,80,25,"Кнопка")
SetWindowColor(1, RGB(5, 7, 250))
SetGadgetColor(0, #PB_Gadget_BackColor, RGB(5, 7, 250))
SetGadgetColor(0, #PB_Gadget_FrontColor, RGB(250, 250, 250))

CreateMenu(0, WindowID(1))
MenuTitle("Файл")
MenuItem(0, "Выход")

CreateStatusBar(0, WindowID(1))
AddStatusBarField(90)
AddStatusBarField(100)
StatusBarText(0, 0, "Area normal")
StatusBarText(0, 1, "Area borderless", #PB_StatusBar_BorderLess)

Repeat
  Event=WaitWindowEvent()
  Gadget=EventGadget()
  
  If Event=#PB_Event_Gadget And Gadget=2 
    MessageRequester("Сообщение","Была нажата кнопка")
    
  ElseIf Event=#PB_Event_Menu
    Select EventMenu()
      Case 0
        Break
    EndSelect
  EndIf 
  
Until Event = #PB_Event_CloseWindow 
End

Для смены пароля надо раскоментировать эту строчку
Debug StringFingerprint(pass$, #PB_Cipher_CRC32)
запустить код, ввести свой логин и пароль.
В окне отладки будет код похожий на этот "f532ff8d", но другой!
его вставить в в следующую строчку
If StringFingerprint(pass$, #PB_Cipher_CRC32) <> "вот сюда вставить"

0

5

  • Автор: Weyz
  • Участник
  • Зарегистрирован: 17.08.2020
  • Приглашений: 0
  • Сообщений: 11
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    11 часов 27 минут
  • Последний визит:
    02.04.2021 10:47:19
ВиниПур написал(а):

Для смены пароля надо раскоментировать эту строчку
Debug StringFingerprint(pass$, #PB_Cipher_CRC32)
запустить код, ввести свой логин и пароль.
В окне отладки будет код похожий на этот "f532ff8d", но другой!
его вставить в в следующую строчку
If StringFingerprint(pass$, #PB_Cipher_CRC32) <> "вот сюда вставить"

Я наверное вас уже задолбан,ну извините) Ничего не понял просто я только начинаю,можете сделать логин Weyz,а пороль 444sss444?
Вот смотрите я удаляю ;из строчки ;Debug StringFingerprint(pass$, #PB_Cipher_CRC32) ; f532ff8d запомнить при отладке и вставить в программу! и запускаю код что мне делать? или как раскоментировать строку.

0

6

  • Автор: ВиниПур
  • Активный участник
  • Зарегистрирован: 11.11.2010
  • Приглашений: 0
  • Сообщений: 271
  • Уважение: [+8/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 22 часа
  • Последний визит:
    12.03.2022 21:07:46
ВиниПур написал(а):

сделать логин Weyz,а пороль 444sss444?

Код:
; по умолчанию пароль 444sss444 и логин Weyz
; пароль и логин не хранятся в программе

Define pwd$, log$, pass$
UseCRC32Fingerprint()
log$ = InputRequester("", "Введите ваш логин!", "")
pwd$ = InputRequester("", "Введите ваш пароль!", "", #PB_InputRequester_Password)
pass$ = pwd$+log$
Debug StringFingerprint(pass$, #PB_Cipher_CRC32) ;  запомнить при отладке и вставить в программу!

If StringFingerprint(pass$, #PB_Cipher_CRC32) <> "702a1dd7"
  MessageRequester("Ошибка!", "Неверный пароль или логин!",#PB_MessageRequester_Error)
  End
EndIf


OpenWindow(1,150,200,200,200,"Заголовок окна",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered|#PB_Window_SizeGadget)
 
TextGadget(0, 10, 10, 180, 16, "Текст")
ButtonGadget(2,50,70,80,25,"Кнопка")
SetWindowColor(1, RGB(5, 7, 250))
SetGadgetColor(0, #PB_Gadget_BackColor, RGB(5, 7, 250))
SetGadgetColor(0, #PB_Gadget_FrontColor, RGB(250, 250, 250))

CreateMenu(0, WindowID(1))
MenuTitle("Файл")
MenuItem(0, "Выход")

CreateStatusBar(0, WindowID(1))
AddStatusBarField(90)
AddStatusBarField(100)
StatusBarText(0, 0, "Area normal")
StatusBarText(0, 1, "Area borderless", #PB_StatusBar_BorderLess)

Repeat
  Event=WaitWindowEvent()
  Gadget=EventGadget()
  
  If Event=#PB_Event_Gadget And Gadget=2 
    MessageRequester("Сообщение","Была нажата кнопка")
    
  ElseIf Event=#PB_Event_Menu
    Select EventMenu()
      Case 0
        Break
    EndSelect
  EndIf 
  
Until Event = #PB_Event_CloseWindow 
End

0

Страница: 1

Вы здесь » PureBasic - форум » Вопросы по PureBasic » окно регестирации в програме Pure Basic