Bir Open Source Virus hikayesi

[tr_escape]

Arkadaşlar,

Delphi'ın Syscons.dcu veya sysconst.pas dosyasına bulaşan bir virüs peydah oldu.

Kaspersky’da adlandırması Win32.Induc.a olarak geçiyor, kendisini sysconst.pas’a include etmek sureti ile bulaşıyor.

Böylelikle her derlemede exe içerisinde virüscük de yaşamaya devam ediyor.

Bu durumda önce virüs temizliği sonra mutlaka delphi’ı kaldırıp tekrar kurmak lazım (ben öyle yaptım).

Evet ne yazıkki sisteminizde hiç virüs olmasa da kullandığınız ücretsiz full open source komponentler de ne yazıkki virüse neden olabiliyor.

Her yüklediğimiz yeni komponeneti bir de kod kontrolünden geçirmek lazım sanırım.

Virüslü olup olmadığınız anlamak için sysconst.pas içinde şu tür kodlar var mı yok mu bakmak gerekiyor. Tabi bu sadece bu türün bir türevi ise dışarıdan aldığımız her komponenti incelemek de şart

[Aşağıdaki kod Kaspersky'dan alıntıdır]

uses windows;
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’,

[Yukarıdaki kod Kaspersky'dan alıntır]

Virüssüz bir yaşam dileği ile

 

[tayfun2020]

çok teşekkürler.

 

[webuyeislemleri]

" Delphi'ın Syscons.dcu veya sysconst.pas dosyasına bulaşan bir virüs peydah oldu "

Aynen bu virüs dalga dalga yayılıyor. Kesin çözümü daha açarmısınız. Nasıl çözeriz. Derlenen projeler çatladı.

 

[tr_escape]

Kaspersky bu virüsü buluyor, ama daha sonra mutlaka delphi kaldırılıp tekrar yüklemek te fayda var bence. Zira ya sadece sysconst'a bulamadıysa?

Alınan komponentleri de mutlaka incelemek lazım