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 {:3_53:}{:3_53:}学习下 顶了
页:
[1]