Обход бана

[lumix1]

на 2,5 использовал скрипт Клавра .
//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.

Легенда обновилась до 3,0 и скрипт не помогает , кто может переделать скрипт или же помочь , буду благодарен .

[Agone]

Просоединяюсь.

[lightbearer]

на 2,5 использовал скрипт Клавра .
//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.

Легенда обновилась до 3,0 и скрипт не помогает , кто может переделать скрипт или же помочь , буду благодарен .
Скинь сюда пает захода в игру попробую.

[Agone]

Скинь сюда пает захода в игру попробую.

Дело в том что забаненному его несловить :\

Да и пакетник все пакеты распознаёт нак Unknown, это впорядке вещей для 3.0?