Jump to content

chain

Administrators
  • Posts

    5,952
  • Joined

  • Last visited

  • Days Won

    17

Posts posted by chain

  1.  

    pzip

    pzip, short for parallel-zip, is a blazing fast concurrent zip archiver and extractor.

    Features

    • Archives files and directories into a valid zip archive, using DEFLATE.
    • Preserves modification times of files.
    • Files are read and compressed concurrently

    Installation

    Command Line

    For command-line usage, we provide two binaries which can be installed separately:

    • pzip- concurrent zip archiving
    • punzip- concurrent zip extraction

    To install, run:

     

     

     

    267659180-0b3cee2c-1af0-4753-b088-8a488f8ff642.png

  2. So our developer err0r who works and designs our websites has now developed a nice chat site for us and other's He's been putting a lot of work into it and making it happen. So now people who want to chat on IRC can with this amazing webchat. it's still being developed by err0r but you can see what it's like soon.

     

     

    eshot_628031562.jpg

  3. kanalınıza girmesini istemediğiniz kişileri otomatik olarak banlaması ve nick değiştirse dahi kanala girişini engellemektir.
    Kişiye özel akick listesi diyebiliriz.

    on *:input:#: {
      if $regex($1,/^([.!-]ban)/Si) {
        if !$2 { echo -a 2Lütfen parametre belirtiniz.4 !ban kayit|liste|sil Örnek : !ban Liste | return }
      }
      if $2 == liste {
        if $lines(ban.txt) = 0 { echo -a 2Belirtilen ban mevcut değil. | halt }
        echo -a 2ban listesi siralaniyor.
        var %banla 1
        while (%banla <= $lines(ban.txt)) {
          echo -a %banla $read(ban.txt,%banla)
          inc %banla
        }
      }
      if $2 == ekle {
        if !$3 { echo -a 2Lütfen nick belirtiniz.4 !ban ekle nick | return }
        if $read(ban.txt,w, $+ * $+ $nick $+ * $+ ) { echo -a 2Eklemeye çalıştığınız nick zaten listede ekli bulunuyor. | halt }
        write ban.txt $3 | mode # +b $3 | kick # $3 4,1Kişisel Ban listeme eklendiniz.
        echo -a 4 $+ $3 $+ , 2ban listesine eklenmiştir.
      }
      if $2 == sil {
        if !$3 { echo -a $nick 2Lütfen nick belirtiniz.4 !ban sil numara | return }
        if $lines(ban.txt) = 0 { echo -a 2Ban kaydı bulunamadi. | halt }
        write $+(,-dl,$3,) ban.txt
        echo -a $3 $+ , 2Numaralı nickin ban kaydı silindi.
      }
    }
    on *:join:#: {
      if ($read(ban.txt,w,$nick)) {
        mode # +b $nick | kick # $nick 4,1 Kişisel Ban Listemdesiniz.
      }
    }
    on *:nick: { if $read(ban.txt,w,$nick) { echo -a Ban listesindeki $nick  $newnick nickini aldığı için ban listesine eklendi. | write ban.txt $newnick  | mode # +b $newnick | kick # $newnick 4,1Nick değiştirip kanalıma girmeye çalıştığınızı tespit ettim.  } 

     

  4. Death is nothing strange to anyone living on earth and even though we might yet be alive physically, we have had experiences of death in some areas of our lives that left us feeling shattered and torn. Though this might be likened to a death experience, it is nothing compared to the death of someone we know.

    Josh You were loved by all that came across you. You have left your footprints on the sand of time. You will be deeply Missed My Friend.
    May you find peace and Happiness where you are now, and continue DJ'ing as we all know you will. 

     Eyecu-err0r-chain
  5. Belirtilen #kanal içerisinde belirtilen kelime(100 kelime) kadar konuşan kullanıcıya kanalda otomatik voice(+) vermek için kullanabileceğimiz koddur. Puanlarımızı kontrol etmek içinse tabi kod'u ekleyen kişi hariç kanalda !puan yazarak puanları öğrenebilir.

     

    on *:text:*:#kanal: { if !$hget(kns,$nick) { hadd -m kns $nick 1 | hsave -i kns kns.db }
    
    else { if $hmatch(kns,$nick) { hinc -m kns $v1 1 | hsave -i kns kns.db } }
    if $hget(kns,$nick) == <span style="color: #0000ff">100</span> { msg # $+($nick,:) 0,1Tebrikler <span style="color: #0000ff">100</span> puan olduğunuz için; +voice kazandınız. | mode # +v $nick | hadd -m vnick $nick 1 | hsave -i vnick vnick.db }
    if $1 == !puan { if $2 == $me { msg # $+($nick,:) Benim puanmımı boşver, sen sohbetine bak. | halt }
    if !$hmatch(kns,$2) { msg # $+($nick,:) $qt($2) Listetede bulunamadı. }
    else { msg # $+($nick,:) 13 $2  4umuzun Puani $hget(kns,$2) } } }
    on *:start: { if $isfile(vnick.db) { hmake vnick 100 | hload -i vnick vnick.db } | if $isfile(kns.db) { hmake kns 100 | hload -i kns kns.db } }

     

  6. menu menubar { 
      Düşman Listesi:/dusman
    } 
    ####################
    alias -l _buser { .guser blacklist $1 3 }
    alias -l _rbuser { .ruser blacklist $1 3 }
    alias -l _luser { dialog -m dusmanlist dusmanlist }
    alias -l _blist {
      did -r dusmanlist 11
      var %_btotal = $ulist(*,blacklist,0) , %_b = 0
      while (%_b < %_btotal) {
        inc %_b
        did -a dusmanlist 11 $ulist(*,blacklist,%_b)
      }
    }
    alias dusman { /dialog -m dusmanlist dusmanlist }
    dialog dusmanlist {
      title "Düşman Listesi"
      size -1 -1 106 117
      option dbu
      combo 11, 6 19 94 50, extsel sort autohs autovs
      text " Eklediğiniz nickler Gline yiyecektir. Buna Göre Ekleyeceğiniz nicklere dikkat edin", 2, 6 4 95 15
      box "", 3, 3 0 101 96
      edit "", 12, 6 69 94 10 , read autohs
      button "Ekle", 20, 7 81 40 12 , default
      button "Sil", 30, 58 81 40 12 , default
      box "", 7, 3 94 101 21
      button "Pencereyi Kapat", 8, 17 100 73 12, ok
    }
     
    on *:dialog:dusmanlist:init:*: {
      _blist
    }
     
    on *:dialog:dusmanlist:sclick:*: {
      if ($did == 20) {
        if ($did(11).text != $null && $level($did(11).text) != blacklist) {
          var %_badd = $did(11).text
          .auser blacklist %_badd
          _blist
          did -o $dname 12 1 %_badd Kara Listeye Alındı...
        }
      }
      if ($did == 30) {
        if ($did(11).text != $null && $level($did(11).text) == blacklist) {
          var %_brem = $did(11).text
          .ruser blacklist %_brem
          _blist
          did -o $dname 12 1 %_brem Kara Listeden Silindi...
        } 
      }
    }
     
    on @blacklist:join:#: {
      .gline $nick 15m Uzaklastırıldınız | .echo $nick 0,1 Kötü Nick / Düşman Listesinden ötürü Serverden Atıldı.  %Logo1
    }

     

  7. bu proxy-sock[4-5] tarayıp, bulan, kayıt eden ve banlamaya yarayan bir kod..
    açıklaması içinde 2-3 ayarla direk scriptinizde yada botunuzda kullanabilirsiniz..

    kod icindeki şu bölümleri ayarlayarak kullanabilirsiniz..
    aklınıza takılan ne varsa konu içinde sorabilirsiniz.. iyi eglenceler..

    TestServer=irc.chatfox.net
    TestServerIP=107.161.19.71
    KontrolPort=80 8080 1080 3124 3127 3128 8000 9050 443
    bazi cok kullanilan portlar
    Ban=1
    0 Echo | 1 Gzline
    0 yalnizca ekrana yansitacaktir eger asagidaki log aciksa kayit alacaktir.
    Log=1
    bu deger 1 olursa gunluk bulunan proxyler kayit olacaktir
    kayit islemi gun-ay-yil.txt olarak kayit edilir.
    Komut=GZline
    ;socker botlar için orn: “sockwrite -tn bot_adi kline”

    sisteminize entegrasyon için öneriler:
    serverinize giriste gorunen ip adreslerini (1.1.1.1) formatinda
    olacak bicimde $sok(1.1.1.1) kodunu snotice event'iniza ekleyin

    Elle tarama icin /sok 1.1.1.1 8080

    dokumandan yani txt dosyasindan taramak icin

    /prx dosyaadi.txt
    dosya icindeki proxyler asagidaki bicimlere uygun olmalidir
    101.255.17.244:1080
    103.16.112.137[bosluk]1080
    103.16.112.137[tap]1080

    eger genel olarak bir arama baslatmak isterseniz
    ki bu normal giren kullanicilari tarama esnasinda calisabilir

    /pbul 95.0.0.0

    bu komut ile 95.255.255.255 araligindaki tüm iplerde proxy arayacaktir.
    arama islemi port sayisina gore bir zaman belirlenmistir, boylelikle
    her IP icin 25 format ve 5 formasyon(proxy,sock4,sock5 vb) deneyecektir
    bu islem cok uzun surebilir, ancak kesin calisan ve anlik aktif proxyleri bulmanizi saglar.

    alias banz {
      $iif($conf(Ban) = 1,$conf(commandline),echo 3) $+(*@,$sock($1).ip)  $+($tip($1),$regsubex($sock($1).ip,/(\d+$)/i,$+($str(*,$len(\t)),:,$+(*@,$sock($1).port)))) 
      if $conf(log) { write $+($replace($date,/,-),.txt) $+($sock($1).ip,:,$sock($1).port) }
      sockclose $1
    }
     
     
    ;ip araligi
    alias pbul {
      if $regex(ip,$1,/^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$/g) {
        if $gettok($1,1,46) < 1 { echo ** Hatali ip.. Class A "1" den dusuk olamaz. orn: 1.0.0.0 | return }
        set %d¨ $gettok($1,4,46) |  set %c¨ $gettok($1,3,46) | set %b¨ $gettok($1,2,46) |  set %a¨ $gettok($1,2,46)
      }
      $iif(!%d¨,set %d¨ 0) 
      ;class D
      $iif(!%c¨,set %c¨ 0) 
      ;class C
      $iif(!%b¨,set %b¨ 0) 
      ;class B
      $iif(!%a¨,set %a¨ 1) 
      ;class A
      if %d¨ < 256  { inc %d¨ }
      if %d¨ == 256 && %c¨ < 256 { inc %c¨ | unset %d¨ }
      if %c¨ == 256 && %b¨ < 256 { inc %b¨ | unset %d¨,%c¨ }
      if %b¨ == 256 && %a¨ < 256 { inc %a¨ | unset %b¨,%c¨,%d¨ }
      if %a¨ == 256 && %a¨ < 256 { inc %a¨ | unset %b¨,%c¨,%d¨ }
      if %a¨ == 255 && %b¨ == 255 && %c¨ == 255 && %d¨ == 255 { echo : IP Tamamlandi | unset %*¨* }
      $iif(!%d¨,set %d¨ 0) 
      $iif(!%c¨,set %c¨ 0)
      $iif(!%b¨,set %b¨ 0) 
      $iif(!%a¨,set %a¨ 1)
      sok $+(%a¨,.,%b¨,.,%c¨,.,%d¨)
      titlebar :Sock&Proxy Araniyor:  $+(%a¨,.,%b¨,.,%c¨,.,%d¨)
      .timer_ipc 0 4 pbul
    }
    alias prx {
      ;/prx dosya.txt 
      ;> 1.1.1.1 3128
      if $1 { var %dos $1 }
      var %i 0
      while %i < $lines(%dos) { 
        inc %i | sok $replace($read(%dos,%i),:,$chr(32),$chr(9),$chr(32)) 
      }
    }
    ;baglanti baslatici
    alias sok {
      if $regex($2,/(\d+)/) {
        var %typ $iif( $gettok(%port,%i`,32) == 443,sockopen -e,sockopen)
        if $gettok(%port,%i`,32) == 9050 { 
          %typ $+(Tor~,$1,:,$2)  $1 $2   
        }
        %typ $+(sock4~,$1,:,$2)  $1 $2
        %typ $+(sock5~,$1,:,$2) $1 $2
        %typ $+(proxy~,$1,:,$2) $1 $2
        %typ $+(proxyGet~,$1,:,$2) $1 $2
        %typ $+(proxyPOST~,$1,:,$2) $1 $2
      }
      if !$2 {
        var %port $conf(conport)
        var %i` 1,%$1 $1
        while %i` < $gettok(%port,0,32) {
          var %typ $iif( $gettok(%port,%i`,32) == 443,sockopen -e,sockopen)
          var %s_  $+(%$1,:,$gettok(%port,%i`,32)) %$1 $gettok(%port,%i`,32)
          if  $gettok(%port,%i`,32)  == 9050 { %typ Tor~ $+ %s_   }
          else {
            %typ sock4~ $+ %s_ 
            %typ sock5~ $+ %s_ 
            %typ proxy~ $+ %s_
            %typ proxyGet~ $+ %s_
            %typ proxyPOST~ $+ %s_ 
          }
          inc %i`
        }
      }
    }
    ;ini & mrc fix
    alias readini_ {
      if $regex($script,/(\.ini$)/) { return $gettok($read($script, w, $+(*,$3,=*)),-1,61) }
      else { return $readini($1,$2,$3) }
    }
    ;konfigurasyon yonlendirici
    alias conf {
      goto $1 
      :serverip { return $readini_($script,proxykiller,TestServerIP)  } 
      :server { return $readini_($script,ProxyKiller,TestServer) } 
      :port { return $gettok($+(666,$r(5,9)) 7000,$r(1,2),32) }
      :conport { return $readini_($script,proxykiller,KontrolPort) }
      :ban { return $readini_($script,proxykiller,ban) }
      :commandline { return $readini_($script,proxykiller,komut) }
    }
     
    ;random nick!ident@*:user
    ;$ren(3,15)
    alias ren {
      var %l' $r($1,$2),%s' a e i o u,%a' . b c d f g h j k l m n p r s t v x w y z . 
      :r 
      var %k' $addtok(%k', $gettok(%a',$r(1,$numtok(%a',32)),32),32) 
      if $len(%k') < %l'  goto r 
      if  $len(%k') >= %l' return $regsubex($regsubex(%k',/(\W)/ig,$gettok(%s',$r(1,$numtok(%s',32)),32)),/([a-f]|[c-g]|[x-z])/g,$iif($r(1,10) > 5,$upper(\t),\t)) 
    }
    ;$ran(nick,user,host,ident)
    alias ran {
      if $1 == nick {  return $ren(1,13) }
      if $1 == user {  return $gettok($regsubex($left($md5($ticks),$r(3,20)),/(.)/g,$iif(5 \\ \n,\t $left($+($r(a,z),$md5($ticks)),$r(3,11)))),2-,32) }
      if $1 == ident {  return $ren(1,13) } 
      if $1 == host { return $ren(1,10) }
    }
     
    ;Soket olaylari
    on *:sockopen:*:{ 
      echo 4 OPEN Soket: $replace($sockname,~,$+($chr(32),Method:,$chr(32)))
      var %s sockwrite -nt $sockname
      if ($sockerr > 0) { sockclose $sockname | return }
      if *sock5~* iswm $sockname {
        bset &bb5 1 5 1 0
        sockwrite -n $sockname &bb5
        bunset &bb5 
      }
      if *sock4~* iswm $sockname {
        bset &b4 1 4 1 $gettok($longip($conf(port)),3,46) $gettok($longip($conf(port)),4,46) $replace($conf(serverip),.,32) 0 
        sockwrite $sockname &b4 
        bunset &b4 
      }
      if *Proxy~* iswm $sockname  {
        %s CONNECT  $+($conf(server),:,$conf(port)) HTTP/1.0 $str($crlf,2)
        %s $crlf
        sockrename $sockname $replace($sockname,proxy~,proxy_)
      }
      if *ProxyGet~* iswm $sockname  {
        %s GET  $+($conf(server),:,$conf(port)) HTTP/1.0 $str($crlf,2)
        %s $crlf
        sockrename $sockname $replace($sockname,proxyGet~,Gproxy_) 
      }
      if *ProxyPOST~* iswm $sockname {
        %s POST  $+($conf(server),:,$conf(port)) HTTP/1.0 $str($crlf,2)
        %s $crlf
        sockrename $sockname $replace($sockname,proxyPOST~,PostProxy_) 
      }
      if *Tor~* iswm $sockname {
        %s CONNECT  $+($conf(server),:,$conf(port)) HTTP/1.0 $str($crlf,2)
        %s $crlf
        sockrename $sockname $replace($sockname,ProxyTor~,ProxyTor_)
      }
    }
    ;veri okuma
    on *:sockread:*:{ 
      if $sockbr { sockclose $sockname | return } 
      if *sock*~* iswm $sockname {
        if *sock5~* iswm $sockname {
          sockread &sock5 
          if ($bvar(&sock5,1,2) == 5 0)  {
            bset &sock5 1 5 1 0 1 $replace($conf(serverip),.,$chr(32)) $gettok($longip(6667),3,46) $gettok($longip(6667),4,46)
            sockwrite -n $sockname &sock5 | bunset &sock5 
            sockrename $sockname $replace($sockname,sock5~,sock5:)
          }
        }
        if *sock4~* iswm $sockname {
          sockread &s4 
          if $regex($bvar(&s4,2),/(9[1|2|3])/g) {  echo **  Sock4 Error : $bvar(&s4,2) @ $sockname | sockclose $sockname | return }
          if $bvar(&s4,2) == 90 { 
            echo 3 [ $sockname ] *** Bilgiler gonderildi!
            sockwrite -tn $sockname CAP LS
            var %nk $ran(nick)
            sockwrite -tn $sockname NICK %nk
            sockwrite -tn $sockname USER $ran(nick) 0 * : $ran(user)
            sockrename $sockname $replace($sockname,sock4~,$+(sock4_,%nk,_)) 
          } 
        }
      }
      if *sock5:* iswm $sockname  {
        echo 3 [ $sockname ] *** Bilgiler Gonderildi!
        sockwrite -tn $sockname CAP LS
        var %nk $ran(nick)
        sockwrite -tn $sockname NICK %nk 
        sockwrite -tn $sockname USER $ran(nick) 0 * : $ran(user)
        if *sock5:* iswm $sockname { .sockrename $sockname $replace($sockname,sock5:,$+(sock5_,%nk,_)) }
      }
      ;sock testi 
      :data
      if *sock*_* iswm $sockname {
        :-
        sockread -f &d 
        if ($sockbr == 0) return
        var %f $bvar(&d,1-).text
        tokenize 32 %f
        echo :SOCK: %f
        if *PING* iswm %f {
          sockwrite -nt $sockname PONG $gettok(%f,2,$asc(:))
        }
        if *NOTICE*AUTH* iswm %f { 
          echo 4,8 Sock OK!  $sockname
          banz $sockname
        }
        if *proxy* iswm %f { 
          echo 4,8 Bilinmeyen !  $sockname 
          banz $sockname
        }
        goto - 
      }
      ; proxy testi
      if *proxy* iswm $sockname || *Tor_* iswm $sockname {
        :.
        if ($sockbr == 0) return
        sockread -f %p 
        tokenize 32 $1-
        echo :PROXY: $sockname %p
     
        if *HTTP*Connection*established* iswm %p {
          var %nk $ran(nick)
          sockwrite -tn $sockname NICK %nk 
          sockwrite -tn $sockname USER $ran(nick) 0 * : $ran(user)
        }
        if *PING* iswm %p {
          echo 4,8 Proxy OK!  $sockname
          linesep
        }
        if *proxy* iswm %p {
          echo 4,8 Bilinmeyen !  $sockname
          banz $sockname
        }
        if *TOR* iswm %p {
          echo 4,8 TOR OK!  $sockname
          banz $sockname
          linesep
        }
        if *NOTICE*AUTH* iswm %p {
          echo 4,8 Proxy OK!  $sockname
          banz $sockname
          linesep
        }
        goto .
      }
    }
    ;proxy tipi ayirici
    alias -l tip {
      if *sock4_* iswm $1 { return Sock4 }
      if *sock5_* iswm $1 { return Sock5 }
      if *ProxyGet* iswm $1 { return Proxy GET }
      if *ProxyPost* iswm $1 { return Proxy Post }
      if *Tor* iswm $1 { return Proxy TOR }
    }
    ;ban islemi

     

×
×
  • Create New...