procedure LoginXORDecrypt - или как обратить функцию.

[xkor]

Сообщение от arrjj

У тебя в сорсах так)))

у меня так в сорцах может быть только есть PckStr не строка а массив байт/символов ибо у строк индексация с единици а у массивов обычно с нуля, и прогая на паскале/дельфи это надо усвоить в первую очередь!)

Добавлено через 2 минуты

Сообщение от Алёна

абажаю ваш форум, и тебя Xor!

тогда хотябы правильно меня называй, я не xor, не Xor и даже не Xkor, я именно xkor!!

[arrjj]

            switch(inptype)
            {
            case 0x2E://InitCrypt
                {
                    if(!in.readC())
                        QMessageBox::information(NULL, "L2M Alfa:Omg",
                                                 "Wrong protocol version can be troubles :'(");
                    for(int x=0;x<8;x+=1)
                    {
                        inxorkey[x]=in.readC();
                        outxorkey[x]=inxorkey[x];
                    }
                    xorkeyaccepted=true;
                    out.writeC(0x2b);
                    l2m_mstr a;
                    l2m_uch tmp[28];
                    for(int x=0;x<28;x+=1)
                        tmp[x]=0;
                    for(int x=0;x<14;x+=1)
                        tmp[x*2]=ulogin[x];
                    a.fromuch(tmp,28);
                    a.killzero();
                    out.writeS(&a,true);
                    out.writeC(0x00);
                    out.writeD(playOK[1]);
                    out.writeD(playOK[0]);
                    out.writeD(loginOK[0]);
                    out.writeD(loginOK[1]);
                    out.writeD(0);
                    out.writeD(0);
                    out.writeD(0);
                    sendpacket();
                }
                break;
}

Так у мну в клиенте а так на l2j серваке

	public void writeImpl()
	{
		writeC(0x2e);
		writeC(_id); //0 - wrong protocol, 1 - protocol ok
		for (int i = 0; i < 8; i++)
		{
			writeC(_key[i]); // key
		}
		writeD(0x01);
		writeD(0x01); // server id
		writeC(0x01);
		writeD(0x00); // obfuscation key
	}

[Алёна]

     PckStr:=#$2E;
     WriteC(PckStr,$01);
     WriteD(PckStr,777777);
     WriteD(PckStr,777777);
     WriteD(PckStr,666666);
     WriteD(PckStr,1);
     WriteC(PckStr,$01);
     WriteD(PckStr,0);
     WriteD(PckStr,0);
     WriteD(PckStr,0);
     CryptXor.InitKey(PckStr[2],True);   //7B 32 8B 04 77 24 90 F3
     SendToClient(PckStr);

Переписала, ничего не изменилось

[Алёна]

А абажаю ваш форум, и тебя Xor! Всё разаработало!

Зы: имхо на coderx.ru - самые отзывчивые жители! Спасибо всем большое!

[alexteam]

да ладн те.. не растраивайся.. вспомни квака (или гака)... мла.. я так до сих пор и не знаю как правильно прочитать ))

[Алёна]

xkor, прости....