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>
|