Detección de ejecutables creados en Delphi

DelphiDetect: busca y detecta ejecutables creados en Delphi.

Quieres aumentar tu Ego-Delphi? Quieres asombrarte tu mismo al descubrir que tantas aplicaciones que usas diariamente nunca imaginaste que fueran creadas con Delphi?

Yo encontré estas en mi PC, por que no creamos una lista entre todos, y así le damos un poco más de ánimo a la comunidad Pascal-Delphi:
Mi lista:


- Resource Hacker
- Beyond Copy
- FrutyLoops
- Everest
- MyDrivers
- Mp3Converter
- Partition Magic 8
- Real Alternative
- Skype
- Alcohol 120
- ArtIcons Pro
- Whereisit
- Tune Up 2008 !!!! - (Delphi 10)
- Boostspeed (Delphi 7)
- MailWasher
- SuperCopier2
- WinUHA

No lo crees… yo tampoco lo creí al principio…

Puedes ver la fuente de DelphiDetect, utiliza una unit que viene en los demos del delphi 6 que se llama ExeImage.pas y te permite leer los Resources de los ejecutables. Todo aplicación creada en Delphi contiene dentro del recurso RCData dos campos llamados DVCLAL y PACKAGEINFO, eso no falla…
Además puede contener otros campos con los nombres de las formas que contienen los datos del .DFM, pero esto cambia según la aplicación.

El source es free, el ejecutable también… como todo en piXelicidio, disfrútenlo:

DESCARGAR EJECUTABLE

DESCARGAR FUENTE

Ime 1.0: Ocultar ficheros dentro de una imagen:

Ime 1.0

Aplicación simple para ocular un fichero dentro de una
imagen .BMP sin alterar el tamaño de la imagen. Solo se alteran los píxeles
pero de manera prácticamente imperceptible para el ojo humano. Es necesario luego
tener la imagen original para poder extraer el fichero de la imagen modificada.

DESCARGAR

Esta pequeña utilidad la programé hace tiempo pero no la he
usado casi nunca, será que no tengo nada que esconder? Así que prefiero
compartirla con todos para a el que le sea útil que la aproveche, porque esto
es... piXelicidiamente-free.

Como funciona la aplicación:

Pasos para empaquetar un fichero dentro de una imagen:

1-Cargar una imagen .BMP haciendo click en [Load Image…]
del panel izquierdo [Clean Image]

2-Cargar el fichero a ocultar dando click en [Load Data…]
(El tamaño del fichero en bytes debe ser menor que la cantidad de píxeles de la
imagen.

3-Click [Apply] y la imagen modificada se muestra en
el panel derecho [Image with Data]

4-Guardar la imagen [Save Image…]

Pasos para extraer el fichero de una imagen:

1-Primero es necesario cargar la imagen original en el panel
izquierdo, click [Load Image…]

2-Luego cargar la imagen con el fichero oculto en el panel

derecho.

3-Hacer click en [Extract <-]

4-Guardar el fichero, click en [Save Data..]

Listo el fichero salvado recupera la extensión original pero
no el nombre del fichero.

Los datos de este si se preservan intactos.

Notas sobre el formato de la imagen:

Tanto la imagen original como la que contiene los datos
ocultos no deben ser convertidas a ningún formato de imagen con pérdida, como
es el caso del JPG, pero si puede convertirse a .PNG, y luego regresar a .BMP y
extraer los datos sin problemas.

Donde está el truco:

Es simple, un píxel tiene 3 bytes que determinan su color.
Si alguien modifica los ultimos 2 o 3 bits de esos bytes el cambio visual que
se produce la imagen es imperceptible. Por lo tanto para ocultar un byte en un
píxel … bueno ya lo cogiste… para que seguir explicando, la fuente viene
incluida con el programa… esto es piXelicidiamente-free.

DESCARGAR

Control absoluto del 3DSMax desde Delphi

Aquí describo los pocos pasos necesarios, y muy sencillos para obtener el control absoluto del 3DSMax desde una aplicación en Delphi, con el uso de OLE Automation y MAXScript.

1-) Registrar 3DSMax.

Primero debemos registrar al 3DSMax en Windows para activarlo como OLE Automation. Para esto vamos a la carpeta: C:\3dsmax9\Samples\Scripts\Examples y editamos el archivo maxscript.reg. Al final de la última línea debes asegurar de que donde dice “\LocalServer32 = C:\3dsmax\3dsmax.exe” apunte realmente al camino del ejecutable del 3DSMax en tu PC, y guardas los cambios.
Luego le das doble click a maxscript.reg para introducir esta información al registro. Esto hay que hacerlo solo una vez.

2-) 4 líneas de código en MAXScript

MAXScript permite exportar un arreglo de funciones previamente definidas e implementadas para que sean accesibles externamente mediante el objeto OLE.
Por otra parte MAXScript permite con la función Execute, ejecutar su propio código pasandole un string en tiempo de ejecución, aprovechando esto logramos que con una sola función se pueda tener el control absoluto del Max externamente.
Creamos un nuevo script (3DSMAX: Menú principal –> MAXScript –> New Script…) que contenga el siguiente código:

function DelphiExecute s =
(
res = Execute s
return (res as string)
)
registerOLEInterface #(DelphiExecute)

El MAXScript es un lenguaje muy sencillo, es evidente lo que hace la función. Ejecutamos este escript y luego dejamos el MAX abierto y nos damos un saltico al Delphi.

3-) 4 líneas de código en Delphi

Ahora creamos desde Delphi el objeto OLE y le mandamos al MAX a ejecutar strings de código MAXScript a nuestro antojo.

Var
V :Variant;
S :string;

...

V := CreateOleObject('MAX.Application')

...

s := v.DelphiExecute('b = Box()');
s := v.DelphiExecute('b.height = 20');

El ejemplo anterior crea una caja y luego le pone en 20 la altura.
Listo, lo único que queda es estudiar MAXScript!! : )
Lo infinidad de cosas que se puede hacer con esto es inimaginable, eso lo dejo a su creatividad y sus necesidades.