-
Posts
5,952 -
Joined
-
Last visited
-
Days Won
17
Content Type
Profiles
Forums
Downloads
Gallery
Events
Articles
Posts posted by chain
-
-
-
Looking for a great Radio to listen too. Well we have it for you with nonstop Dj's doing there thing and playing Awsome Music.Relay-Radio tune in at Relay-Radio - HomepageAnd if your looking for extra fun come on in to Buzzen Sports Bar where all the DJ's hang out with the chatter's
-
-
-
Coders-IRC would like to Welcome Neo_NemesisAs he will be a New Moderator on this site & has a lot to offer to our community. He is the Creator of the script LostDX and a lot of snippets from hawkee.
-
Salut, ba voila mon premier script sous mIRC j'ai passé du temps dessus donc voila soyez sympa dite ce que vous en pensez ...
J'ai tout fait dedans, sauf le scanner de clones ... Je ne savais pas comment m'y prendre . Je l'ai pris sur le site . -
Sony has announced that PlayStation CEO Jim Ryan is stepping down from his role and will retire in March 2024. Hiroki Totoki will become the Chairman of Sony Interactive Entertainment in October 2023 then take over as the company's interim CEO on April 1, when Ryan officially retires.
-
-
-
Kagi offers great privacy features, but how does it fare against Google in actual searches?
Google Search vs. Kagi - Is paying for a search engine the future? (stackdiary.com)
-
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:
-
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.
-
-
COVID-19 is DEAD
-
*** What is DreamBot? ***
DreamBot is an IRC robot. If you don't know what IRC is, then you do not need an IRC bot.
It is designed for Windows and it requires mIRC 6.16 to run. This bot was not tested on 6.17
or later versions of mIRC and it may not function correctly. If you do not have mIRC 6.16
please get it from https://mircscripts.net/oldversion/mirc616.exe -
well if he found it he should add it here so future or older scripters can have it also!!
-
I will look this weekend for it Krunchy
-
-
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. }
-
Welcome to "Bot Manager", a full script for mIRC v7.69+ by entropy 2023
-
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
-
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 } }
-
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 }
-
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 ekleyinElle 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]1080eger 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
Stupid Autocorrect
in Funny Comics
Posted