Code:
procedure DoRequestLogin(); begin Pku.Clear(); Pku.SetOpCode($6103); Pku.SetWriteIndex(6); [COLOR="Green"]//skip header[/COLOR] Pku.AppendDWord(WsId); [COLOR="Green"]//Session Id from responce[/COLOR] Pku.AppendWord(Length(LoginId)); [COLOR="Green"]//length of User Name[/COLOR] Pku.AppendString(LoginId); [COLOR="Green"]//User Name[/COLOR] Pku.AppendWord(Length(LoginPass)); [COLOR="Green"]//length of User password[/COLOR] Pku.AppendString(LoginPass); [COLOR="Green"]//User password[/COLOR] Pku.AppendByte(ClientLocal); [COLOR="Green"]//0x12[/COLOR] pku.AppendBuffer(@MacAddress, 6); [COLOR="Green"]//MAC Address eg. 00 00 00 C9 F2 94[/COLOR] Pku.PrepareAndSend(Socket, True); [COLOR="Green"] //Send with encryption[/COLOR] end;
Code:
S->C [600D] 05 00 0D 60 00 00 01 01 00 05 20 0B 00 0D 60 00 00 00 01 00 01 11 0D 05 00 00 00 02 05 00 0D 60 00 00 01 01 00 05 60 06 00 0D 60 00 00 00 03 00 02 00 02 S->C [0000] Enc 02 00 00 00 00 00 00 00
Where is my mistack ?






to manually seed System.Random with the tick count.
