Proxy Korumasi - Che Edition

[Che]

mIRC tabanli sistemdir, ins işinize yarar

menu * {
  .Proxy korumasi
  ..Ac:set %proxy 63 | echo -ea Proxy korumasi aktif.
  ..Kapat:unset %proxy | echo -ea Proxy korumasi deaktif.
}

on $*:snotice:/connecting/i:$iif(%proxy,who +I $9)
raw 352:*:proxy $4

alias proxy {
  var %x $rand(0,9999)
  sockopen $+(proxyx,%x) 5.196.200.211 4321
  sockmark $+(proxyx,%x) $1
}

on *:sockopen:proxyx*: {
  var %s sockwrite -nt $sockname, %post $+(icerik=,$sock($sockname).mark,&gonder=IP+Sorgula) 
  %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 Content-Type: application/x-www-form-urlencoded
  %s Accept-Encoding: gzip, deflate
  %s Host: 5.196.200.211
  %s Connection: Keep-Alive
  %s Cache-Control: no-cache
  %s Content-Length: $len(%post)
  %s 
  %s %post

}
on *:sockread:proxyx*: {
  var %x-,%xyz @proxy, %ip $sock($sockname).mark  | sockread %x-
  $iif(!$window(%xyz),window -e %xyz)
  if $regex(%x-,/Aktif proxy(.+)</i) {
    echo 4 %xyz Proxy: %ip Mask: $regml(1)
    gzline $+(*@,%ip) +0 $regml(1)
    sockclose $sockname
  }
  if $regex(%x-,/pasif proxy/i) {
    echo 3 %xyz Proxy: %ip Mask: $token(%x-,-2,32)
    sockclose $sockname
  }
}