[Помогите!] Старые скрипты

[Go F**k]

Ребят у кого есть старые скрипты DO_Aurora
Antistealsh&Autolock или просто антиневид, миксер
скиньте плиз

[valsoray-zh]

Сорсы Antistealth&Avtolok.sc
Тыц

Цитата: Content-Disposition: form-data; name="file"; filename="Antistealth&Avtolok.sc" Content-Type: multipart/form-data Content-Transfer-Encoding: binary var iCountPack, grup, iPos, i, ras, s2, s3, s4, lastPackEndPos, lastPackStartPos, MyCoordX, MyCoordY, xTarget, yTarget: integer; sStr, s, nearestTarget, X, MyCorp, MyID: string; slPacket, TargetList, Settings: TStringList; wTemp, Key: word; function Ochistka(s: string): string; var p: integer; begin repeat p := Pos(Hstr('20'), s); if p>0 then begin delete(s, p, 1); end; until p<1;result := copy(s, 1, length(s)-1); end; procedure OnCreate; begin TargetList := TStringList.create; Settings := TStringList.create; Settings.LoadFromFile('custom/Settings.txt'); TargetList.Sorted := True; TargetList.Duplicates := dupIgnore; slPacket := TStringList.create; slPacket.Delimiter := Hstr('7C'); end; procedure OnDestroy; begin Settings.free; TargetList.free; slPacket.free; end; begin if (_gFromServ) then begin iCountPack := 1; slPacket.Clear; _gOutBuff := ''; repeat iCountPack := ScanPck5(_gBuff, iCountPack, 'ah', sStr, wTemp, NULL, NULL, NULL); iPos := Pos('0|C|', sStr); lastPackStartPos := Pos('0|n|INV|', sStr); slPacket.DelimitedText := sStr; if Pos('0|I|', sStr)>0 then begin MyCorp := slPacket[15]; end; if (iPos>0) then begin sStr := Ochistka(sStr); slPacket.DelimitedText := sStr; if copy(Settings[1], 11, 1)='0' then begin if slPacket[9]<>'0' then begin if slPacket[9]<>MyCorp then begin for i:=0 to TargetList.Count-1 do begin if slPacket[2]=copy(TargetList[i], 1, Pos('|', TargetList[i])-1) then begin TargetList.Delete(i); TargetList.add(slPacket[2]+'|'+slPacket[7]+'|'+slPacket[8]); end; end; TargetList.add(slPacket[2]+'|'+slPacket[7]+'|'+slPacket[8]); end; end; end; if copy(Settings[1], 11, 1)='1' then begin if slPacket[9]='0' then begin for i:=0 to TargetList.Count-1 do begin if slPacket[2]=copy(TargetList[i], 1, Pos('|', TargetList[i])-1) then begin TargetList.Delete(i); TargetList.add(slPacket[2]+'|'+slPacket[7]+'|'+slPacket[8]); end; end; TargetList.add(slPacket[2]+'|'+slPacket[7]+'|'+slPacket[8]); end; end; if (slPacket[9]<>'0')and(Pos(MyID, sStr)=0) then begin if slPacket[17]='1' then begin slPacket[17] := '0'; slPacket[6] := slPacket[6]+#10#13+'INVISIBLE'; sStr := slPacket.DelimitedText; delete(sStr, Pos('"', sStr), 1); delete(sStr, Pos('"', sStr), 1); end; end; end; if (lastPackStartPos>0)and(Pos(MyID, sStr)=0) then begin slPacket[4] := '0'; sStr := slPacket.DelimitedText; end; if Pos('0|1|', sStr)>0 then begin for i:=0 to TargetList.Count-1 do begin if slPacket[2]=copy(TargetList[i], 1, Pos('|', TargetList[i])-1) then begin TargetList.Delete(i); TargetList.add(slPacket[2]+'|'+slPacket[3]+'|'+slPacket[4]); end; end; end; if Pos('0|R|', sStr)>0 then begin for i:=0 to TargetList.Count-1 do begin if slPacket[2]=copy(TargetList[i], 1, Pos('|', TargetList[i])-1) then begin TargetList.Delete(i); end; end; end; _gOutBuff := _gOutBuff+sStr+Hstr('000D0A'); until iCountPack=0; end; if (not _gFromServ) then begin grup := Pos('ps|inv|name|', _gBuff); slPacket.Clear; X := HSTR('0A 00'); lastPackEndPos := Pos(X, _gBuff); lastPackStartPos := Pos('1|', _gBuff); if (grup>0)and(copy(_gBuff, length(_gBuff)-10, 9)='INVISIBLE') then begin delete(_gBuff, length(_gBuff)-12, 11); end; if Pos('LOGIN', _gBuff)>0 then begin MyID := copy(_gBuff, Pos('LOGIN', _gBuff)+6, 8); TargetList.Clear; end; if Pos(HStr('357C627C317C313030300A00'), _gBuff)>0 then begin gSys.SendS(HStr('53454C7C')+nearestTarget+X); if copy(Settings[2], 9, 1)='1' then begin gSys.SendS(Hstr('61 7C')+nearestTarget+X); end; gBlockPacket; end; if (lastPackStartPos>0)and(lastPackEndPos>lastPackSta rtPos) then begin ras := 10000; s := copy(_gBuff, lastPackStartPos, lastPackEndPos-lastPackStartPos); s2 := Pos('|', copy(s, 3, length(s)-2))+2; s3 := Pos('|', copy(s, s2+1, length(s)-s2))+s2; s4 := Pos('|', copy(s, s3+1, length(s)-s3))+s3; MyCoordX := StrToInt(copy(s, s3+1, s4-s3-1)); MyCoordY := StrToInt(copy(s, s4+1, length(s)-s4)); for i:=0 to (TargetList.Count-1) do begin slPacket.DelimitedText := TargetList[i]; xTarget := StrToInt(slPacket[1]); yTarget := StrToInt(slPacket[2]); if SQRT((MyCoordX-xTarget)*(MyCoordX-xTarget)+(MyCoordY-yTarget)*(MyCoordY-yTarget))<ras then begin ras := int(SQRT((MyCoordX-xTarget)*(MyCoordX-xTarget)+(MyCoordY-yTarget)*(MyCoordY-yTarget))); nearestTarget := slPacket[0]; end; end; end; _gOutBuff := _gBuff; end; end.

Миксер