ForumTEK.Net - IRC Forumu - Proxy Koruması

Merhaba,
Güncel olarak bir paylaşım yapıyım dedim [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kendi sitem üzerinden sorguluyor ve sağlamdır.

Kod:

Kod:

menu * {

  Proxy Koruması

  .Aç:/.enable #Proxy | echo -a Proxy koruması açıldı..

  .Kapat:/.disable #Proxy | echo -a Proxy koruması kapatıldı..

}



#Proxy off

on *:snotice:*Client connecting*:.who +I $token($token($4-,2,58),1,32)

raw 352:*:{

  var %:r $+($left($md5($ticks),$r(5,20)),$6)

  sockopen $+(proxy,%:r) ircproxy.net 80 

  sockmark $+(proxy,%:r) $+($4,¿,$6)

}

on *:sockopen:proxy*:{ 

  sockwrite -nt $sockname GET $+(/?ip=,$token($sock($sockname).mark,1,191))  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:proxy*:{  

  if ($sockerr) { .sockclose $sockname | return }

  var %:proxy | sockread -f %:proxy | tokenize 32 %:proxy

  if $regex($1-,/numaral[ıiİ] [Iİi]P proxy\'dir/i) {

    gline $+(*@,$token($sock($sockname).mark,1,191)) +5h Proxy Yasak.. $+([,$token($1-,2,45),])

    $iif($chan(#xline),msg #Xline (4PROXY GİRİŞ) $regsubex($token($token($1-,2,62),1,60),/(\d+\.\d+\.\d+\.\d+)/,$+($chr(2),\1,$chr(2))))

    sockclose $sockname

    return

  }

}

#Proxy end

Ekran görüntüleri;

#Xline kanal'ı:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]