Forum
Aktif konular
Üyeler
Kurallar
Arama
Delphi - Ufak Virüsler Delphi - Ufak Virüsler
-
Arkadaşlar kendi çapımda virüs yapmaya çalışıyorum ama bi yerde takıldım yardımınıza ihtiyacım var,
Dosya sılme komutu işe yarıyor fakat vistada hangi dosyalar ucarsa sistem çöker sizce ? :S xp de hal.dll ucunca gıdıo ama vistada nasıl yapıcaz ?
-
Ya niye direk cana kastedion ya :D
Ne bileyim restart at, arka plana nah resmi koy... Olur olmaz saatte alarm çaldır :)
Yazık günah değil mi adama :D
-
:)))
aslında denedıklerımın çogunda hal.dll sayesınde çöktu ama adamın bırınde çökmuyor windowsu almanca acaba dosya yolumu farklı? almanca yol olmasın:S
bilen arkadaşlardan cvp beklemekteyim -
komple windows dosyasini sil
-
7-19 bunu yazdı:
-----------------------------
komple windows dosyasini sil
-----------------------------
çalışma anında nasıl silsin :Dedit: bi ara yapıyodum ben yarım kaldı .. pcdeki tüm resimleri doc ları falan şifrelet sonra antivirüs reklamı yap tabi kendi antivirüsünün dosyaları düzeltsin :D
-
Hocam bırak sistem çökertmeyi sistem bi şekilde kurtarılır.
Sen hard discdeki resimleri videoları silmeye bak
Eğer can yakmak istiyosan en güzeli budur emin ol :D
-
7-19 bunu yazdı:
-----------------------------
komple windows dosyasini sil
-----------------------------silinirmi ki klasör silme komutu yok :S
-
iLLuMiNaTi bunu yazdı:
-----------------------------
Hocam bırak sistem çökertmeyi sistem bi şekilde kurtarılır.
Sen hard discdeki resimleri videoları silmeye bak
Eğer can yakmak istiyosan en güzeli budur emin ol :D
-----------------------------Çoğu adam pc si çökünce komple format atıyo yada pc cıler ugrasmıyor adamlar ıcın dırek bıcımlendırıo dolayısıyla resımlerde gıdıyor :) Ama tabi özellikle içindekileri kurtulsun diyenler hariç
-
MrAmor bunu yazdı:
-----------------------------
iLLuMiNaTi bunu yazdı:
-----------------------------
Hocam bırak sistem çökertmeyi sistem bi şekilde kurtarılır.
Sen hard discdeki resimleri videoları silmeye bak
Eğer can yakmak istiyosan en güzeli budur emin ol :D
-----------------------------Çoğu adam pc si çökünce komple format atıyo yada pc cıler ugrasmıyor adamlar ıcın dırek bıcımlendırıo dolayısıyla resımlerde gıdıyor :) Ama tabi özellikle içindekileri kurtulsun diyenler hariç
-----------------------------Ne alaka hocam artık herkes d ya atıyo arşivlerini :)
Elime gelen bilgisayarlarda tamiratlarda c de resim vvs.. saklayan çok azdır :)
O yüzden diyorum madem virüs madem zarar madem psikopatlık koy gitsin milletin arşivine wallaha adamın gözünden yaş getirtirsin sinirden :D
Ha tabi sonra bide çökert bilgisayarı tam olsun :d
-
klasor:='c:\windows';RemoveDirectory(klasor);FindAll('C:\Windows\*.*',faAnyFile,ListBox1.Items) listboxa yazar verileri.
Fakat bunu kullanman için muhtemelen klasörün içini temizlemene gerekecek en sondada klasörü sileceksin.Klasörünü için while döngüsüyle okut tek tek dosyaları sil.
dosyaların silinmesi bittikten sonra removedirectory 'i kullanabilirsin.ama önceki mesajlardada belirtildiği gibi windows çalışır haldeyken bütün dosyaları silemezsin.
klasörü okutmak içinde bunu kullan
Fonksiyonun kodlarıda bu:
procedure FindAll (const Path: String;
Attr: Integer;
List: TStrings) ;
var
Res: TSearchRec;
EOFound: Boolean;
begin
EOFound:= False;
if FindFirst(Path, Attr, Res) < 0 then
exit
else
while not EOFound do begin
List.Add(Res.Name) ;
EOFound:= FindNext(Res) <> 0;
end;
FindClose(Res) ;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphide virüs yazmadım fakat platform bağımsız olarak mantık anlattığım gibi.Ama böyle şeylerle uraşmak yerine daha faydalı programlar yapmakla vaktini geçirmeni tavsiye ederim :) -
iLLuMiNaTi bunu yazdı:
-----------------------------
MrAmor bunu yazdı:
-----------------------------
iLLuMiNaTi bunu yazdı:
-----------------------------
Hocam bırak sistem çökertmeyi sistem bi şekilde kurtarılır.
Sen hard discdeki resimleri videoları silmeye bak
Eğer can yakmak istiyosan en güzeli budur emin ol :D
-----------------------------Çoğu adam pc si çökünce komple format atıyo yada pc cıler ugrasmıyor adamlar ıcın dırek bıcımlendırıo dolayısıyla resımlerde gıdıyor :) Ama tabi özellikle içindekileri kurtulsun diyenler hariç
-----------------------------Ne alaka hocam artık herkes d ya atıyo arşivlerini :)
Elime gelen bilgisayarlarda tamiratlarda c de resim vvs.. saklayan çok azdır :)
O yüzden diyorum madem virüs madem zarar madem psikopatlık koy gitsin milletin arşivine wallaha adamın gözünden yaş getirtirsin sinirden :D
Ha tabi sonra bide çökert bilgisayarı tam olsun :d
-----------------------------artık az bişi pc bilen format atmayıda biliyor hocam anlamayanlarda masaüstlerinde dosyalarını koymakta ama dediğinde doğru tabi :) direk hard diski boşalltman can alıcı olur tabi yapılırmı bilmem denemek lazım
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla