26 Ekim 2021, 10:58
|
 | Meraklı Zır Cahil 🤓👽 DirtyCoder
mS Puan: 571 | | Üyelik tarihi: 10 Temmuz 2009 Bulunduğu yer: \xml:http\ Yaş: 48 Mesajlar: 142 Konular: 23 Eklentiler: 0 Alınan Teşekkür: 91 Yapılan Teşekkür: 20 Mentioned: 0 Post(s) Tagged: 0 Thread(s) | |
Alıntı: Zanay Nickli Üyeden Alıntı
 Merhaba ;
Güncel olarak çalışmakta olan Cycle botumuzun kodu aşağıda verilmiştir. Bizim istediğimiz botun proxy sitesinden değil de bizim hazırlamış olduğumuz proxy.txt dosyasından verileri alması. Örnek : Biz www.xxx.net/proxy.txt dosyasını siteye göndericez bot proxy sitesi yerine verileri buradan alıp .txt dosyasına ekleyecek. Yardımlarınız için şimdiden teşekkürler. Kod: ;-
alias _sunucu return irc.xxx.Net:xxxx
alias _nick return $read(nick.txt)
alias _ident return $read(ident.txt)
;Bot'ların sayısı lütfen belirleyiniz
;Gece 22'den saat 04'a kadar girecek bot sayısı
alias _sabah return 10
;Sabah 5'dan öglen 10'ye kadar girecek bot sayısı
alias _öglen return 20
;Öglen 11'den akşam 3'e kadar girecek bot sayısı
alias _aksam return 30
;Akşam 16'den gece 21'e kadar girecek bot sayısı
alias _gece return 50
-
alias sw if ($sock($1).status == active) sockwrite -nt $1-
###################### Ayarlancak Bolum Ust Kısım Sadece! ######################
alias clone {
if $lines(proxy.txt) == 0 { .timercycle off | unset %* | _al | return }
var %:proxy $read(proxy.txt), %:rnd $+($md5($ticks),$r(10,999))
if $read(proxy.txt,w,$+(*,%:proxy,*)) { .write $+(-,dl,$readn) proxy.txt }
$iif(!$sock($+(cycle,%:rnd)),.sockopen $+(cycle,%:rnd) $gettok(%:proxy,1,58) $gettok(%:proxy,2,58))
}
on *:start:_al
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
alias _güncel { echo -a Proxy list güncellendi toplam4 $lines(proxy.txt) | sockclose _proxy* | unset %* | .timercycle 1 5 kontrol }
alias _ekle {
if $regex($1,/(\d+\.\d+\.\d+\.\d+)) {
if !$read(proxy.txt,w,$1) { .write proxy.txt $+($1,:,$2) }
}
}
alias _al {
.remove proxy.txt
sockclose links
sockopen links www.proxyserverlist24.top 80
$+(.timer,qproxy) 1 60 _güncel
}
on *:sockopen:links:{
sockwrite -nt $sockname GET / HTTP/1.1
sockwrite -nt $sockname Host: $sock($sockname).addr
sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
sockwrite -nt $sockname Accept-Language: tr-TR
sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
sockwrite -nt $sockname Connection: Keep-Alive
sockwrite -nt $sockname $crlf
}
on *:sockread:links:{
var %links | sockread %links | .tokenize 32 %links
if (*#more* iswm %links) { return }
if (*timestamp-link*.html* iswm %links) {
var %rand $rand(10,999999)
.sockopen $+(ipal,%rand) $sock($sockname).addr 80
.sockmark $+(ipal,%rand) $token($token(%links,3-5,47),1,39)
}
}
on *:sockopen:ipal*:{
sockwrite -nt $sockname GET $+(/,$sock($sockname).mark) HTTP/1.1
sockwrite -nt $sockname Host: $sock($sockname).addr
sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
sockwrite -nt $sockname Accept-Language: tr-TR
sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
sockwrite -nt $sockname Connection: Keep-Alive
sockwrite -nt $sockname $crlf
}
on *:sockread:ipal*:{
var %ipal | sockread %ipal | .tokenize 32 %ipal
if (*.*.*:* iswm %ipal) && (*a* !iswm %ipal) {
_ekle $token(%ipal,1,58) $token(%ipal,2,58)
}
} | Kod: alias get_prx {
set %ssite www.site.com | sockopen -e prx_ %ssite 443
}
on *:sockopen:prx_*: {
var %s sockwrite -n $sockname | %s GET /proxy_webd_e.txt HTTP/1.1 | %s Host: %ssite | %s $crlf
}
on *:sockread:prx_*: {
var %d | sockread -f %d | tokenize 32 %d
if $regex(%d,/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\:\d+)/g) { _ekle %d }
} /get_prx /_ekle kullanarak senin webden aldığın listene ekler..
dosyaya yazsın istersen " .write dosya.txt %d " yapabilirsin.
__________________
3m2t
//alias $str($+(alias,$chr(32)),4) | alias
|
Benzer Konular 
