These images don't represent my own idea. I don't agree but I don't disagree with them :D.
#!/usr/bin/perl -w
# First and Basic Example of IRC bot
# http://marcoramilli.blogspot.com
##################################
use IO::Socket;
my $server = $ARGV[1];
my $user = 'marcoramilli';
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..
}
I definitely suggest to take a look to my small but interesting ICRBot collection if you are interested on having some basic about bot programming. You probably want to reuse part of the code and/or mix it with your own. In the collection you'll find :
Obviously everything is only for research purpose on socket programming and on computer science security. The bots cannot be installed on unaware systems, you can install the bots only on your own systems.
Have fun !
############################################
#!/usr/bin/perl
# Proxy Checker
# http://marcoramilli.blogspot.com
############################################
use WWW::Mechanize;
@proxy=`cat proxy.lst`;
foreach $i (@proxy) {
chomp($i);
my $go = WWW::Mechanize->new( agent=> "Mozilla/5.0" );
$go->proxy(['http'], 'http://'.$i.'/');
$go->get('http://www.whatismyip.com');
$match = $go->content;
# print "$match\n";
my($crap,$ip)=split(/^(.*):/,$i);print "$i -> ";
if ($match =~ m/(.*)Your IP Is $ip(.*)/ ) { print "Ok.\n";
open(LOG,">> proxy.log"); print LOG "$i\n"; close(LOG);
}
else { print "Nop\n"; }
}
BTW, why don't you write some comments instead to email me ? :D
Just kidding, emails are fine.
The "Aurora" IE Exploit in Action
ZeuS (also known as Zbot / WSNPoem) is a crimeware kit, which steals credentials from various online services like social networks, online banking accounts, ftp accounts, email accounts and other (phishing). The web admin panel can be bought for 700$ (source: RSA Security 4/21/2008) and the exe builder for 4'000$ (source: Prevx 3/15/2009).
Posts
All Comments
