Помогите пожалуйста.
Кому не валко выложите функцию на пакет RequestAuthLogin.
Ну или кто нибудь гляньте мою:
Цитата:
function TL2Control.LSRequestAuthLogin; // <- LSRequestAuthLogin
var
Login,
Password: String;
begin
Result.Info := 'RequestAuthLogin';
Result.Size := 48;
Result.Body := #$00+
#$00+#$00+#$00+#$00+#$00+#$00+#$00+#$00+#$00+#$00+ #$00+#$00+#$00+#$00+
#$00+#$00+#$00+#$00+#$00+#$00+#$00+#$00+#$00+#$00+ #$00+#$00+#$00+#$00+#$00+#$00+
#$08+#$00+#$00+#$00+#$00+#$00+#$00+#$00+#$00+
#$00+#$00+#$00+#$00+
#$00+#$00+#$00+#$00;
// приводим к нужному виду логин и пароль
Login := InAccount.Username;
Password := InAccount.Password;
while Length(Login) < 14 do Login := Login + #$00;
while Length(Password) < 16 do Password := Password + #$00;
SetPeace( Login, Result, 2, 15);
SetPeace(Password, Result, 16, 31);
LSSetCheckSum(Result);
LSEncryptPacket(Result);
end;
|