login.pas

仙境传说(RO)私人服务器端源代码。第一次上传。

unit Login;



interface

uses
//Windows, Forms, Classes, SysUtils, Math, ScktComp, Common;
	Windows,Classes, SysUtils, ScktComp, Common, Database;

//==============================================================================
// 娭悢掕媊
		procedure sv1PacketProcess(Socket: TCustomWinSocket);  //edited by The Harbinger -- darkWeiss version
//==============================================================================


//==============================================================================
// 捛壛娭悢
//==============================================================================
// procedure sv1PacketProcessSub(Socket: TCustomWinSocket;w :word;userid:string;userpass  :string);
// 僷僗儚乕僪妋擣仺儘僌僀儞惉岟 張棟
//             
//==============================================================================
// function sv1PacketProcessTo(Socket: TCustomWinSocket;w :word;userid:string;userpass  :string):Boolean;
// 儘僌僀儞帪偵Toplayer.txt傪撉傒崬傒丄僨乕僞偑偁傟偽player.txt偵捛壛偡傞丄
// 嵞婲摦偼昁梫側偄
// (GM傾僇僂儞僩嶌惉梡偐側)
//
//==============================================================================
// function sv1PacketProcessAdd(Socket: TCustomWinSocket;w :word;userid:string;userpass  :string):Boolean;
// 儘僌僀儞帪偵addplayer.txt傪撉傒崬傒丄僨乕僞偑偁傟偽player.txt偵捛壛偡傞丄
// 僩儔儞僓僋僔儑儞ID偼帺摦偱偮偗傜傟傞
// 嵞婲摦偼昁梫側偄 
// (晛捠偺傾僇僂儞僩偼偙偭偪偱捛壛)
//





implementation
//==============================================================================
// 儘僌僀儞僒乕僶乕僷働僢僩張棟

//儘僌僀儞惉岟
procedure sv1PacketProcessSub(Socket: TCustomWinSocket;w :word;userid:string;userpass  :string);
var
	tp        :TPlayer;
        count:integer;
begin

				tp := PlayerName.Objects[PlayerName.IndexOf(userid)] as TPlayer;
				if tp.Pass = userpass then begin
        
        if (BannedDB.IndexOf(Socket.RemoteAddress) <> - 1) then begin
          ZeroMemory(@buf[0],23);
					WFIFOW( 0, $006a);
					WFIFOB( 2, 4);
					Socket.SendBuf(buf, 23);
          Exit;
        end;

                                  {2廳儘僌僀儞僠僃僢僋}
                                  if tp.Login = 1 then
                                  begin
                                    count := 0;

                                    while count < 8 do
                                    begin
                                      if (tp.CData[count] <> nil)and(tp.CData[count].Login <> 0) then
                                      begin
                                        //2廳儘僌僀儞
			        	      WFIFOW( 0, $0081);
			       	              WFIFOB( 2, 08);
			         	      tp.CData[count].Socket.SendBuf(buf, 3);
                                               DebugOut.Lines.Add('Double Login.');
                                      end;
                                      inc(count);
                                    end;
                                  end;
                                  {2廳儘僌僀儞僠僃僢僋丂偙偙傑偱}

					tp.IP := Socket.RemoteAddress;
					tp.Login := 1;
					tp.LoginID1 := Random($7FFFFFFF) + 1;
					tp.LoginID2 := NowLoginID;
					Inc(NowLoginID);
					if NowLoginID >= 2000000000 then NowLoginID := 0;     
							DebugOut.Lines.Add('tp.ver2 = '+inttostr(w));
					//tp.ver2 := w;
					tp.ver2 := 9;

					WFIFOW( 0, $0069);
					WFIFOW( 2, 79);
					WFIFOL( 4, tp.LoginID1);
					WFIFOL( 8, tp.ID);
					WFIFOL(12, tp.LoginID2);
					WFIFOL(16, 0);
					WFIFOS(20, PChar(FormatDateTime('yyyy-mm-dd hh:nn:ss.zzz', Now)), 24);
					WFIFOW(44, 0);
					WFIFOB(46, tp.Gender); //sex 0=F 1=M
					WFIFOL(47, ServerIP);
					WFIFOW(51, sv2port);
					WFIFOS(53, ServerName, 20);
					WFIFOW(73, NowUsers);
					WFIFOW(75, 0);
					WFIFOW(77, 0);
					Socket.SendBuf(buf, 79);
				end else begin
					ZeroMemory(@buf[0],23);
					WFIFOW( 0, $006a);
					WFIFOB( 2, 1);
					Socket.SendBuf(buf, 23);
				end;
end;


//傾僇僂儞僩捛壛
// Toplayer.txt偵彂偒崬傫偩傾僇僂儞僩僨乕僞傪偦偺傑傑庢傝崬傓
//
function sv1PacketProcessTo(Socket: TCustomWinSocket;w :word;userid:string;userpass  :string):Boolean;
var
	userdata  :string;
	count        :integer;
        addtxt :TextFile;
        txt :TextFile;
        tempList,tempList2:TStringList;
begin
  Result := False;
    //DataSave();
    tempList := TStringList.Create;  
    tempList2 := TStringList.Create;
    if FileExists(AppPath + 'Toplayer.txt') then begin
           tempList.LoadFromFile(AppPath + 'Toplayer.txt');

          if FileExists(AppPath + 'player.txt') then begin
           tempList2.LoadFromFile(AppPath + 'player.txt');

           tempList2.AddStrings(tempList);
           tempList2.SaveToFile(AppPath + 'player.txt');
            tempList.Clear;
            tempList.SaveToFile(AppPath + 'Toplayer.txt');
            Result := True;
          end;
     end;
end;

//傾僇僂儞僩捛壛
// addplayer.txt偵彂偒崬傫偩傾僇僂儞僩僨乕僞偵
// 僩儔儞僓僋僔儑儞ID傪晅偗捈偟偰庢傝崬傓
//
function sv1PacketProcessAdd(Socket: TCustomWinSocket;w :word;userid:string;userpass  :string):Boolean;
var
	userdata  :string;
	count        :integer;
        addtxt :TextFile;
        txt :TextFile;
begin
  Result := False;
           DataSave();

           sv1PacketProcessTo(Socket,w,userid,userpass);
           AssignFile(addtxt, AppPath + 'addplayer.txt');
           AssignFile(txt, AppPath + 'player.txt');
       	  if not FileExists(AppPath + 'player.txt') then begin
                   Rewrite(txt);
                   Writeln(txt, '##Weiss.PlayerData.0x0002');
          end else
          begin
            Append(txt);
          end;
          if FileExists(AppPath + 'addplayer.txt') then
          begin
            Reset(addtxt);
            count := 1;
						while not SeekEof(addtxt) do
            begin
              Readln(addtxt,userdata);
              Writeln(txt, inttostr(100100+PlayerName.Count+count)+','+userdata);
              DebugOut.Lines.Add('Account Creation');
              Writeln(txt, '0');
              inc(count);
            end;
            Flush(txt);  { 僥僉僗僩偑幚嵺偵僼傽僀儖偵彂偒崬傑傟偨偙偲傪妋偐傔傞 }
            CloseFile(txt);

            Rewrite(addtxt);
            Flush(addtxt);  { 僥僉僗僩偑幚嵺偵僼傽僀儖偵彂偒崬傑傟偨偙偲傪妋偐傔傞 }
						CloseFile(addtxt);

            PlayerName.Clear;
            Player.Clear;

            PlayerDataLoad();

						//CharaName.Clear;
            //Chara.Clear;
            //PartyNameList.Clear;
{巵{敔捛壛}
						//SummonMobList.Clear;
						//SummonIOBList.Clear;
						//SummonIOVList.Clear;
						//SummonICAList.Clear;
						//SummonIGBList.Clear;
{巵{敔捛壛僐僐傑偱}
{NPC僀儀儞僩捛壛}
						//ServerFlag.Clear;
						//MapInfo.Clear;
{NPC僀儀儞僩捛壛僐僐傑偱}
{僊儖僪婡擻捛壛}
						//GuildList.Clear;
{僊儖僪婡擻捛壛僐僐傑偱}
            //PetList.Clear;
            //DataLoad();

            if PlayerName.IndexOf(userid) = -1 then exit;
						sv1PacketProcessSub(Socket,w,userid,userpass);
            Result := True;
         end;
end;
//==============================================================================
// 儘僌僀儞僒乕僶乕僷働僢僩張棟
procedure sv1PacketProcess(Socket: TCustomWinSocket);
var
	id        :integer;
	w         :word;
	l         :longword;
	len       :integer;
	userid    :string;
	userpass  :string;
  txt :TextFile;
begin
	len := Socket.ReceiveLength;

	if len >= 55 then begin
		Socket.ReceiveBuf(buf, len);
		if (buf[0] = $64) and (buf[1] = $0) then begin
			RFIFOL(2, l);
			//DebugOut.Lines.Add('ver1 ' + IntToStr(l));
			RFIFOW(54, w);
			userid := RFIFOS(6, 24);
			userpass := RFIFOS(30, 24);

			DebugOut.Lines.Add('1:Login ID = ' + userid + ' Pass = ' + userpass);
			DebugOut.Lines.Add('ver1 = ' + IntToStr(l) + ':ver2 = ' + IntToStr(w));

			id := PlayerName.IndexOf(userid);
			if id <> -1 then begin
      sv1PacketProcessSub(Socket,w,userid,userpass);
			end else begin
      if not sv1PacketProcessAdd(Socket,w,userid,userpass) then begin
				ZeroMemory(@buf[0],23);
				WFIFOW( 0, $006a);
				WFIFOB( 2, 0);
				Socket.SendBuf(buf, 23);
      end;
			end;
		end;
	end;
end;
//==============================================================================
end.