作者归档：虫虫

关于虫虫

虫虫之家，略懂技术

端口扫描（namp扫描）perl自动处理结果

发表评论

确保服务器上装了nmap 并能正常执行，
确保服务器上装了perl
chmod u+x scalport.pl

创建一个ip列表文件（一个ip一行）all.ip

执行 ./scalport.pl all.ip 开始扫描

结果保存为all.csv
继续阅读 →

利用perl-oneline快速定位网站攻击源并处理

发表评论

1、问题发现

在查看网站攻击信息，发现一个时间段流量徒增，猜测可能有攻击，记下当时的时间点，并截图

这是百度免费cdn的免费统计信息，可见今天早上1点到2点有异常流量。
继续阅读 →

perl 实现打印匹配模式行及上下行的操作

发表评论

这个可能用的着，在看日志时候，比如搜索tomcat 错误日志的时候
1、perl One-liner实现

perl -ne '/RE/ and {push @a,$.};push @b,$_;END{for(@a){print $b[$_-2];print $b[$_-1];print $b[$_]}}' file

1	perl -ne '/RE/ and {push @a,$.};push @b,$_;END{for(@a){print $b[$_-2];print $b[$_-1];print $b[$_]}}' file

实现原理:把每一行保存在一个数组@b里，把匹配的行号保存在素组@a里，然后在END模块打印出来

2、perl脚本实现

#!/usr/bin/env perl
$re=shift;
$file=shift;
open $line,"<",$file or die;
while(<$line>)
{
   push @b,$_;
   $i++;
   chomp;
   /$re/ and push(@a,$i) ;
}
close $line;
for(@a)
{
print $b[$_-2];
print $b[$_-1];
print $b[$_];
}

#!/usr/bin/env perl

$re=shift;

$file=shift;

open $line,"<",$file or die;

while(<$line>)

{

push @b,$_;

$i++;

chomp;

/$re/ and push(@a,$i) ;

}

close $line;

for(@a)

{

print $b[$_-2];

print $b[$_-1];

print $b[$_];

}

保存为xx.pl 然后chmod u+x xx.pl
./xx.pl RE file

rex advent——rex获得远程服务器信息

发表评论

如何获得远程服务器的相关信息呢？比如系统的发行版本，版本好，内核的版本号，主机名，网络信息。Rex专门提供了一个模块system_information来收集这些信息。

继续阅读 →

rex advent——rex批量替换被篡改的文件

发表评论

同事发现有部分系统的脚本执行有问题，自动清理的脚本不起作用了，后来发现是系统的find可能被替换了

登录系统发现find被替换为空文件了……

继续阅读 →

rex advent——rex 利用Augeas模块进行文件配置

发表评论

1、Augeas是什么?

Augeas基本上就是一个配置编辑工具。它以他们原生的格式解析配置文件并且将它们转换成树。配置的更改可以通过操作树来完成，并可以以原生配置文件格式保存配置。

继续阅读 →

rex advent—— rex 批量部署sshd密码尝试攻击脚本

发表评论

1、首先是防攻击脚本，原理是扫描/var/log/secure文件，发现一小时内尝试密码错误超过30次的ip，则
将该ip加入iptables黑名单drop掉。

#!/usr/bin/env perl
my $LIMIT=30;
my $log="/var/log/secure";
my $LOGFILE="/data/block_ip.log";
my $TIME=`date '+%b %e %H'`;
chomp $TIME;
my $BLOCK_IP;
my %hash;
open(FD,$log)||die("Can not open the file!$!n");

while(<FD>){
chomp;
if ( /$TIME/ and /Failed password/ )
{
my @line=split;
my $ip=$line[-4];
$hash{$ip}++;
}
}
close(FD);

for(%hash)
{

if ($hash{$_} > $LIMIT)
{
my $IP=$_;
$ips= `iptables-save`;
$mo= qr(/INPUT/ and /DROP/ and /$IP/);
unless ($ips=~$mo)
{
`iptables -I INPUT -s $IP -j DROP`;
my $NOW=`date '+%Y-%m-%d %H:%M'`;
chomp $NOW;
`echo -e "$NOW : $IP" >>$LOGFILE`;
}
}
}

#!/usr/bin/env perl

my $LIMIT=30;

my $log="/var/log/secure";

my $LOGFILE="/data/block_ip.log";

my $TIME=`date '+%b %e %H'`;

chomp $TIME;

my $BLOCK_IP;

my %hash;

open(FD,$log)||die("Can not open the file!$!n");

while(<FD>){

chomp;

if ( /$TIME/ and /Failed password/ )

{

my @line=split;

my $ip=$line[-4];

$hash{$ip}++;

}

close(FD);

for(%hash)

{

if ($hash{$_} > $LIMIT)

{

my $IP=$_;

$ips= `iptables-save`;

$mo= qr(/INPUT/ and /DROP/ and /$IP/);

unless ($ips=~$mo)

{

`iptables -I INPUT -s $IP -j DROP`;

my $NOW=`date '+%Y-%m-%d %H:%M'`;

chomp $NOW;

`echo -e "$NOW : $IP" >>$LOGFILE`;

}

2、将该脚本保存为block_ssh.sh
3、创建一个上传任务，把该文件上传到远程服务器，给予执行权限。加入crontab 每5分钟执行一次。

 task "upload",  group =>"all", sub {
 say connection->server.":begin upload files!";
   upload "block_ssh.sh", "/root/block_ssh.sh";
    run "chmod 755 /root/block_ssh.sh";
    run 'echo "*/5 * * * * root /root/block_ssh.sh" >>/etc/crontab';
say connection->server.":upload success!";
 };

task "upload", group =>"all", sub {

say connection->server.":begin upload files!";

upload "block_ssh.sh", "/root/block_ssh.sh";

run "chmod 755 /root/block_ssh.sh";

run 'echo "*/5 * * * * root /root/block_ssh.sh" >>/etc/crontab';

say connection->server.":upload success!";

};

rex advent—— rex 任务执行情况，错误信息等

发表评论

当批量远程执行任务时如何判断任务执行是否成功，以及错误信息呢？
最简单是方法是在设定执行完一个任务后输出服务器ip，然后根据输出信息来判断

task "task", group => "all",sub {

 ...
 say connection->server;

  };

task "task", group => "all",sub {

...

say connection->server;

};

继续阅读 →

rex advent—— rex 创建用户并追加本地多文件ssh公钥到远程服务器用户

发表评论

管理用户密钥比较繁琐，尤其是多密钥时候，下面给出一种方法：

task "my_user", sub {

  my $local_keys = LOCAL{
    my @key_files = qw(
      /root/.ssh/id_rsa.pub
      /home/user/.ssh/id_rsa.pub
    );
    my @tmp;
    push ( @tmp, split "\n", cat $_ ) foreach @key_files;
    return \@tmp;
  };

  my @remote_keys = split "\n", cat '~/.ssh/authorized_keys';

  create_user "myuser",
              home        => '/home/myuser',
              comment     => 'My user',
              expire      => '2100-05-30',
              password    => 'password',
              system      => 1,
              create_home => TRUE,
              ssh_key     => join "\n", @$local_keys, @remote_keys;
 say connection->server;
};

task "my_user", sub {

my $local_keys = LOCAL{

my @key_files = qw(

/root/.ssh/id_rsa.pub

/home/user/.ssh/id_rsa.pub

);

my @tmp;

push ( @tmp, split "\n", cat $_ ) foreach @key_files;

return \@tmp;

};

my @remote_keys = split "\n", cat '~/.ssh/authorized_keys';

create_user "myuser",

home => '/home/myuser',

comment => 'My user',

expire => '2100-05-30',

password => 'password',

system => 1,

create_home => TRUE,

ssh_key => join "\n", @$local_keys, @remote_keys;

say connection->server;

};

继续阅读 →

rex advent—— rex 加密Rexfile中账号和证书信息

发表评论

我们知道Rexfile的账号密码和证书路径都是密码的，容易泄漏了，我们可以用base94算法对进行一下加密
可以防止直接被泄露，虽然这不能保证被人反解密（可以用自己加密算法写模块，或者更底层的方法，这里不深入），
但是聊胜于无。好吧先看具体做法。

基本原理用Base64基本算法，用两个函数encode_base64()和 decode_base64()。

继续阅读 →