Perl IRC bot

'Tool' forumunda KaliBot tarafından 22 Şubat 2016 tarihinde açılan konu

  1. KaliBot

    KaliBot Albay

    Katılım:
    30 Haziran 2015
    Mesaj:
    573
    Beğeniler:
    65
    Ödül Puanları:
    12
    Web Sitesi:

    Kod:
    #!/usr/bin/perl -w
    
    use IO::Socket;
    
    my $server = $ARGV[1];
    my $user = 'simplebot simpleb simpleot plotsim';
    my $botnick = $ARGV[0];
    my $nickservpass = $ARGV[2];
    
    if(@ARGV < 2) {
    print STDOUT "Usage: $0 [nick] [server] [nickserv pass] -- if nickname is not registered , leave it blank.\n";
    exit; }
    
    $con = IO::Socket::INET->new(PeerAddr=>$server,
                                 PeerPort=>'6667', # change this if needed..
                                 Proto=>'tcp',
                                 Timeout=>'30') || print "Error: Connection\n";
    
    print $con "USER $user\r\n";
    print $con "NICK $botnick\r\n";
    if(@ARGV == 3) {
    print $con "privmsg nickserv IDENTIFY $nickservpass\r\n"; } # if $ARGV[2] exists..
    print $con "JOIN #channel\r\n"; # modify that ..
    
    while($answer = <$con>) {
    
    #                      #
    # add code here #
    #                      #
    
    if($answer =~ m/^PING (.*?)$/gi) {
    print $con "PONG ".$1."\n"; # replying to pings..
    }
    
    print STDOUT $answer; # printing $answer to the terminal..
    }
     

Bu Sayfayı Paylaş

Share