Proxylerin çekileceği siteyide ben düzenleyeyim.Her sorgulamada
300 proxy ip'si çekiyor. Bir kaç siteden çekip proxy sayısını arttırabilirdim ama kendim fazla olmasını istemedim.
@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kırmızı ile belirttiğim yere kendi
sunucu adını yazacaksın ve
muafport yazan yere korumalarından muaf tuttuğun portu yazacaksın, ilk sayfada verilen nickleride
nick.txt isimli bir dosyanın içine attıktan sonra
/basla yazıp bekleyeceksin botlar girip çıkacaktır.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias sw { if $sock($1).status == active { sockwrite -nt $1- } }
alias sunucu return irc.sohbetlisin.com:muafport
alias setname return
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Wep User Wep User
alias chanlar return #deneme
alias ident return S-Com
alias basla {
foral
timerforum 0 120 /foral
timercycle 0 1 /clon
}
alias dur {
.timerforum off
.timercycle off
}
alias clon {
set %andd $rand(0,9999999999999)
set %proxy $read(proxy.txt)
sockclose x $+ %andd
sockopen x $+ %andd $gettok(%proxy,1,58) $gettok(%proxy,2,58)
}
on *:sockopen:x*: {
if ( $sockerr > 0 ) { return }
sw $sockname CONNECT $sunucu $+(HTTP/1.0,$CRLF,$CRLF)
}
on *:sockread:x*:{
if ( $sockerr > 0 ) { return }
var %report
.sockread %report
tokenize 32 %report
var %asasa sockwrite -n $sockname
if ($gettok(%report,1-2,32) == HTTP/1.0 200) || ($gettok(%report,1-2,32) == HTTP/1.1 200) {
set %and $rand(10,2000)
%asasa NICK $read(nick.txt)
%asasa USER $ident " " : $+ $setname
.timer $+ $sockname 1 %and /sockclose $sockname
%asasa join $chanlar
}
if ($1 == ping) { %asasa pong $2 }
if (version isin $4) { %asasa notice $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION esChat v3.6 © 2006 $+ $chr(1) }
}
alias afree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x, , )
return %x
}
alias foral write -c proxy.txt | sockclose proxy-1 | sockopen proxy-1
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
on *:sockopen:proxy-1:var %sck sockwrite -n $sockname | %sck GET / HTTP/1.1 | %sck Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:proxy-1:var %md | sockread %md | if (<tr><td> isin %md) write proxy.txt $afree($token(%md,3,62)) $+ : $+ $afree($token(%md,4-5,62))