Extract SWF de EXE flash 4
by Ciberwalter

Fecha: 24/Ene/2004  (23 de Enero del 2004)
Autor: Walter Mart�nez O. [email protected]
http://www.geocities.com/gnivel4/

Este ejemplillo es muy simple, y su utilidad es que extrae los archivos "SWF" de un archivo ejecutable de Flash 4.0 (.EXE)
Se preguntar�n para que puedo usarlo... bueno, no tengo idea, pero si tienes alg�n programa hecho en flash y quieres extraerlo a SWF, bueno aqu� tienes la f�rmula.

A continuaci�n sigue c�digo en Visual Basic (Parte del C�digo):

Dim Datos As String
Dim Datos2 As String

''' la funcion "GetFileData" abre el archivo en memoria y lee su contenido para 
''' ponerlo en el String "Datos"

Datos = GetFileData(Text1)
Libre = FreeFile()

If Text2 <> "" Then
'' Luego Crea un archivo con el acceso Binario a Archivos
'' el cual es seleccionado con la opcion OPENFILENAME que despliega una ventana
	Open Text2 For Binary As Libre
		''' Datos2 comienza a contar desde el desplazamiento "286721"
		''' que es donde termina el programa y comienza el c�digo "swf"
		Datos2 = Mid$(Datos, 286721)
		''' Luego con "Put" escribe el contenido de Datos2 al archivo swf
	Put #Libre, 1, Datos2
		''' Y cierra el archivo de la memoria
	Close #Libre
''' para continuar cambia la imagen1 por la imagen2 (s�lo est�tico)
Image1.Picture = Image2.Picture
''' Y limpia los String que contenian los datos
Datos = ""
Datos2 = ""
End If

As� como extrae un archivo SWF de un Fichero EXE de Flash 4.

Los Ficheros "Flash.dat" y "End.dat" son indispensables para que el programa funcione 
ya que contienen las partes del reproductor Flash 4.0.

En realidad este ejemplo tiene muy poca utilizaci�n pero sirve para aprender a usar el acceso binario a archivos.

Fichero con el c�digo de ejemplo (ciberwalter_exe2swf.zip - Tama�o 217 KB)