IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   IRCd Botlar (https://www.ircforumlari.net/ircd-botlar/)
-   -   TRCycle v1 (https://www.ircforumlari.net/ircd-botlar/982895-trcycle-v1.html)

Toprak 03 Temmuz 2022 15:49
TRCycle v1
 
Merhaba,
Sistem tamamıyla TR IP üzerine çalışmaktadır.
Çalışma mantığı qwebIRC'ın kullandığı WEBIRC olayı ile yapılmakta diğer yapılan tüm TRCycle mantığı ile aynıdır. Yani mantık şu; Cycleler aslında win ip'i ile bağlanmaktadır ama girişte WEBIRC kullanarak ip adresini belirlediğimiz IP ile değiştiriyoruz.

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

Kullanmanız için botu Winden aktif ediniz ve unrealircd.conf dosyanıza alttakini ekleyiniz.
Kod:
cgiirc {
  type webirc;
  hostname IP-ADRESINIZ;
  password "!toprak!";
};
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Mylife 03 Temmuz 2022 16:00
Cevap: TRCycle v1
 
Eline sağlık güzel çalışma.

Berk 22 Ocak 2023 00:32
Cevap: TRCycle v1
 
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1042699741)
Merhaba,
Sistem tamamıyla TR IP üzerine çalışmaktadır.
Çalışma mantığı qwebIRC'ın kullandığı WEBIRC olayı ile yapılmakta diğer yapılan tüm TRCycle mantığı ile aynıdır. Yani mantık şu; Cycleler aslında win ip'i ile bağlanmaktadır ama girişte WEBIRC kullanarak ip adresini belirlediğimiz IP ile değiştiriyoruz.

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

Kullanmanız için botu Winden aktif ediniz ve unrealircd.conf dosyanıza alttakini ekleyiniz.
Kod:
cgiirc {
  type webirc;
  hostname IP-ADRESINIZ;
  password "!toprak!";
};

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Link ölmüş @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bey

GhostLy 22 Ekim 2023 09:57
Cevap: TRCycle v1
 
Toprak link gitmiş yeniler misin

djDuyquSeli 23 Ekim 2023 17:13
Cevap: TRCycle v1
 
Toprak link gitmiş yeniler misin

Toprak 23 Ekim 2023 19:15
Cevap: TRCycle v1
 
Bu hali yok bende, olan arkadaş link ekleyebilir.

GhostLy 13 Kasım 2023 21:03
Cevap: TRCycle v1
 
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1042837146)
Bu hali yok bende, olan arkadaş link ekleyebilir.


Kod:
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,&nbsp;, )
  return %x
}

toprak sanırım kod bu üzerinde bir düzenleme yapabilir misin ?

GhostLy 19 Kasım 2023 21:07
Cevap: TRCycle v1
 
Kod:
on *:start: {
  basla
  unset %*
}
alias sunucu return irc.network.gen.tr:6667
alias sunucuident return Network mIRCScript SanalOrg DinleORG
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)
  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 2 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 2 clon }
  if $istok(06 07 08 09 10 11,%saat,32) && (%girisler !== sabah) { echo -a ** Sabah girisi | set -e %girisler Sabah | .timergiris 0 2 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 350 }
  if $istok(18 19 20 21 22 23,%saat,32) { return 400 }
  if $istok(00 01 02 03 04 05,%saat,32) { return 250 }
  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 { .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: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(#Chat, $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 afree {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;, )
  return %x
}

nick.txt ve proxy.txt oluşturun ve çalıştırın.. içerisinden bazı cod ve satirlari sildim txt okutmanlı oldu
/server irc.network.gen.tr bakabilirsiniz

YekTa 10 Aralık 2023 05:27
Cevap: TRCycle v1
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

djDuyquSeli 13 Şubat 2024 02:24
Cevap: TRCycle v1
 
ÖLÜ LİNK YENILER MISINIZ ACABA


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 07:02.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net