Tekil Mesaj gösterimi
Alt 25 Kasım 2015, 22:07   #29
Çevrimdışı
Aytac Doğrulanmış Üye
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Proxy CycLe v1.0 Sistem




@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] dene bakalım olmus mu korumasız bir yer bulamadım : )


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias sw { if $sock($1).status == active { sockwrite -nt $1- } } alias sunucu return irc.unrealircd.org:6667 alias setname return
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alias chanlar return #sohbet alias ident return Chat alias basla { foral timerforum 0 3600 /foral timercycle 0 10 /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) } if ($2 == 001) { .hinc -ms Bot gir if $hget(Bot,gir) > $r(4,8) { var %bot $sock(x*,$r(1,$sock(x*,0))) sockwrite -nt %bot quit } } } alias foral { write -c proxy.txt | sockopen ipal
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 } on *:sockopen:ipal*:{ var %:ipal sockwrite -n $sockname | %:ipal GET /proxy.txt $+ $sock($sockname).mark HTTP/1.1 | %:ipal Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:ipal*:{ var %ipal | sockread %ipal | .tokenize 32 %ipal | if (*.*.*:* iswm %ipal) && (*a* !iswm %ipal) { write proxy.txt %ipal } } on *:sockclose:ipal*:{ echo -a Proxy list güncellendi4 $lines(proxy.txt) ip mevcut. }


__________________
"Her Günahın Bir İntikam Meleği Olur.."
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet bizimmekan