PDA

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

c-lavr
23.11.2012, 22:19
Переделал скрипт под "Легенду" ссылка ([Ссылки могут видеть только зарегистрированные и активированные пользователи])

Скрипт:
//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
- На всем протяжении игрового процесса не выключать
ВОЛОДЬ
23.11.2012, 22:40
Скрипт класс и мировой чат пашет !!!!!!!
Stane
24.11.2012, 13:35
Переделал скрипт под "Легенду" ссылка ([Ссылки могут видеть только зарегистрированные и активированные пользователи])

Скрипт:
//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
24.11.2012, 14:02
скоро 3.0 на легенде,этот скрипт буит работать?)
talala
24.11.2012, 14:10
Но всё же не знаю что такое "Мак адреса+HWID"
Расскажите пожалуйста. очень любопытно!
Дана ссылка в шапке темы
VaB1
24.11.2012, 17:40
Спасибо за проделанную работу)
c-lavr
25.11.2012, 12:44
44 пакет отвечает не за мак адрес, а за общий чат расы)
так-что смело выкидывайте его из скрипта.
lumix1
29.11.2012, 13:01
Ув. Клавр , будет ли скрипт актуален в версии триноль?
Agone
03.12.2012, 17:22
Уже не актуально, сделай пожалуйста под 3.0 легенду
Stane
04.12.2012, 00:10
Уже не актуально, сделай пожалуйста под 3.0 легенду

согласен, сделай по мере возможности! спасибо!
Havoc007
04.01.2013, 20:25
Ап темку. Ув. C-lavr, большая просьба подумать над скриптом для 3.0) Захотел поиграть на норм х1, а таковым только Легенда является) Зайти никак.
P.S. Ну или знает кто другой способ? Менял МАК wi-fi адаптера (сижу через роутер с wi-fi), менял, собственно сам роутер, менял HWID винта, IP динамический. Уж хз, по чему они там забанили.. Вроде как, банят на Легенде по MAC+HWID o_O. В общем, мистика)
ВОЛОДЬ
06.01.2013, 00:04
Havoc007,
винда какая?
Nick666
08.01.2013, 02:13
Автору спасибо, как будет время сделайте по новую легенду пожалуйста.
talala
08.01.2013, 23:50
Как только автор соберется, то сразу тему открою.