45 lines
1.3 KiB
PHP
45 lines
1.3 KiB
PHP
|
<html>
|
|||
|
|
<head>
|
|||
|
|
<meta http-equiv="Content-Type" content="application/html; charset=utf-8"/>
|
|||
|
|
<meta http-equiv="Copyright" content="Андрей Рейгант (HoldFast)"/>
|
|||
|
|
<link rel="stylesheet" media="all" type="text/css" href="mbstyle/mbs.css"/>
|
|||
|
|
<title>Сервис для работы с BAS файлами</title>
|
|||
|
|
</head>
|
|||
|
|
|
|||
|
|
<body>
|
|||
|
|
<?php
|
|||
|
|
function scanDirs($dir) {
|
|||
|
|
$exp_time = 3600;
|
|||
|
|
if (!is_dir($dir)) return;
|
|||
|
|
$dh = opendir($dir);
|
|||
|
|
if ($dh === false) return;
|
|||
|
|
while (($file = readdir($dh)) !== false) {
|
|||
|
|
$time = time() - filemtime($dir . '/' . $file);
|
|||
|
|
$unlink = $dir . '/' . $file;
|
|||
|
|
if (($time > $exp_time) && is_file($unlink)) {
|
|||
|
|
unlink($unlink);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
closedir($dh);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
scanDirs('tmp');
|
|||
|
|
?>
|
|||
|
|
|
|||
|
|
<h2>Данный сервис поможет вам скомпилировать, декомпилировать и обфусцировать ваши BAS и LIS файлы, а также собрать мидлет</h2>
|
|||
|
|
<a href="compile.php">Компилировать LIS=>BAS</a><br>
|
|||
|
|
<a href="decompile.php">Декомпилировать BAS в текст</a><br>
|
|||
|
|
<a href="obf.php">Обфускация BAS</a><br>
|
|||
|
|
<a href="midlet.php">Собрать мидлет</a>
|
|||
|
|
|
|||
|
|
<br>
|
|||
|
|
<hr>
|
|||
|
|
<p>Заметка!
|
|||
|
|
<br>
|
|||
|
|
ссылки на файлы действительны в течении 1-го часа с момента создания
|
|||
|
|
</p>
|
|||
|
|
|
|||
|
|
</body>
|
|||
|
|
|
|||
|
|
</html>
|