Perl 黑客编程(六)

私奔

Perl 黑客编程(六)
减小字体 增大字体
七．文件读写

在编写本地溢出exploit时经常要构造一个可触发溢出的文件，这里就需要对文件进行读写了。要对某文件进行操作需要先打开文件，打开文件的语法如下：

open (fp,” filename”)，其中fp为文件句柄，可以理解为文件的代号，filename是文件名，其路径可为相对路径，也可为绝对路径。例如：

open(fp,”exploit.mp3”);

open(fp,”c:/hacking/exploit.mp3);

如果我们想创建一个不存在的文件可以使用下列语句:

open (fp,”>>exploit.mp3”);

如果打开失败，我们可以结束程序，那么以上代码可更改为：

unless (open(fp,”exploit.mp3”)) {

die (“open file fail\n”);

}

成功打开文件之后，我们就可以对其进行读写了。读取文件的语法为：

（1）$line=<fp>:从文件中读取一行数据并将其储存到变量$line中，而且文件指针会向后移动一行。

（2）@array=<fp>:读取文件的所有内容并将其储存到数组@array中，而且文件中的每一行（包含回车符）为@array中的一个元素。

写文件的语句如下：

print(fp,”hello\n”);

对文件操作完成后，需要关闭文件：

close (fp);

下面我们举个例子来进行文件读写操作：

if (open(fp1,">>exploit.txt")) {

       print ("create file sucessful!\n");

}

else {

       die("create file fail !\n");

}

print fp1 ("riusksk\n"."quange\n");

close (fp1);

unless (open(fp2,"exploit.txt")) {

die ("open file fail\n");

}

@array= <fp2>;

print ("the content of exploit.txt : \n");

print @array;

close (fp2);

输出结果如下：

d:\>perl riusksk.pl

Create file sucessful !

The content of exploit.txt ：

riusksk

quange

廊坊遥遥

学习下 顶了