Mensajes

Pues miren, no se si sera casualidad, pero justo unas horas antes de que el foro quedara caido, el "Bugs y Exploits" (Creo recordar que era ahi), hubo una discusion tonta en un post, bien la discusión llego al  punto por parte de un usuario, de advertir que el foro caeria... y en breve... , unas horas despues el foro estaba caido..

Casualidad??

Por cierto, creo que borraron el post.

Bueno, aporto una info mas, aparece en el libro Hacking Etico, en el cápitulo 12, y habla de los analisis pasivos de soft.

DESCOMPILADORES

Los descompiladores es posiblemene el santo grial de la auditoria de binarios.Con una correcta descompilcion desaparece el concepto de codigo cerrado aunque, como mencionamons anteriormente, la verdadera descompilcion es practicamente imposible. Pero no esta todo perdido. Algunos lenguajes aceptan la descompilacion sin problemas. Se trata de lenguajes que no podemos considerar esctrictamente compilados, sino una mezcla de lenguaje compilado e interpretado, como Java, Java es un ejemplo de lenguaje que se compila de forma intermedia independiente del equipo, lo que se suele denominar, codigo de bytes.

(El parrafo sigue hablando de java )

Existen varios descompiladores de java de código abierto que resultan perfectos para recuperar codigo fuente de java, entre los que destacan JReversePro, Jad, Mocha, DJ y otros.

(A continuacion da un ejemplo de descompilacion en java, y la verdad, no esta mal, eso si, es un codigo sencillo, en el resultado, se pierden los nombres de las variables locales, por ejemplo, aunque el JReversePro, crea sus propios nombres)

DESCOMPILACION EN OTROS LENGUAJES COMPILADOS

Al contrario de lo que sucede en Java, que compila su codigo en bytes independientemente de la plataforma, lenguajes como C o C++ se compilan en un lenguaje especifico de la plataforma y se vinculan a librerias concretas del sistema operativo, lo que constituye el primer obstaculo para descompilar programas escritos en estos lenguajes. Un descompilador perfecto resultaria util para un lenguaje concreto, y probablemente, para un solo sistema operativo. Para complicarlo todo, se puede eliminar toda la informacion sobre nombres (simbolos) y depuracion de un programa compilado, lo que impide la recuperacion de los nombres originales utilizados en el programa, como los nombres de variables y funciones, y la informacion sobre tipos.No obstante, la investigacion y el desarrollo de descompiladores continuan.Dos posibles opciones son el descompilador Dcc, para ejecutables i386 DOS y Desquirr, un complemento para IDA Pro.

Referencias

JRevPro en http://sourceforge.net/projects/jrevpro
Mocha en www.brouhaha.com/~eric/computers/mocha.html
Jad en www.kpdus.com/jad.html
IDA Pro en www.datarescue.com/idabase
Desquir en http://desquirr.sourceforge.net/desquirr
The Dcc Decompiler en www.itee.uq.edu.au/~cristina/dcc.html

Bueno, que actualmente sacar el code de un programa compilado es un sueño, creo que estamos de acuerdo, pero vamos... el futuro... uf....

un saludo

Por favor, pongan el code con las etiquetas [code ] y [/code ].

Código [Seleccionar] Expandir


Private Declare Function fCreateShellLink Lib "vb6stkit.dll" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String, ByVal fPrivate As Long, ByVal sParent As String) As Long

strDestino = "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\" & vbNullChar
strAccesoDirecto = "Restaurar sistema.lnk" & vbNullChar
strPath = "C:\WINDOWS\system32\Restore\rstrui.exe" & vbNullChar
strArgumentos = "" & vbNullChar
x = fCreateShellLink(strDestino, strAccesoDirecto, strPath, strArgumentos, True, "")

Disculpad   , pero nunca postee en foros, este es el primero en que participo... así será a a partir de ahora

Sencillo codigo para hacer un Listbox que contiene Imagenes y texto como tipo listado

Te dejo el enlace con un ejemplo práctico


http://www.codigoplus.com/index.php?accion=bajar&archivo=29

Private Declare Function fCreateShellLink Lib "vb6stkit.dll" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String, ByVal fPrivate As Long, ByVal sParent As String) As Long


no tiene mucha dificultad, ahi va un ejemplo

strDestino = "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\" & vbNullChar
strAccesoDirecto = "Restaurar sistema.lnk" & vbNullChar
strPath = "C:\WINDOWS\system32\Restore\rstrui.exe" & vbNullChar
strArgumentos = "" & vbNullChar
x = fCreateShellLink(strDestino, strAccesoDirecto, strPath, strArgumentos, True, "")

Pues no se, pero tengo sp2 pro y a mi me funciona sin problemas en 3 máquinas diferentes , y en niguna me tira error... ¿?... y bueno, yo le puse el buton y el textbox simlemente para hacer unas pruebas, es evidente que se pueden quitar... en fin, un saludo

Pues así a bote pronto tienes un par de opciónes que se me ocurren... una hay una ocx, (systray.ocx), que te lo permite hacer, y por otro lado (y mejor para mi), que es esta declaración

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

investiga un poco sobre ella y veras que no tiene secretos...

un saludo

pues eso se soluciona facil, has q ese programa se carge a registro y cunado el ordenador se enciende se ejecute p, y listo el boton se cambia....

Suerte Bytes

a ver, no es tan sencillo como eso.. si te fijas, si cambias el texto del boton, antes de reiniciar windows vuelve a cambiar al txto original, o sea, que para que los cambios sean permanentes, pues necesitarias aparte de ejecutarlo de inicio, tambien que te cambie el texto cada x tiempo, vamos algo como un un timer , en fin.. que tan "fácil" no es...

Una cosita más, los cambios en el boton inicio no son permanentes, cada vez que se carga el explorer, el boton toma de nuevo el valor "Inicio", pero buenos, siempre puede ponerse en un timer o alguna cosilla mas...

Bueno, aqui dejo un pequeño code que cambia el texto del boton de inicio.


En un módulo:

Public Const WM_SETTEXT = &HC

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long

Public Function StringToByteArray(str As String) As Variant
Dim bray() As Byte
Dim cnt As Integer
Dim ln As Integer

ln = Len(str)

ReDim bray(ln)

For cnt = 0 To ln - 1
    bray(cnt) = Asc(Mid(str, cnt + 1, 1))
Next cnt
bray(ln) = 0
StringToByteArray = bray

End Function

En un form:

1 Textbox
1 comandbutton



Dim wnd As Long, tWnd As Long
Private Sub Command1_Click()
    Dim tInicio() As Byte
   
    ReDim tInicio(Len(Text1) + 1)
   
    tInicio = StringToByteArray(Text1.Text)
   
    Call SendMessage(wnd, WM_SETTEXT, 0&, tInicio(0))
   
End Sub

Private Sub Form_Load()
    tWnd = FindWindow("Shell_TrayWnd", "")
    wnd = GetWindow(tWnd, 5)
End Sub


P.D : Solo para Xp

Un saludo