Регистрация на сервере

[Federal]

У меня есть простенький чат ( сервер и клиент )
Мне нужно реализовать регистрацию и вход в чат
типа ЛОГИН-ПАРОЛЬ(вход) ЛОГИН-ПАРОЛЬ-ПОДТВЕРЖДЕНИЕ ПАРОЛЯ-ИМЯ(регистрация)
+ каждому аккаунту должно прикреплятся некоторые переменные, например количество очков или координаты X/Y все это должно сохранятся до следующего захода аккаунта...

То есть нужен пример работы с аккаунтом его регистрацией и так далее

[Виталий Желтяков]

В архиве mht страница с примером (открывать oper-ой).

[Federal]

Вроде начало сделал но вот беда( -код не красивый слишком много переменных, да и вообще подход мне кажется неверный

var
//////klient//////
i1,i2,i3,i4: integer;
p1,p2,p3,p4,pppp: integer;
t1,t2,t3,t4: string;
vhod,reg,server,srt,sr:string;
//////server//////
S,S1,S2,S3,Sv,Sk:string;
R: array[1..20] of String;
i,p,pp,ppp:integer;
m,v:boolean;
///////////////////////////////////////////////
///////////////////KLIENT//////////////////////
///////////////////////////////////////////////
procedure TForm1.Button1Click(Sender: TObject);
//ВХОД
begin
t1:=Edit1.Text; t2:=Edit2.Text;
i1:=Edit1.GetTextLen; i2:=Edit2.GetTextLen;
p1:=10-i1; p2:=10-i2;
for p1:=1 to p1 do begin t1:=t1+' '; end;
for p2:=1 to p2 do begin t2:=t2+' '; end;
vhod:='01'+t1+t2;
ClientSocket1.Socket.SendText(vhod) ;
end;

procedure TForm1.Button2Click(Sender: TObject);
//РЕГИСТРАЦИЯ
begin
t3:=Edit3.Text; t4:=Edit4.Text;
i3:=Edit3.GetTextLen; i4:=Edit4.GetTextLen;
p3:=10-i3; p4:=10-i4;
for p3:=1 to p3 do begin t3:=t3+' '; end;
for p4:=1 to p4 do begin t4:=t4+' '; end;
reg:='00'+t3+t4;
ClientSocket1.Socket.SendText(reg);
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
Server:=Socket.ReceiveText;
for pppp:=1 to 2 do Sr:=Sr+Server[pppp];
if Sr='99' then
begin
Srt:=Server;
Memo3.Lines.Add(Srt);
end;
Server:='';Srt:='';Sr:='';
end;
///////////////////////////////////////////////
///////////////////SERVER//////////////////////
///////////////////////////////////////////////
procedure TForm1.ServerSocket1ClientRead(Send er: TObject;
Socket: TCustomWinSocket);
//ЧИТАЕМ
begin
S:=Socket.ReceiveText;
for pp:=1 to 2 do S1:=S1+S[pp];
////РЕГИСТРАЦИЯ
if S1='00' then
begin
for pp:=3 to 22 do S2:=S2+S[pp];
for pp:=3 to 12 do S3:=S3+S[pp];
m:=true;
for pp:=1 to i do
begin
Sv:=R[pp];
for ppp:=1 to 10 do Sk:=Sk+Sv[ppp];
if Sk=S3 then
begin
m:=false;
For i := 0 to ServerSocket1.Socket.ActiveConnecti ons - 1 do
ServerSocket1.Socket.Connections[i].SendText('99АККАУНТ СУЩЕСТВУЕТ');
end;
end;
if m=true then
begin
i:=i+1;
R[i]:=S2;
end;
Sk:=''; Sv:=''; S3:=''; S2:='';
end;
////ВХОД
if S1='01' then
begin
for pp:=3 to 22 do S2:=S2+S[pp];
v:=false;
for pp:=1 to i do
begin
Sv:=R[pp];
for ppp:=1 to 20 do Sk:=Sk+Sv[ppp];
if Sk=S2 then v:=true;
end;
if v=true then
begin
/////PROCHLO
end;
Sk:=''; Sv:=''; S2:='';
end;
S1:=''; S:='';
end;

http://dump.ru/file/4696953

[D@rkD@iver]

а он хоть работает?

[Federal]

Он регистрирует аккаунт проверяя на совпадения а вот авторизацию я еще не продумал(
Скачай Вон сылка снизу

У меня вопрос может для этого другие компоненты использовать надо?
Я не думаю что на серверах регистрация и авторизация проходит по этому принципу...