Skocz do zawartości

[Skrypt] Hunting 2012


Gość Pan Maciek

Rekomendowane odpowiedzi

Co robi:

 

......

Wg. Autora SKRYPT NIE JEST BEZPIECZNY!

Dzięki bogu, bo nie nawidze takich haxów!

 

Pod jakim wzgledem Nie bezpieczny?! Skoro to skrypt a gdy działały stare dużo osób na nich latało i nie otrzymało nic. Ciekawe....

4112421483.png


Pomogłem? Daj "lubie to"


Powróciłem do życia po 6 Latach spędzonych w DarkOrbit!!!!


Olejcie tą grę!!!

Odnośnik do komentarza

Muszek a to już można w samym skrypcie poprawić. Hmm.. tylko dokładnie nie wiem gdzie wpisuje się zamiast "zaprosił gracza - osłona" i w kodzie też jest że pokazując niewidki można wpisać co się chce. Ktoś wie jak to poprawić?

4112421483.png


Pomogłem? Daj "lubie to"


Powróciłem do życia po 6 Latach spędzonych w DarkOrbit!!!!


Olejcie tą grę!!!

Odnośnik do komentarza

Muszek a to już można w samym skrypcie poprawić. Hmm.. tylko dokładnie nie wiem gdzie wpisuje się zamiast "zaprosił gracza - osłona" i w kodzie też jest że pokazując niewidki można wpisać co się chce. Ktoś wie jak to poprawić?

 

To nie jest tylko zmiana tekstu.

To pokazuje Ci HP i SH w postaci zaproszenia, taki "injector" :)

Mógłbyś to zastąpić innymi logami.

Odnośnik do komentarza

Trzymajcie zdekompilowany skrypt

 

const
Title = 'Title:Hunting script 2012 by Vonyx [ePvP]';
var
intMaxHP, intMaxShield, intLenShield, intLenHP, index, intNlen, intClen, intHP, intShield, counter, i, bb, h: integer;
strTmp, strTarget, strComp, strNlen, strClen, strUNK, strUID, Shield, MaxShield, HP, MaxHP: string;
intOutLen2, intOutLen1, aa: string;
procedure OnCreate;
begin
end;
procedure OnDestroy;
begin
end;
begin
ScriptTimeout(99999);
gMisc.PrintVariablesOff;
if (_gServPort=8080)and(not _gFromserv) then
begin
if pos(Hstr('000800a5'), _gBuff)>0 then
begin
counter := ScanPck5(_gBuff, 7, 'a04', strTarget, NULL, NULL, NULL, NULL);
end;
end;
if (_gServPort=8080)and(_gFromserv) then
begin
if pos(Hstr('00530000'), _gBuff)>0 then
begin
counter := pos(Hstr('00530000'), _gBuff);
if (Gint(_gBuff, htons(Gint(_gBuff, counter-2, 2))-13+counter, 1)>0) then
begin
_gbuff[htonsGint(_gBuff, counter-2, 2)-12+counter] := Hstr('01');
end;
_gOutBuff := _gbuff;
end;
if pos(Hstr('00320000')+strTarget, _gBuff)>0 then
begin
counter := pos(Hstr('001D0032'), _gBuff)+14;
counter := ScanPck5(_gBuff, counter, 'dddd', intShield, NULL, intHP, NULL, NULL);
intShield := htonl(intShield);
intHP := htonl(intHP);
intLenHP := length(IntToStr(intHP));
intLenShield := length(IntToStr(intShield));
intOutLen1 := IntToHex(50+intLenHP+intLenShield, 4);
intOutLen2 := IntToHex(44+intLenHP+intLenShield, 4);
gSys.SendC(Hstr(intOutLen1)+Hstr('00010000')+Hstr(intOutLen2)+'0|ps|inv|new|70115657|HP '+IntToStr(intHP)+'|10|26875635|SH '+IntToStr(intShield)+'|10');
end;
if pos(Hstr('001f001c0000001b'), _gBuff)>0 then
begin
counter := pos(Hstr('001f001c0000001b'), _gBuff)+16;
counter := ScanPck5(_gBuff, counter, 'a04dd', strTmp, intHP, intShield, NULL, NULL);
if (strTmp=strTarget) then
begin
intShield := htonl(intShield);
intHP := htonl(intHP);
intLenHP := length(IntToStr(intHP));
intLenShield := length(IntToStr(intShield));
intOutLen1 := IntToHex(50+intLenHP+intLenShield, 4);
intOutLen2 := IntToHex(44+intLenHP+intLenShield, 4);
gSys.SendC(Hstr(intOutLen1)+Hstr('00010000')+Hstr(intOutLen2)+'0|ps|inv|new|48067897|HP '+IntToStr(intHP)+'|10|21790351|SH '+IntToStr(intShield)+'|10');
end;
end;
if pos('0|n|INV|', _gBuff)>0 then
begin
_gBuff[pos'0|n|INV|'_gBuff+17] := '0';
_gOutBuff := _gbuff;
end;
end;
end.

 

Hehe tylko gdzie to zmienić :P

Ja nie ogarniam tego języka nawet :huh:

Odnośnik do komentarza

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

  • Ostatnio przeglądający forum [Skrypt] Hunting 2012   0 użytkowników
    • Brak zarejestrowanych użytkowników przeglądających tę stronę.
×
×
  • Dodaj nową pozycję...