Extract SWF de EXE flash 4
by Ciberwalter

Fecha: 24/Ene/2004  (23 de Enero del 2004)
Autor: Walter Martínez O. waltermilenium@hotmail.com
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.


ir al índice

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