Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:start: {
basla
unset %*
}
alias sunucu return irc.network.gen.tr:6667
alias sunucuident return Network
alias sunucusetname return
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alias radyo return
alias sw { if $sock($1).status == active { sockwrite -nt $1- } }
alias basla {
.timercycle 0 5 girisler
.timerproxy 0 $calc(6 * 300) _xproxyal
echo -a Cycle sistem aktiftir.
}
alias stop {
.timercycle off
echo -a Cycle sistem deaktiftir.
}
alias girisler {
var %saat $token($time,1,58)
if $istok(12 13 14 15 16 17,%saat,32) && (%girisler !== oglen) { echo -a ** Oglen girisi | set -e %girisler Oglen | .timergiris 0 5 clon }
if $istok(18 19 20 21 22 23,%saat,32) && (%girisler !== aksam) { echo -a ** Aksam girisi | set -e %girisler Aksam | .timergiris 0 2 clon }
if $istok(00 01 02 03 04 05,%saat,32) && (%girisler !== gece) { echo -a ** Gece girisi | set -e %girisler Gece | .timergiris 0 5 clon }
if $istok(06 07 08 09 10 11,%saat,32) && (%girisler !== sabah) { echo -a ** Sabah girisi | set -e %girisler Sabah | .timergiris 0 5 clon }
}
alias rands {
Var %rmsg $sunucuident, %rsayi $rand(1,$token(%rmsg,0,32)), %random $token(%rmsg,%rsayi,32)
return %random
}
alias saatler {
var %saat $token($time,1,58)
if $istok(12 13 14 15 16 17,%saat,32) { return 150 }
if $istok(18 19 20 21 22 23,%saat,32) { return 100 }
if $istok(00 01 02 03 04 05,%saat,32) { return 150 }
if $istok(06 07 08 09 10 11,%saat,32) { return 100 }
}
alias clon {
var %proxy $read(proxy.txt)
if !%proxy {
hinc -m proxys yok 1
if $hget(proxys,yok) = 2 { _xproxyal | .hfree -sw proxys | return }
}
if %proxy {
if $sock(aegx*,0) >= $calc($saatler - $rand(1,20)) {
var %randsock $sock(aegx*,$rand(1,$sock(aegx*,0)))
if $sock(%randsock) { .timer 1 $rand(10,50) sockwrite -nt %randsock quit $(|) hdel -m socks %randsock }
}
if $sock(aegxxxx*,0) <= $saatler {
:bastan
var %rand $rand(0,9999999)
if $sock($+(aegxxxx,%rand)) { goto bastan }
sockopen $+(aegxxxx,%rand) $gettok(%proxy,1,58) $gettok(%proxy,2,58)
}
if $sock(aegradyoc*,0) <= $saatler {
:radyobastan
var %rand $rand(0,9999999)
if $sock($+(aegradyoc,%rand)) { goto radyobastan }
sockopen $+(aegradyoc,%rand) $gettok(%proxy,1,58) $gettok(%proxy,2,58)
}
;echo -a $readn - %proxy
;write $+(-dl,$readn) proxy.txt
}
}
on *:sockopen:aegradyoc*:{
if ($sockerr > 0) { sockclose $sockname | returnex }
sw $sockname CONNECT $radyo $+(HTTP/1.1,$CRLF,$CRLF)
}
on *:sockread:aegradyoc*:{
var %;rdin | sockread %;rdin | tokenize 32 %;rdin
if ($gettok(%;rdin,1-2,32) == HTTP/1.0 200) || ($gettok(%;rdin,1-2,32) == HTTP/1.1 200) {
sockwrite -nt $sockname GET /;*.nsv HTTP/1.1
sockwrite -nt $sockname Host: $sock($sockname).addr
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Accept-Encoding: identity;q=1, *;q=0
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/39.0.2171.95 Safari/537.36
sockwrite -nt $sockname Accept: */*
sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
sockwrite -nt $sockname Range: bytes=0-
sockwrite -nt $sockname $crlf
;echo -s 5 Radyo Giris: $sock($sockname).ip Dinliyor.
$+(.timer,$sockname) 1 $rand(1000,3000) sockclose $sockname
}
}
on *:sockopen:aegxxxx*: {
if ( $sockerr > 0 ) { return }
sw $sockname CONNECT $sunucu $+(HTTP/1.0,$CRLF,$CRLF)
}
on *:sockread:aegxxxx*:{
if ( $sockerr > 0 ) { return }
var %report | .sockread %report | tokenize 32 %report
var %komut sockwrite -n $sockname, %nick $read(nick.txt), %ident $rands($sunucuident)
if ($gettok(%report,1-2,32) == HTTP/1.0 200) || ($gettok(%report,1-2,32) == HTTP/1.1 200) {
%komut PASS $sunucupass
%komut NICK %nick
%komut USER %ident " " : $+ $sunucusetname
}
if $2 == 001 {
%komut join $kanallar
}
if $2 == join {
if $istok(#ChatZone, $right($3,-1),32) {
%komut join $kanallar
}
}
if ($1 == ping) { %komut pong $2 }
}
on *:sockclose:aegxx*: {
if $hget(socks,$sockname) { .hdel -m socks $sockname }
}
alias _xproxyal {
write -c proxy.txt
var %rand $rand(0,9999)
sockopen $+(proxyal,%rand)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
sockopen $+(3proxy,%rand) spys.one 80
sockopen $+(4proxytext,%rand) Proxy Server List 80
;sockopen $+(5proxytext,%rand) SSL Proxies 80
}
alias ports {
if $1 == 50 { return 80 }
if $1 == 51 { return 81 }
if $1 == 34B { return 843 }
if $1 == 1F90 { return 8080 }
if $1 == 1F40 { return 8000 }
if $1 == 1F91 { return 8081 }
if $1 == C38 { return 3128 }
if $1 == C39 { return 3129 }
if $1 == 2326 { return 8998 }
if $1 == 1FB6 { return 8118 }
if $1 == 270F { return 9999 }
}
on *:sockopen:proxyal*: {
var %komut sockwrite -nt $sockname
%komut GET /proxylist/country/?c=Turkey HTTP/1.0
%komut Host: $sock($sockname).addr
%komut $crlf
}
on *:sockread:proxyal*: {
var %x | sockread %x
if $regex(%x,/\"PROXY_IP\"\:\"(.+)\"/i) {
var %ip $token($regml(1),1,34)
}
if $regex(%x,/\"PROXY_PORT\"\:\"(.+)\"/i) {
var %port $sifrecoz($token($regml(1),1,34))
proxyekle $+(%ip,:,%port)
}
}
alias sifrecoz {
if $1 == 50 { return 80 }
if $1 == 51 { return 81 }
if $1 == 34B { return 843 }
if $1 == 1F90 { return 8080 }
if $1 == 1F40 { return 8000 }
if $1 == 1F91 { return 8081 }
if $1 == C38 { return 3128 }
if $1 == C39 { return 3129 }
if $1 == 2326 { return 8998 }
if $1 == 1FB6 { return 8118 }
if $1 == 270F { return 9999 }
else { return $1 }
}
on *:sockopen:3proxy*: {
var %komut sockwrite -nt $sockname
%komut GET /free-proxy-list/TR/ HTTP/1.1
%komut Host: $sock($sockname).addr
%komut $crlf
}
on *:sockread:3proxy*: {
var %x | sockread %x
if $regex(%x,/([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/gi) {
var %y 1
while $regml(%y) {
var %c 1, %r1 $v1
while $token(3128 3129 80 8080 8000 808 8081,%c,32) {
proxyekle $+(%r1,:,$v1)
inc %c
}
inc %y
}
}
}
on *:sockopen:4proxytext*:{
var %s sockwrite -n $sockname
%s GET $+(/,$sock($sockname).mark) HTTP/1.1
%s Accept: image/jpeg, image/gif, image/pjpeg, application/x-ms-application, application/xaml+xml, application/x-ms-xbap, */*
%s Accept-Language: tr-TR
%s User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; WOW64; Trident/4.0; SLCC2; .NET CLR 2.0.50727)
%s Host: $sock($sockname).addr
%s Connection: Keep-Alive
%s $crlf
}
on *:sockread:4proxytext*:{
var %63 | sockread %63
if (*timestamp-link*.html* iswm %63) {
4ekproxyal $+(/,$token($token(%63,4,39),3-,47))
}
}
alias 4ekproxyal {
var %rand $rand(0,999999999)
sockopen $+(4ekproxytext,%rand) Proxy Server List 80
sockmark $+(4ekproxytext,%rand) $1
}
on *:sockopen:4ekproxytext*:{
var %s sockwrite -n $sockname
%s GET $sock($sockname).mark HTTP/1.1
%s Accept: image/jpeg, image/gif, image/pjpeg, application/x-ms-application, application/xaml+xml, application/x-ms-xbap, */*
%s Accept-Language: tr-TR
%s User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; WOW64; Trident/4.0; SLCC2; .NET CLR 2.0.50727)
%s Host: $sock($sockname).addr
%s Connection: Keep-Alive
%s $crlf
}
on *:sockread:4ekproxytext*:{
var %63 | sockread %63
if (*.*:* iswm %63) && (*a* !iswm %63) {
var %ip $token($afree(%63),1,32)
proxyekle %ip
}
}
on *:sockopen:5proxytext*:{
var %s sockwrite -n $sockname
%s GET $+(/,$sock($sockname).mark) HTTP/1.1
%s Accept: image/jpeg, image/gif, image/pjpeg, application/x-ms-application, application/xaml+xml, application/x-ms-xbap, */*
%s Accept-Language: tr-TR
%s User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; WOW64; Trident/4.0; SLCC2; .NET CLR 2.0.50727)
%s Host: $sock($sockname).addr
%s Connection: Keep-Alive
%s $crlf
}
on *:sockread:5proxytext*:{
var %63 | sockread %63
if (*timestamp-link*.html* iswm %63) {
4ekproxyal $+(/,$token($token(%63,4,39),3-,47))
}
}
alias 5ekproxyal {
var %rand $rand(0,999999999)
sockopen $+(5ekproxytext,%rand) SSL Proxies 80
sockmark $+(5ekproxytext,%rand) $1
}
on *:sockopen:5ekproxytext*:{
var %s sockwrite -n $sockname
%s GET $sock($sockname).mark HTTP/1.1
%s Accept: image/jpeg, image/gif, image/pjpeg, application/x-ms-application, application/xaml+xml, application/x-ms-xbap, */*
%s Accept-Language: tr-TR
%s User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; WOW64; Trident/4.0; SLCC2; .NET CLR 2.0.50727)
%s Host: $sock($sockname).addr
%s Connection: Keep-Alive
%s $crlf
}
on *:sockread:5ekproxytext*:{
var %63 | sockread %63
if (*.*:* iswm %63) && (*a* !iswm %63) {
var %ip $token($afree(%63),1,32)
proxyekle %ip
}
}
alias proxyekle {
if !$read(proxy.txt,w,$1) {
write proxy.txt $1
}
}
alias afree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x, , )
return %x
}
03 Temmuz 2022, 15:49
Normal
