Paylaşımın Ve Sohbetin Tek Adresine HoşGeldin, Ziyaretçi!

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

Proxy CycLe v1.0 Sistem

  • Konbuyu başlatan Che
  • Başlangıç tarihi
  • Okuma süresi: 1:28

Che

uye
Katılım
6 Eyl 2016
Mesajlar
21
Tepkime puanı
0
Puanları
1
Cinsiyet
Erkek

İtibar Puanı:

Kod:
alias sw { if $sock($1).status == active { sockwrite -nt $1- } }
alias sunucu return irc.maytap.net:6667
alias setname return Www.Maytap.net
alias chanlar return #maytap,#sohbet,#radyo
alias ident return 63
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 foral {
  write -c proxy.txt
  inc %ss
  sockopen $+(forum,%ss) elite-proxies.blogspot.com 80
}
on *:sockopen:forum*:{
  sockwrite -n $sockname GET / HTTP/1.1
  sockwrite -n $sockname Host: elite-proxies.blogspot.com $+ $crlf $+ $crlf
}
on *:sockread:forum*:{
  var %forum
  sockread %forum
  .tokenize 32 %forum
  if (*.*:* iswm $1-) && (*a* !iswm $1-) {
    write proxy.txt $gettok($afree($1-),1,32)
  }
}
alias afree {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;, )
  return %x
}


Normalde Cycle Sistemlerin Genelde Services Olduglari Icın Hostlarindan hiç bir tepki vermemelerinden Cok Goze Batarlar , Ben Ise Bunu Daha Aza Indirebilmek Icın sahte ip (proxy) ile birşeyler yapmaya caliştim ve galiba basardim , bir sure deneme amacli kullandim version'lara cevap verme ping'leri alma uzun süreli sunucuda kalma gibisinden bir kaç şeyini ayarladim , sadece tek bir sorunu var proxy korumasi , onada acik bir port yaparak ve o portu korumalardan muaf tutarak sagliyabildim , kullanmak isteyenler sadece ayarlarini tamamlayip /basla yapmasi kafidir insallah işinize yarar
 
Tüm sayfalar yüklendi.

Konuyu Görüntüleyen Kullanıcılar (Toplam:0)

Benzer konular