IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Tekil Mesaj gösterimi

High · 30 Haziran 2022, 16:26

Selamun aleykum arkadaşlar daha önce Alper hocanın yapmış olduğu Aliases vardı konu içerisin de toplu proxy eklemeye bilmek için.
Ben bu Aliasesi Toprak, hocanın kodun da kendime göre düzenleyip kullanmak istedim ama tam olarak istediğimi yapamadım.
KOD'un son hali :

Kod: Kodu kopyalamak için üzerine çift tıklayın!

menu channel,status,menubar,query {
  -
  $iif(o !isincs $usermode,$style(2)) ADMiN MOD
  .$iif(%Proxy,$style(1)) Proxy Koruma ( $+ $iif(%Proxy,On,Off) $+ ) {
    if (%Proxy) { unset %Proxy | .disable #Proxy | echo -ta 4Proxy7 Koruması4 KAPALI }
    else { set %Proxy on | .enable #Proxy | echo -ta 4Proxy2 Koruması4 AÇILDI  }
  }
}
on *:start:if $isfile(txt/Proxy.hash) { .hmake Proxy | .hload Proxy txt/Proxy.hash }

#Proxy on
on *:snotice:*Client connecting*
raw 352:*:{
  var %:r $+($left($md5($ticks),$r(5,20)),$6)
  if $hget(Proxy,$4) { gline $+(*@,$4) +5h 4Proxy\Tor2 Kullanımı Yasak. $+([,Hash,]) | echo -tsa [4 PROXY ]2 Nick:0 $6 -4 IP:0 $4  }
  else { sockopen $+(proxy,%:r) proxysorgula.net 80 | sockmark $+(proxy,%:r) $+($4,¿,$6) }
}
on *:sockopen:proxy*:{ 
  if ($sockerr) { .sockclose $sockname | return }
  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) {
    gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h 4Proxy\Tor2 Kullanımı Yasak. $+([,$token($1-,2,45),])
    *msg #Xline [4 PROXY ]2 Nick:0 $token($sock($sockname).mark,2,191) -4 IP:0 $token($sock($sockname).mark,1,191) $iif($token($token($1-,2,41),2,40),-2 Hostname:4 $token($token($1-,2,41),2,40)) $iif($token($token($1-,1,41),2,40),-2 Ülke:0 $token($token($1-,1,41),2,40)) -2 Tipi:4 $token($1-,2,45)
    echo -ast [4 PROXY ]2 Nick:0 $token($sock($sockname).mark,2,191) -4 IP:0 $token($sock($sockname).mark,1,191) $iif($token($token($1-,2,41),2,40),-2 Hostname:4 $token($token($1-,2,41),2,40)) $iif($token($token($1-,1,41),2,40),-2 Ülke:0 $token($token($1-,1,41),2,40)) -2 Tipi:4 $token($1-,2,45)

    sockclose $sockname
  }
}
#Proxy end
on *:sockopen:_proxy-1*:{ 
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $iif($sock($sockname).mark,$sock($sockname).mark,/)   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-1*:{ 
  if ($sockerr) { .sockclose $sockname | return }
  var %:_proxy1 | sockread -f %:_proxy1 | tokenize 32 %:_proxy1
  if (*timestamp-link*.html* iswm $1-) { _proxyal1 $sock($sockname).addr $+(/,$token($token($1-,4,39),3-,47)) }
  elseif $regex($1-,/href=\"\/proxylist\/country/Si) { _proxyal1 $sock($sockname).addr $+(/,$token($token($1-,2-,47),1,34)) }
  elseif (*<a href="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm $1-) { _proxyal1 $sock($sockname).addr $+(/,$token($token($1-,2,34),3-,47)) }
  elseif $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) { _ekle $regml(1) }
}
alias _proxyal1 { var %:rand $+($r(100,9999999),$md5($ticks),$r(1000,999999999)) | sockopen $+(_proxyal1,%:rand) $1 80 | sockmark $+(_proxyal1,%:rand) $2 }
on *:sockopen:_proxyal1*:{ 
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $iif($sock($sockname).mark,$sock($sockname).mark,/)   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:_proxyal1*:{ 
  if ($sockerr) { .sockclose $sockname | return }
  var %:_proxyal1 | sockread -f %:_proxyal1 | tokenize 32 %:_proxyal1
  if $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) { _ekle $regml(1) }
}

Sitelerden oto proxy çekmeyi iptal ettim sebebi zaten kendim yeterince fazla proxy elde edebiliyor olmam ama ben bu koda eklediğim Proxyleri eklemek istiyorum. Bunun için de Alper hocanın daha önce yapmış olduğu Toplu Proxy ekleme Aliasesi elimden geldiğince düzenledim Toprak hocanın koduna göre ama şu şekilde eklemeler yaptı.
69.163.160.10

199.60.103.125

203.24.108.111

79.112.*
144.202.81.*
193.135.*
2.127.*
79.136.*
82.223.17.*
45.173.*
Benim yapmak istediğim portsuz çektiğim proxyleri toplu olarak ekleye bilmek.
Alper hocanın toplu proxy ekleme Aliasesin son hali;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias iadd {  if ($dialog(Proxy_add)) { dialog -c Proxy_add } |  dialog -ma Proxy_add Proxy_add }
dialog Proxy_add {
  title "Hash Proxy ADD"
  size -1 -1 264 163
  option pixels
  box "Ekleme yapmak için dosya seçin", 1, 11 6 240 130
  button "Proxy IP Ekle", 2, 33 34 197 80, normal
  text "Yüklenen Proxy Adet:", 3, 62 140 108 16
  text "0", 4, 171 140 50 16, center
}
on 1:dialog:Proxy_add:*:*:{
  if ($devent == init) { }
  if ($devent == sclick) {
    if ($Did == 2) {
      Var %F = $SFile($mIRCDir,Txt Dosyasını Seçiniz,Ekle), %eklenen = 0
      If (%F) { 
        Var %I = 1 
        While ($Read(%F,%I)) { 
          Var %F1 = $Read(%F,%I), %j = $regsubex(%F1,/(^\d+\.\d+\.\d+\.\d+\.).+/gi,\1)
          if !$hget(p,%j) {
            hadd -m p %j 
            hsave -o p Proxy.hash
            inc %eklenen
          }
          inc %I
        } 
      } 
      did -o Proxy_add 4 1 %eklenen
    }
  }
}

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 16:26 -->-> Daha önceki mesaj 15:50 --

Arkadaşlar sorunu çözdüm yalnız eklerken boş satır ekliyor onu çözemedim .
199.60.103.125

203.24.108.111
şeklinde ekliyor son hali:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias iadd {  if ($dialog(Proxy_add)) { dialog -c Proxy_add } |  dialog -ma Proxy_add Proxy_add }
dialog Proxy_add {
  title "Hash Proxy ADD"
  size -1 -1 264 163
  option pixels
  box "Ekleme yapmak için dosya seçin", 1, 11 6 240 130
  button "Proxy IP Ekle", 2, 33 34 197 80, normal
  text "Yüklenen Proxy Adet:", 3, 62 140 108 16
  text "0", 4, 171 140 50 16, center
}
on 1:dialog:Proxy_add:*:*:{
  if ($devent == init) { }
  if ($devent == sclick) {
    if ($Did == 2) {
      Var %F = $SFile($mIRCDir,Txt Dosyasını Seçiniz,Ekle), %eklenen = 0
      If (%F) { 
        Var %I = 1 
        While ($Read(%F,%I)) { 
          Var %F1 = $Read(%F,%I), %j = $regsubex(%F1,/(^\d+\.\d+\.\d+\.\d+\.).+/gi,\1)
          if !$hget(p,%j) {
            hadd -m Proxy %j 
            hsave -o Proxy Proxy.hash
            inc %eklenen
          }
          inc %I
        } 
      } 
      did -o Proxy_add 4 1 %eklenen
    }
  }
}