[Скрипт] Обход бана

[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]

Цитата: Сообщение от 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]

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

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

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