[Скрипт] Смена Мак адреса+HWID для AionLegend

[c-lavr]

Переделал скрипт под "Легенду" ссылка

Скрипт:

//Script by CLAVR
var
 i,temp:integer;
 mac:string; 
 
Procedure casual;
Begin
 randomize; 
 temp:=RounD(Random*90+1);
end;


Procedure MacAddress;
Begin
   mac:='';
   for i := 1 to 17 do  
     if (i mod 3=0) then 
          buf:=buf+HStr('2D 00')
       else
          begin
             repeat
                casual;
             until temp in [48..57,65..70];
             WriteH(temp);
             mac:=mac+Chr(temp);
          end;
   buf:=buf+HStr('00 00');
end;

Procedure HWID;
Begin
   for i := 1 to 8 do  
         begin
             repeat
                casual;
             until temp in [48..57,65..90];
             WriteH(temp);
         end;
    buf:=buf+HStr('00 00');     
end;

begin         
     if FromClient and (ReadC(1)=$13)  then 
            begin                  
               buf:='';
               For i := 1 to 26 do 
                  buf:=buf+pck[i]; 
               MacAddress;                      
               HWID;
               for i := 81 to 84 do 
                  buf:=buf+pck[i];                        
               sendtoServer;
               pck:='';
            end;
end.

Инструкция:

- Скрипт запускать сразу же, после запуска L2ph
- На всем протяжении игрового процесса не выключать

[ВОЛОДЬ]

Скрипт класс и мировой чат пашет !!!!!!!

[Stane]

Цитата: Сообщение от c-lavr Переделал скрипт под "Легенду" ссылка Скрипт: //Script by CLAVR var i,temp:integer; mac:string; Procedure casual; Begin randomize; temp:=RounD(Random*90+1); end; Procedure MacAddress; Begin mac:=''; for i := 1 to 17 do if (i mod 3=0) then buf:=buf+HStr('2D 00') else begin repeat casual; until temp in [48..57,65..70]; WriteH(temp); mac:=mac+Chr(temp); end; buf:=buf+HStr('00 00'); end; Procedure HWID; Begin for i := 1 to 8 do begin repeat casual; until temp in [48..57,65..90]; WriteH(temp); end; buf:=buf+HStr('00 00'); end; begin if FromClient and (ReadC(1)=$13) then begin buf:=''; For i := 1 to 26 do buf:=buf+pck[i]; MacAddress; HWID; for i := 81 to 84 do buf:=buf+pck[i]; sendtoServer; pck:=''; end; end. Инструкция: - Скрипт запускать сразу же, после запуска L2ph - На всем протяжении игрового процесса не выключать

не сомневаюсь что работает, спасибку тыкнул...
Но всё же не знаю что такое "Мак адреса+HWID"
Расскажите пожалуйста. очень любопытно!

[Zhek@n]

скоро 3.0 на легенде,этот скрипт буит работать?)

[talala]

Цитата: Сообщение от Stane Но всё же не знаю что такое "Мак адреса+HWID" Расскажите пожалуйста. очень любопытно!

Дана ссылка в шапке темы

[VaB1]

Спасибо за проделанную работу)

[c-lavr]

44 пакет отвечает не за мак адрес, а за общий чат расы)
так-что смело выкидывайте его из скрипта.

[lumix1]

Ув. Клавр , будет ли скрипт актуален в версии триноль?

[Agone]

Уже не актуально, сделай пожалуйста под 3.0 легенду

[Stane]

Цитата: Сообщение от Agone Уже не актуально, сделай пожалуйста под 3.0 легенду

согласен, сделай по мере возможности! спасибо!

[Havoc007]

Ап темку. Ув. C-lavr, большая просьба подумать над скриптом для 3.0) Захотел поиграть на норм х1, а таковым только Легенда является) Зайти никак.
P.S. Ну или знает кто другой способ? Менял МАК wi-fi адаптера (сижу через роутер с wi-fi), менял, собственно сам роутер, менял HWID винта, IP динамический. Уж хз, по чему они там забанили.. Вроде как, банят на Легенде по MAC+HWID o_O. В общем, мистика)

[ВОЛОДЬ]

Havoc007,
винда какая?

[Nick666]

Автору спасибо, как будет время сделайте по новую легенду пожалуйста.

[talala]

Как только автор соберется, то сразу тему открою.