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.

Hormigas en concurso...

Zarko Gajic en About.com, tiene un simpático concurso llamado: "Fancy Delphi Application Contest", y allí están mis hormiguitas.

Pueden darle una evaluación a su entender...

Hormigas Locas!

Esta es una simulación de hormigas que programé hace 4 años en Delphi 5, ahora le hize algunas mejoras y traducción de la interface al Inglés, se trata de un montón de hormigas locas que llevan la comida a su cueva. Demuestra como la interacción de muchas "cosas" con unas cuantas leyes básicas y sencillas puede generar resultados sumamente complejos e inesperados.

Las hormigas no usan ningún algorimo the pathfinding conocido, ellas no saben donde está su objetivo. Solo recuerdan un pequeño camino que van dejando atrás, tienen una vision muy corta, pero se comunican entre ellas y como son muchas logran encontrar su objetivo.

Cuando dos hormigas se encuentran (se dicen algo como lo siguiente):

- Yo vengo del lugar X y hace T1 tiempo que salí de allí, y hace 2 segundos yo andaba por aquí esta direcicón D1.

- La segunda hormiga dice: si mi objetivo es X entonces si el tiempo T1 que me dice esta hormiga es menor al último tiempo que me dijeron antes, entonces me guio por ella y cojo en la direccón D1. Si no, sigo mi camino y no le hago caso, pues parece que anda perdida! :)

Esto es la escencia del algoritmo, y así logran encontrar su objetivo y crear caminos.

Los resultados son iteresantes, siempre encuentran el camino menos intrincado o mas corto, puedes cambiarle el terreno y los obstaculos de lugar que ellas logran acomodarse de la mejor manera.

Espero lo disfruten y me dejen comentarios.

---

Crazy Ants!

Ants simulation made in Delphi. Massive little objects interacting with some basic rules.

Publicidad/Productos/Donación

Si le ha servido de ayuda y se siente agracedico con algunos de las aplicaciones, código fuente o información que comparto en este Blog de forma gratis, siéntase libre de hacer una donación si así es su deseo, de click en el siguiente boton de paypal.

Feel free to make a donation if you think that the contents in this Blog have been useful to you.

---

Mi trabajo en TurboSquid.com - nick: piXelelement. Aquí puede encontrar algunos de mis modelos 3D en venta y algunos plugins hechos en MAXScript gratis.

---

Actualmente me dedico principalmente a la animación 3D en 3DStudio MAX. Quizás hayan visto rodando por la Red el muñequito que baila reggaetón, "Bichitón" o el niñito que canta "Mis ojos no te pueden ver", entren en mi canal the YouTube para verlos todos, también pueden ver los videos de Jardiel de Punto y Coma:

See my 3D animations at YouTube and other videos from Jardiel from Punto y Coma:

http://www.youtube.com/pxtracer

---

Si quieres compartir tus archivos en internet te recomiendo 4shared.com, te dan 5GB gratis:

---

Para publicar o adquirir modelos 3D, Texturas, Tutoriales y más: