Бан железа на легенде

[Xikko]

как бэ есть такая тема,но мне в ней не помогли так что обращаюсь к добрым людям ,которые помогут обойти бан железа на легенде.По скрипту который в теме выложен забанили ещё в январе.
Кто умеет ,пожалуйста помогите со скриптом

[$maile]

Цитата: Сообщение от Xikko как бэ есть такая тема,но мне в ней не помогли так что обращаюсь к добрым людям ,которые помогут обойти бан железа на легенде.По скрипту который в теме выложен забанили ещё в январе. Кто умеет ,пожалуйста помогите со скриптом

Скрипт клавра? Но, он же создает каждый раз новое случайное железо.Знач у вас забанили тупо аккаунт. Или по айпи

[Xikko]

скрипт manunya был, скрипт клавр мне не делал и не видел чтобы он где то в теме выкладывал его

[$maile]

Цитата: Сообщение от Xikko скрипт manunya был, скрипт клавр мне не делал и не видел чтобы он где то в теме выкладывал его

//Script by CLAVR and Usilok
var
 i,temp,size: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)=$14)  then 
            begin                  
               size:=Length(pck);
               For i := 1 to (size-58) do 
                  buf:=buf+pck[i]; 
               MacAddress;                      
               HWID;
               WriteS(ReadS(size-3));                        
               sendtoServer;
               pck:=''; 
            end; 
      
      if FromClient and (ReadC(1)=$45)  then 
            begin                
               buf:='';
               For i := 1 to 9 do 
                  buf:=buf+pck[i];   
               buf:=buf+HStr(mac);          
               sendtoServer;
               pck:=''; 
            end; 
end.

[Rec0rd]

Цитата: Сообщение от $mail //Script by CLAVR and Usilok var i,temp,size: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)=$14) then begin size:=Length(pck); For i := 1 to (size-58) do buf:=buf+pck[i]; MacAddress; HWID; WriteS(ReadS(size-3)); sendtoServer; pck:=''; end; if FromClient and (ReadC(1)=$45) then begin buf:=''; For i := 1 to 9 do buf:=buf+pck[i]; buf:=buf+HStr(mac); sendtoServer; pck:=''; end; end.

Помоги пожалуйста. Как им пользоваться?

[$maile]

Цитата: Сообщение от Rec0rd Помоги пожалуйста. Как им пользоваться?

Вкладка Автоматизация / Скрипты (Ctrl + E) / Новый скрипт / Пишим название / Стираем всё что есть, и добавляем скрипты / Ставим галочку справа , возле названия скрипта.

[Xikko]

вот вопрос возник,а этот скрипт не забанят? и он под 2.5?
проверил на легенде не пашет
так что тема актуальна

[$maile]

Цитата: Сообщение от Xikko вот вопрос возник,а этот скрипт не забанят? и он под 2.5? проверил на легенде не пашет так что тема актуальна

2.7 под 2.5 был от мани вашего (или как его там)
А легенда если что 2.5 + там пакеты свои, проси клавра за деньги пусть делает. А виртуалку запустить?

[Xikko]

на жуке помогают только за деньги.... ппц

[x777am]

Кто такой клавр?)) Я хочу обратиться))