[PackegerX]

я хз как там с пхп и т.д. но предлагаю свой код, мб чем-нибудь тебе и поможет.
тут короче работает через файл, если переделать можно добиться работы через БД.

Print ("Registration.")
User_Log$=Input$("Введите логин: ")
User_Pas$=Input$("Введите пароль: ")

LogPasFile=WriteFile ("MyLogPas.txt")
	WriteLine (LogPasFile,User_Log$)
	WriteLine (LogPasFile,User_Pas$)
CloseFile(LogPasFile)

Repeat
Cls
If  login=True Then chat=1
Select chat
Case 0
	Locate 0,0
	Print ("Login.")
	User_Log$=Input$("Введите логин: ")
	User_Pas$=Input$("Введите пароль: ")

	LogPasFile=ReadFile ("MyLogPas.txt")
	LoadLogin$=ReadLine$(LogPasFile)
	LoadPas$=ReadLine$(LogPasFile)
	CloseFile(LogPasFile)

	If User_Log$=LoadLogin$ And User_Pas$=LoadPas$ Then login=True
	If User_Log$<>LoadLogin$ Or User_Pas$<>LoadPas$ Then Print "Неверный логин или пароль.":Delay 2000
Case 1
	Print User_Log$+" Entered in chat."
	WaitKey
	End
End Select
Forever