Generowanie prostego instalatora, Funkcja, PHP 4 i 5 Opcje

[Bakus]

Kod wygenerowany przez ten skrypt wystarczy zapisać jako plik .php i uruchomić z poziomu serwera WWW.
Nie ma w tym nic wymyślnego, ale daje ładny efekt i przydaje się, gdy ktoś chce wdostępnić plik php łącznie z plikami binarnymi, a chciałby to mieć w 1 pliku tekstowym...

[PHP] pobierz, plaintext 
<?php
 /**
  * Prosty instalator
  * @author Krzysztof Andrzej Błachut
  * @copyright (C) 2004 Krzysztof Andrzej Błachut
  * @email bakus@idn.net.pl
  */
 
	function code($file)
	{
		print '/* ' . $file . ' */' . &#092;"n\";
		$d = fopen($file, &#092;"rb\");
		$data = '';
		while(!feof($d))
		{
			$data .= fread($d, 512);
		}
		fclose($d);
		print '$d = '' . wordwrap(base64_encode($data), 80, \"'n	.'\", true) . \"';n&#092;";
		print '$fh = fopen(\"' . $file . '\", \"wb\");' . &#092;"n\";
		print 'fwrite($fh, base64_decode($d));' . &#092;"n\";
		print 'fclose($fh);' . &#092;"n\";
		print 'print \"Wypakowano plik ' . $file . '<br />n\";' . &#092;"n\";
	}
 
	print '<?php' . &#092;"n\";
	code(&#092;"plik.php\");
	code(&#092;"plik.jpg\");
	print 'print \"<b>Wszystkie pliki zostały wypakowane</b><br />n\";' . &#092;"n\";
	print '?>';
?>
[PHP] pobierz, plaintext 

Przykładowy wynik (zostal skrócony):

[PHP] pobierz, plaintext 
<?php
/* show_token.php */
$d = 'PD9waHAKLyoKICogQGF1d5c3p0b2YgkcnplaiBCs2FjaHV0CiAqIEBjb3B5cmlnaHQg'
	.'KEMpIDIwMDUgS3J6eXZHJ6ZWoghY2h1dAogKiBAZW1haWwgYmFrdXNAaWRuLm5ldC5w'
	.'bAogKi8KCiAgICBpZihlBPU1RbInEipCiAgICB7CiAgICAgICAgJG1kNSA9IG1kNSht'
	.'Lz4nOwogICAgfQo/Pg==';
$fh = fopen(&#092;"show_token.php\", \"wb\");
fwrite($fh, base64_decode($d));
fclose($fh);
print &#092;"Wypakowano plik show_token.php<br />n\";
print &#092;"<b>Wszystkie pliki zostały wypakowane</b><br />n\"
?>
[PHP] pobierz, plaintext 

[krysk]

@Bakus, NuLL: napisaliście już prawdziwy instalator? Nie chcę wynajdywać koła od nowa (IMG:http://forum.php.pl/style_emoticons/default/winksmiley.jpg) Jeśli nie, to czy podczas swoich prób mogę się oprzeć na Twoim "pakerze"?