на 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 и скрипт не помогает , кто может переделать скрипт или же помочь , буду благодарен .
на 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 и скрипт не помогает , кто может переделать скрипт или же помочь , буду благодарен .