Вернуться   CoderX :: Forums > Lineage II > L2PacketHack
Войти через OpenID

L2PacketHack Форум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела! Обсуждение багов Lineage ЗАПРЕЩЕНО!

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 18.02.2011, 15:03   #11
Новичок
 
Аватар для AHTOWKA
 
Регистрация: 06.02.2011
Сообщений: 18
Сказал Спасибо: 2
Имеет 1 спасибку в 1 сообщении
AHTOWKA пока неопределено
По умолчанию

во первых подумайте хорошо конкретно сами почему неможите зайти с l2.bin во вторых боты невлияют на шифровку и дешифровку пакетов в третих ето не сайт читеров

ps:кому помог спасибку =)
__________________
самый лучший бот ето авто кликер)

Последний раз редактировалось NLObP, 18.02.2011 в 15:15.
AHTOWKA вне форума   Ответить с цитированием
Старый 01.03.2011, 21:40   #12
Новичок
 
Регистрация: 15.02.2011
Сообщений: 10
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
g1oom08 пока неопределено
По умолчанию

Log packetov pri vxode http://s57.radikal.ru/i158/1103/7c/91d9318519fa.png (giran centr, mnogo NPC + trade botu)
взял за основу Бота Точки Скилов
ефектов 0....не реагирует....в чем можт быть проблема? как обойти?

Добавлено через 5 минут
Цитата:
Сообщение от AHTOWKA Посмотреть сообщение
во первых подумайте хорошо конкретно сами почему неможите зайти с l2.bin во вторых боты невлияют на шифровку и дешифровку пакетов в третих ето не сайт читеров

ps:кому помог спасибку =)
1.Тогда почему перестали работать боты? не 1 БОТ даж на точку не работает
2.защита сервера относится к ботам,я не прошу баги читы и тд...

Последний раз редактировалось g1oom08, 01.03.2011 в 21:40. Причина: Добавлено сообщение
g1oom08 вне форума   Ответить с цитированием
Старый 02.03.2011, 04:06   #13
Местный
 
Регистрация: 18.08.2010
Сообщений: 110
Сказал Спасибо: 1
Имеет 22 спасибок в 18 сообщенях
lordoftherea1m пока неопределено
По умолчанию

Внезапно, это не бот. А скрипт, автоматизирующий определенные действия.
Тебе уже ответили. 95%, что там стоит леймгвард, а чтобы разобраться в шифровке трафика на нем надо обладать определенными навыками, которых, судя по твоему вопросу у тебя нет.
5% что там какая-нибудь самопальная защита подменяющая первый байт, но даже так, ты не разберешься, если такой топик создал.
lordoftherea1m вне форума   Ответить с цитированием
Старый 21.07.2011, 12:25   #14
Пользователь
 
Аватар для EmL
 
Регистрация: 21.07.2011
Сообщений: 48
Сказал Спасибо: 6
Имеет 20 спасибок в 12 сообщенях
EmL пока неопределено
По умолчанию

раньше конечно все юзали такое но сейчас новые хроники,новая защита ну я тебе дам скрипт на точку вчера сам проверял)

PHP код:
const
   
myname='';    //<<== пишем свой НИК
   
max=80;            //<<== колличество ячеек в рюкзаке
   
enchantResult=16;  //<<== на сколько точить
   
encSafe=3;         //<<== на сколько безопасно точить
var
  
BaseItems:array[1..max,1..10of integer;
  
EncItems:array[1..10of integer;
  
Timer01,Timer02TTimer;
  
mytext:string;
  
x,textID,vsego:integer;
  
enchantID,enchantObjectID:integer;
  
ItemOID,objectOID,selectObjectID,itemID:integer;
  
skrolObjectID,bskrolObjectID,skrolAmount,bskrolAmount,skrolID,bskrolID,skrolOID,bskrolOID:integer;
  
enchantLevel:word;
  
start,startenchant:Boolean;
//---
procedure SendMsg2(msg:string);
begin
  buf
:=#$4A;
  
WriteD(0);
  
WriteD(10);
  
WriteS('');
  
WriteS(msg);
  
SendToClientEx(myname);
end;
//...
procedure ItemList;
var
  
ijkinteger;
  
ListSizeinteger;
 
begin
   j
:=4//пропускаем дo ListSize
  
ListSize:=ReadH(j);
  for 
i:=1 to ListSize do
  if (
i<=ListSizethen begin
      BaseItems
[i,1]:=ReadH(j);  //ItemType1- 1:одето броня. 0:бижа. 4:в рюкзаке
      
BaseItems[i,2]:=ReadD(j);  //ObjectID
      
BaseItems[i,3]:=ReadD(j);  //ItemID
      
BaseItems[i,4]:=ReadD(j);  //LocationSlot
      
BaseItems[i,5]:=ReadD(j);  //  q Amount:
               
j:=j+4;           //  q Amount:
      
BaseItems[i,6]:=ReadH(j);  //ItemType2
      
BaseItems[i,7]:=ReadH(j);  // CustomType1
      
BaseItems[i,8]:=ReadH(j);  //isEquipped:
      
BaseItems[i,9]:=ReadD(j);  //BodyPart
      
BaseItems[i,10]:=ReadH(j); //EnchantLevel
       //SendMsg2( ' List;  ItemID------- :  '+IntToStr(BaseItems[i,3])+'' );
        
inc(j,30);// ФИНАЛ
 
end else for k:=1 to 10 do BaseItems[i,k]:=0;    // забиваем нулями
 
if (0<ItemIDthen objectOID:=GetObjectID(ItemID);//находим по ItemID  предмет с ObjectID
 
end;
//===
//находим ItemID по ObjectID предмета
function GetItemID(enchantObjectID:integer) : integer;
var
  
integer;
begin
  
for i:=1 to max do
    if (
BaseItems[i,2]=selectObjectIDthen begin
        itemID
:=BaseItems[i,3];
         
SendMsg2 ('- ID предмета для Заточки:'+IntToStr(itemID)+' ');
        
start:=true;
        exit;
    
end;
end;
//===
//находим enchantID предмета по  ItemID для заточки
function GetObjectID(itemID:integer) : integer;
var
  
:integer;
 
begin
 enchantLevel
:=0;
 
vsego:=0;
 for 
i:=1 to max do
  if (
BaseItems[i,3]=itemID) and (BaseItems[i,10]< enchantResultthen begin
   vsego
:=vsego+1;
   
EncItems[vsego]:=i;                   
   if (
vsego 1then begin
    enchantLevel
:=BaseItems[i,10];
    
enchantID:=BaseItems[i,2];
   
end;
   if (
vsego 1) and (BaseItems[i,10] < enchantLevelthen begin
    enchantLevel
:=BaseItems[i,10];
    
enchantID:=BaseItems[i,2];
   
end;
  
end;
        
//SendMsg2( '- В Ы Б Р А Н предмет для Заточки');
        //SendMsg2( '- ObjID предмета='+IntToStr(enchantID)+' ');
        //SendMsg2( '- точим предмет до: '+IntToStr(enchantResult)+' ' );
        
SendMsg2'- предметов для заточки: '+IntToStr(vsego)+' ' );
        
SendMsg2'- минимально заточен на: '+IntToStr(enchantLevel)+' ' );
        
x:=1;
    if 
startenchant then begin
     Timer01
.enabled:=true;
    
end else begin
     SendMsg2
'- cоцдействие ДА для старта' );
    
end;
end;
//===
procedure OnTimer01(SenderTObject);
begin
case x of
1
:begin
  buf
:=#$19;
  
if enchantLevel encSafe then begin
   WriteD
(skrolObjectID); //простая заточка
  
end else begin
   WriteD
(bskrolObjectID);//блессед заточка
  
end;
  
WriteD(0);
  
SendToServerEx(myname);
  
inc(x);
  
end;
2:begin
  buf
:=hstr('D04C00');
  
WriteD(enchantID);
  
SendToServerEx(myname);
  
Timer02.enabled:=true;
   
x:=0;
  
Timer01.enabled:=false;
end;
end;
end;
//---
procedure OnTimer02(SenderTObject);
begin
  buf
:=#$5F;
  
WriteD(enchantID);
  
WriteD(0);
  
SendToServerEx(myname);
  
Timer02.enabled:=false;
 
SendMsg2'- Т О Ч И М предмет: '+IntToStr(enchantID)+' ' );
end;
//----------------------------------------------------------------------------------- start
procedure Init;
begin
   itemID
:=0;
   
enchantID:=0;
   
enchantLevel:=0;
   
start:=false;
   
startenchant:=false;
   
skrolObjectID:=0;
   
bskrolObjectID:=0;
   
enchantObjectID:=0;
 
   
Timer01:=TTimer.Create(nil);
   
Timer01.OnTimer:=@OnTimer01;
   
Timer01.enabled:=false;
   
Timer01.interval:=500//<<== время выбора свитка и предмета

   
Timer02:=TTimer.Create(nil);
   
Timer02.OnTimer:=@OnTimer02;
   
Timer02.enabled:=false;
   
Timer02.interval:=2800//<<== время между заточкой 
SendMsg2'- ***** скрипт включился *****' );
SendMsg2'- ник: '+myname+', ячеек инвентаря: '+IntToStr(max)+' ' );
SendMsg2'- будем точить до '+IntToStr(enchantResult)+' ' );
SendMsg2'- выберите обычную заточку ' );
 
x:=0;
  
end;
procedure Free;
begin
  Timer01
.free;
  
Timer02.free;
end;
//=========================
procedure RequestActionUse;
begin
case ReadD(2of
  24
:begin
     startenchant
:=true;
          
x:=1;
     
Timer01.enabled:=true;
      
SendMsg2'- П О Е Х А Л И -' );
      
SendMsg2'- соцдействие НЕТ для остановки' );
     
buf:=hstr('14');
     
SendToServerEx(myname);
     
pck:='';
     exit;     
    
end;
  
25:begin
     start
:=false;
     
startenchant:=false;
     
Timer01.enabled:=false;
     
Timer02.enabled:=false;
      
SendMsg2'- С Т О П -' );
      
SendMsg2'- cоцдействие ДА для старта' );
     
pck:='';
     exit;     
    
end;
end;
end;
//=========
begin
 
if FromServer and (pck[1]=#$11) then ItemList;
 
if FromClient then
  
case pck[1of
 
#$56:RequestActionUse;
 #$19:if skrolObjectID = 0 then begin
       
skrolObjectID:=ReadD(2);
        
SendMsg2'- ObjID обычного свитка: '+IntToStr(skrolObjectID)+'' );
        
SendMsg2'- выберите блессед заточку' );
       
buf:=hstr('14');
       
SendToServerEx(myname);
      
end else if bskrolObjectID 0 then begin
       bskrolObjectID
:=ReadD(2);
        
SendMsg2'- ObjID блессед свитка: '+IntToStr(bskrolObjectID)+'' );
        
SendMsg2'- заточите нужный предмет' );
       
buf:=hstr('14');
       
SendToServerEx(myname);
      
end;
 
#$D0:if  ReadH(2)=76 then  begin
   
selectObjectID:=ReadD(4);
   
end;
 
#$5F:begin
    
enchantObjectID:=ReadD(2);
    
ItemOID:=GetItemID(enchantObjectID);//находим по ObjectID предмет с ItemID
    
end;
end;
end
p.s скрипт тамбика ему отдельное спасибо =)
EmL вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 03:08.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!