Tema destacado:
 Autor
|
Tema: IRC - Programas, manejo...etc. (Leído 21,581 veces)
|
Isirius
Ex-Staff
 Desconectado
Mensajes: 2.492
|
Es Isirius xD  denada hombre para eso estamos para hechar una mano cuando alguien lo necesita un dia por tu otro por mi.Suerte
|
|
|
|
|
En línea
|
|
|
|
Ejaleano
Desconectado
Mensajes: 4
|
Tambien exiten los windrop y eggdrops
Los Eggdrop Solo Trasbajan En Linux
y lis windrops en win32 =)
Su Configuracion y manejo son sencillos = que Su Configuracion Aqui Les Dejare La Configuracion de mi bot Para Que Lo lean y analicen
set admin "Tunick"
set username "LoQueQuieras"
set botnet-nick "Algo"
set nick "NickDeTuBot"
set altnick "NickAlternativo"
set realname "Es Lo Que Mostrara Cuando le Hagan un Whois "
set userfile "botuser.user"
set chanfile "botchan.chan"
set notefile "botnotas.notes"
logfile mcobxs * "botlogs.log"
#logfile jkp #Tusala"#Tusala.log"
listen 55556 all
#set my-hostname ""
#set my-ip ""
#**********************************************#
##### BINDINGS #####
bind dcc n tcl *dcc:tcl
bind dcc n set *dcc:set
##### SERVER STUFF #####
set network "Servicios Ejale.cl"
set timezone "EST"
set offset "-1"
#set env(TZ) "$timezone $offset"
#addlang "english"
##### LOG FILES #####
set max-logs 5
set max-logsize 0
set quick-logs 0
set log-time 1
set keep-all-logs 0
set logfile-suffix ".%d%b%Y"
set switch-logfiles-at 300
set quiet-save 0
set console "mkcobxs"
##### FILES AND DIRECTORIES #####
set sort-users 0
set help-path "help/"
set text-path "text/"
#set temp-path "tmp/"
set motd "text/motd"
set telnet-banner "text/banner"
##### BOTNET #####
set protect-telnet 0
set dcc-sanitycheck 0
set ident-timeout 10
set require-p 1
set open-telnets 0
set stealth-telnets 1
set use-telnet-banner 0
set connect-timeout 15
set dcc-flood-thr 10
set telnet-flood 5:60
set paranoid-telnet-flood 1
set resolve-timeout 15
##### MORE ADVANCED STUFF #####
set ignore-time 15
set hourly-updates 47
set notify-newusers "$owner"
set default-flags "+o"
set remote-boots 1
set share-unlinks 1
set must-be-owner 1
set max-dcc 50
set dcc-portrange 1024:65535
set dupwait-timeout 5
########## MODULES ##########
set mod-path "modules/"
loadmodule dns
loadmodule channels
set ban-time 0
set force-expire 0
set exempt-time 60
set invite-time 60
# set force-expire 0
set share-greet 1
set use-info 1
### GLOBAL CHAN SETTINGS ###
set global-flood-chan 4:2
set global-flood-deop 3:10
set global-flood-kick 3:10
set global-flood-join 5:60
set global-flood-ctcp 4:60
set global-flood-nick 5:60
set global-aop-delay 0:30
set global-idle-kick 0
set global-chanmode ""
set global-stopnethack-mode 0
set global-revenge-mode 1
set global-chanset {
-autoop +autovoice
-bitch +cycle
+dontkickops +dynamicbans
+dynamicexempts +dynamicinvites
+enforcebans -greet
-inactive +nodesynch
-protectfriends -protectops
-revenge -revengebot
-secret
+shared +statuslog
+userbans -userexempts
+userinvites -seen
}
channel add #Tusalaaqui {
chanmode "+nt"
idle-kick 0
stopnethack-mode 0
revenge-mode 1
aop-delay 5:30
need-op {}
need-invite {}
need-key {}
need-unban {}
need-limit {}
flood-chan 4:2
flood-deop 3:10
flood-kick 3:10
flood-join 5:60
flood-ctcp 4:60
flood-nick 5:60
}
channel add #OtraSala {
chanmode "+nt"
idle-kick 0
stopnethack-mode 0
revenge-mode 1
aop-delay 5:30
need-op {}
need-invite {}
need-key {}
need-unban {}
need-limit {}
flood-chan 4:2
flood-deop 3:10
flood-kick 3:10
flood-join 5:60
flood-ctcp 4:60
flood-nick 5:60
}
##### SERVER MODULE #####
loadmodule server
set net-type 0
set init-server { putserv "MODE $nick +iw" }
set default-port 6667
set servers {
216.218.209.203:6667:LaPasDelBot}
set keep-nick 1
set strict-host 1
set quiet-reject 1
set lowercase-ctcp 0
set answer-ctcp 3
set flood-msg 5:60
set flood-ctcp 7:60
set never-give-up 1
set strict-servernames 0
set server-cycle-wait 20
set server-timeout 15
set servlimit 0
set check-stoned 1
set use-console-r 0
set debug-output 0
set serverror-quit 1
set max-queue-msg 300
set trigger-on-ignore 0
set double-mode 0
set double-server 0
set double-help 0
set optimize-kicks 1
#### VARIOUS MODULES ######
#set check-mode-r 1
set nick-len 9
loadmodule ctcp
set ctcp-mode 2
loadmodule irc
set bounce-bans 1
set bounce-modes 0
set max-bans 20
set max-modes 30
set kick-fun 0
set ban-fun 0
set learn-users 0
set wait-split 600
set wait-info 60
set bounce-exempts 0
set bounce-invites 0
set max-exempts 20
set max-invites 20
#set use-exempts 0
set use-invites 1
set prevent-mixing 1
#set kick-method 1
#set modes-per-line 3
#set include-lk 1
#set use-354 0
#set rfc-compliant 1
loadmodule transfer
set max-dloads 3
set dcc-block 1024
set copy-to-tmp 1
set xfer-timeout 30
##### SHARE MODULE #####
loadmodule share
#set private-global 0
#set private-globals "mnot"
#set private-user 0
#set override-bots 1
##### COMPRESS MODULE #####
#loadmodule compress
#set share-compressed 1
#set compress-level 9
##### FILESYSTEM MODULE #####
#loadmodule filesys
set files-path ""
set incoming-path "/home/upload"
set upload-to-pwd 0
set filedb-path ""
set max-file-users 5
set max-filesize 0
##### NOTES MODULE #####
loadmodule notes
set max-notes 10
set note-life 60
set allow-fwd 0
set notify-users 0
set notify-onjoin 0
##### CONSOLE MODULE #####
loadmodule console
set console-autosave 1
set force-channel 0
set info-party 1
##### DIFF MODULES #####
#loadmodule seen
checkmodule blowfish
loadmodule assoc
#loadmodule wire
##### SCRIPTS #####
#aqui se cargan los tcl o lso script de tu bot, los cuales debes poner en al carpeta script.
#Para que funcione por ejemplo si quieres cargar el google.tcl tendría que ser así como está abajo, pero sin el # al comienzo.
#Aqui Iran Todas Las TCL o Configuraciones adicionales Del Bot
#source scripts/sentinel.tcl
set init-server {
putserv "MODE $botnick +s"
putserv "PRIVMSG NickServ :identify 123456"
}
Esa Seria la Configuracion De Mi Windrop Espero Les Alla Gustado..
|
|
|
|
|
En línea
|
|
|
|
IL TANO
Desconectado
Mensajes: 1
|
Hola: Felicitaciones por el foro, resulta muy interesante, más siendo un Novato TOTAL como Yo!!
Planteo mi problema: Uso mIRC6.2 / IRCAP 8.2, sobre Windows XP SP2, conexión Routers. El tema es que hasta hace unos días al realizar un /Whois nick ... me salía como información el proveedor del servicio de internet de ese nick, es decir, me salia la IP dinámica o virtualhost...etc.etc, pero también me salia desde donde estaba ese nick conectado .... me figuraba desde España, Italia, Dinamarca, Chile, Argentina, etc, pero desde hace dos días que no me figura más, hay una opción en mIRC ó IRCAP que debo habilitar o no?, es un problema de mi proveedor de Internet (Arnet)?, es un privilegio que me quitaron (sin saber que lo tenía)?. El servidor a cual me conecto es grprisa, que es el servidor de los 40 principales de españa, osea del grupo prisa.
Pongo un ejemplo cualquiera....virtual-EFB675B7.pool20-20-20.dynamic.orange.es--------■España; ya no me figura más lo de pool20-20-20.dynamic....etc
Desde ya muchísimas gracias a todos.-
IL TANO.-
|
|
|
|
|
En línea
|
|
|
|
AlexGPL
Desconectado
Mensajes: 103
|
Aqui esta un pequeño bot que yo hice hace un tiempo para aprender un poco de Perl: #! /where/is/perl
# Solo lo hice por molestar a Kalisto
# Y practicar un poco de perl :)
# No se olviden de visitar mi web: http://crackx.webcindario.com
# Att: Crack_X
use IO::Socket;
####variables importantes
$server = "sombra.irc-domain.org";
$nick = "pb0t";
$own = "Crack_X";
#Por si el nick requiere password.
$key = "";
$shots = 1;
$boom = rand(6);
$boom = round($boom);
$boom = $boom + 1;
print "BOOM is $boom\n";
####
####Funcion para redondear un numero
sub round {
my($number) = shift;
return int($number + .5);
}
####
$sock = IO::Socket::INET->new(
Proto=>"tcp" ,
PeerAddr=> $server ,
PeerPort=>"6667"
)
or die "No se pudo lograr la conexion con $server .\n";
print "*Conectado a $server\n";
print $sock "NICK $nick\n";
print $sock "USER pb0t pb0t home b0t\n";
print "*Nick y user an sido enviado\n";
while (<$sock>){
@space = split(" ",$_);
@dots = split(":",$_);
@u = split("!",$_);
$num = $space[1];
print "<-" . $_;
#print "test->" . $space[0] . " dots " . $dots[1] . "\n";
if ($space[0] eq "PING"){
print $sock "PONG " . $dots[1] . "\n";
print "->PONG: ". $dots[1];
}
if ($num == 001){
#Al canal que entra automaticamente al conectarse.
print $sock "JOIN #g00d\n";
}
if ($space[1] eq "PRIVMSG"){
$who = $u[0];
$chan = $space[2];
$lin = $dots[2];
@cmd = split(" ",$lin);
if ($who eq $own){
if ($cmd[0] eq "!echo"){
foreach $com(@cmd){
if ($com ne "!echo"){
$full = $full . $com . " ";
}
}
print $sock "PRIVMSG $chan :$full\n";
$full = "";
}
elsif ($cmd[0] eq "!join"){
print $sock "JOIN $cmd[1]\n";
}
elsif ($cmd[0] eq "!part"){
print $sock "PART $cmd[1]\n";
}
elsif ($cmd[0] eq "!quit"){
exit;
}
}
if ($cmd[0] eq "!shoot"){
$who =~ s/://;
if ($shots == $boom){
print $sock "PRIVMSG $chan :Boom! , $who esta muerto.\n";
$boom = rand(6);
$boom = round($boom);
$boom = $boom + 1;
print "BOOM is $boom\n";
$shots = 1;
print $sock "PRIVMSG $chan :Revolver recargado.\n"
}
else{
print $sock "PRIVMSG $chan :Click! , $who se salvo.\n";
}
if ($shots == 6)
{
$boom = rand(6);
$boom = round($boom);
$boom = $boom + 1;
print "BOOM is $boom\n";
$shots = 1;
print $sock "PRIVMSG $chan :Revolver recargado.\n"
}
else{
$shots++;
}
}
}
} Al conectarse entra a un canal llamado #g00d. Comandos:!echo: dice cualquier mensaje que le pases. !join: entra al canal indicado !part: sale de un canal indicado !quit: se desconecta !shoot: es el unico comando para el cual no necesitas ser el dueño del bot, es un simple juego de ruleta rusa , hace un disparo si te toco la bala "mueres" y si no pues te salvas y al acabarse las balas o alguien morir pues recarga automaticamente. Tengo un problema con tu bot. No me responde al comando !echo. He modificado lo de "own" con mi nick, etc etc pero nada.
|
|
|
|
|
En línea
|
|
|
|
rocha11
Desconectado
Mensajes: 1
|
ostia...parece que esta wapo esto,me miraré cosas por este foro,stoy en primero de informatica,el martes tengo examen de programacion jejjeje,me van a follar
|
|
|
|
|
En línea
|
|
|
|
|
|
daisy
Desconectado
Mensajes: 1
|
busco remotes para ircop
|
|
|
|
|
En línea
|
|
|
|
Riper
Desconectado
Mensajes: 190
Mas Chileno que los porotos con longaniza...
|
y como lo haces para crear un server y que tus amigos se conecten a este??? uso: mIRC 6.35 Gracias |
|
|
|
|
En línea
|
|
|
|
Sito_Metal
Desconectado
Mensajes: 7
Cria Cuervos Y Te Sacaran Los Ojos
|
Buenas, les dejo mi primer proyecto un Bautista, como las redes de hispano, un bots para la ayuda , hace comunicar a un Operador cuando un nick pide ayuda #!/usr/bin/perl
use IO::Socket;
####variables importantes
$server = "Nombre servidor";
$nick = "Bautista";
#Por si el nick requiere password.
$key = "Contraseñá del nick";
%gente = "";
@topic = "Bienvenid\@s a $canal_ayuda Plantea tu duda por Privado a $nick o bien en caso de estar algun @ disponible en el General";
$canal_ayuda = "#opers_help";
$canal_opers = "#opers";
$sock = IO::Socket::INET->new(
Proto=>"tcp" ,
PeerAddr=> $server ,
PeerPort=>"6667"
)
or die "No se pudo lograr la conexion con $server .\n";
print "*Conectado a $server\n";
print $sock "NICK $nick \n";
print $sock "USER Bauu Bauu Bauu Bauu\n";
print "*Nick y user an sido enviado\n";
while (<$sock>)
{
@space = split(" ",$_);
@dots = split(":",$_);
@chanel = split(" ",$dots[2]);
@u = split("!",$_);
@nicks = split(":",$u[0]);
@raw_num = split(" ",$_);
@puntos = split(":",$_);
print $sock "JOIN $canal_ayuda\n";
print "<-" . $_;
#print "test->" . $space[0] . " dots " . $dots[1] . "\n";";
if ($space[0] eq "PING")
{
print $sock "PONG " . $dots[1] . "\n";
print "->PONG :". $dots[1] . "\n";
}
if ($space[1] eq "JOIN" && $nicks[1] eq $nick && $chanel[0] eq $canal_ayuda)
{
&topic("$canal_ayuda","@topic");
print $sock "JOIN $canal_opers \n";
} #fin del if join
if ($space[1] eq "PRIVMSG" && $space[2] eq $nick)
{
my $dentro = exists $entra{$nicks[1]};
if ($dentro == 1)
{
@mensaje = split(" ",$dots[2]);
my $existe = exists $gente{$nicks[1]};
if ($existe == 0)
{
print $sock "PRIVMSG $nicks[1] :Su mensaje a sido enviado, en unos momentos sera atendido, gracias. \n";
@rand_list = keys(%opers_activos);
$numero = @rand_list;
if ($numero >= 1)
{
$azar = rand($numero);
print $sock "PRIVMSG $rand_list[$azar] :El usuario $nicks[1] tiene el mensaje : @mensaje \n";
}
elsif ($numero <= 0)
{
print $sock "PRIVMSG $canal_opers :El usuario $nicks[1] tiene el mensaje : @mensaje \n";
$gente{$nicks[1]}="1";
}
}
}
}
if ($space[1] eq "JOIN" && $nicks[1] ne $nick && $chanel[0] eq $canal_ayuda)
{
print $sock "MODE $canal_ayuda +v $nicks[1] \n";
print $sock "PRIVMSG $nicks[1] :Hola $nicks[1] , Soy $nick , el encargado de ponerte con un operador. Describa brevemente su problema \n";
$entra{$nicks[1]}="$chanel[0]";
}
if ($space[1] eq "PART" && $space[2] eq $canal_ayuda)
{
delete($gente{$nicks[1]});
}
if ($space[1] eq "PRIVMSG" && $space[2] eq $canal_opers)
{
@escucha = split(" ",$dots[2]);
if ($escucha[0] eq activo)
{
$activo = exists $opers_activos{$nicks[1]};
if ($activo == 0)
{
$opers_activos{$nicks[1]}="1";
&informa("1","$nicks[1]");
}
elsif ($activo == 1)
{
&error("1","$nicks[1]");
}
}
if ($escucha[0] eq desactivo)
{
$desactivo = exists $opers_activos{$nicks[1]};
if ($desactivo == 1)
{
delete($opers_activos{$nicks[1]});
&informa("2","$nicks[1]");
}
elsif ($desactivo == 0)
{
&error("2","$nicks[1]");
}
}
if ($escucha[0] eq lista)
{
@lista_temp = keys(%opers_activos);
{
print $sock "PRIVMSG $canal_opers :Operadores activos :@lista_temp \n";
}
}
}
}
sub error
{
if ($_[0] == 1)
{
print $sock "PRIVMSG $canal_opers :$_[1] Ya estas activo \n";
}
elsif ($_[0] == 2)
{
print $sock "PRIVMSG $canal_opers : $_[1] No esta en la lista \n";
}
}
sub informa
{
if ($_[0] == 1)
{
print $sock "PRIVMSG $canal_opers :$_[1] Se añadio a la lista con exito \n";
}
elsif ($_[0] == 2)
{
print $sock "PRIVMSG $canal_opers :$_[1] Se le borro de la lista con exito \n";
}
}
#sub join
#{
#} #join fin
#sub nick
#{
#} #nick fin
#sub canal
#{
#} #canal fin
sub whois
{
}
#whois fin
#sub raw
#{
#} #raw fin
sub topic
{
print $sock "TOPIC $_[0] $_[1] \n";
} COMANDOS Para el canal Donde estaran los operadores en general : activo - le activa como operador ,en caso de ayuda,usted estaria disponible desactivo - lo contrario a la anterior list - lista los operadores activos Bueno, esta en su primera version , pero se hace una idea y asi compartimos conocimientos , saludos |
|
|
|
|
En línea
|
Mas Vale Morir De Pie, Que Vivir Arrodillado!!!!
|
|
|
|
 |
