Government Security
Network Security Resources

Jump to content

Photo

Irc Bot In Perl


  • Please log in to reply
52 replies to this topic

#46 netcomm

netcomm

    Specialist

  • Members
  • 121 posts

Posted 12 December 2007 - 07:21 PM

it has to be if($irc= as $in is not defined... for real you should learn perl.....

#47 ADX

ADX

    Private

  • Members
  • 7 posts

Posted 13 December 2007 - 01:38 AM

it has to be if($irc= as $in is not defined... for real you should learn perl.....


sorry i`m a novice and i do not know perl but i want to learn

pls paste the code bot.pl theat woeked for u

or the full archive but test it in undernet

#48 ADX

ADX

    Private

  • Members
  • 7 posts

Posted 15 February 2008 - 10:38 AM

Heh Made It :D

if ($in =~ /^PING \:(.*)/) {
sendraw("PONG :$1");
}

sub sendraw {
if ($#_ == '1') {
my $socket = $_[0];
print $socket "$_[1]\n";
} else {
print $irc "$_[0]\n";
}
}

#49 netcomm

netcomm

    Specialist

  • Members
  • 121 posts

Posted 01 November 2009 - 11:11 PM

has anyone got the perlibot.rar???
i lost it awhile back..

#50 Darian

Darian

    Private

  • Members
  • 2 posts

Posted 06 December 2009 - 11:04 PM

I tried this bot on a 64 bit Vista box using Perl compiled for 64 bit systems.
When the bot is launched, it just fails to connect. Have not tried it on a 32 bit system yet, I will upload it to my server tonight and test.
Being in Iraq will make this a time consuming process but I want a bot like this in my channel.

I do hope this bot forum is still active.

#51 netcomm

netcomm

    Specialist

  • Members
  • 121 posts

Posted 07 December 2009 - 08:07 PM

woohoo, i found it....

http://rapidshare.co...liebot.rar.html

#52 Darian

Darian

    Private

  • Members
  • 2 posts

Posted 09 December 2009 - 01:26 AM

Congrats, hope we can get this thing working the way it was intended. Looking forward to getting it programmed for my channel.

Darian
aka: Keldo

chat.collarme.com
#HOK

Reality of the Gorean Philosophy!

#53 smook

smook

    Private

  • Members
  • 1 posts

Posted 04 January 2011 - 06:46 AM

Hi, link doesn't work..
But thanks anyway, looks great..
The only worry is that i also get the ERROR 451: You haven't registered.
I tried everything but nothing came to help.
A friend told me the handshake sequence was wrong.. Hum.. Wut's that ?
Netcomm could you explain, cuz' I'm a beginner in perl.

Thanks in advance !
-Smook'<3




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users