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 IfAsí 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)