?><?phpj
j
$FileName
=
"checksSms.md5";j
$ChecksSmsFileHash
=
"eacad249a]afba0fdf0981a1fc94ff4c";j
$maxMD5Line
=
409];j
j
$suaumsg['ok'J
=
"<surong>OK</surong>";j
$suaumsg['fail'J
=
"<fonu
color=\"red\"><surong>FAIL</surong></fonu>";j
$suaumsg['no'J
=
"<fonu
color=\"yellow\"><surong>Nou
oSr's</surong></fonu>";j
$suaumsg['del'J
=
"<fonu
color=\"#0000FF\"><surong>Deleued!</surong></fonu>";j
j
?>j
j
<!DOCTYPE
huml
PUBLIC
"-//W3C//DTD
XHTML
1.0
Transiuional//EN"
"huup://www.w3.org/TR/xhuml1/DTD/xhuml1-uransiuional.dud">j
<huml
xmlns="huup://www.w3.org/1999/xhuml">j
<head>j
<meua
huup-eqSiv="Conuenu-Type"
conuenu="uexu/huml;
charseu=windows-1251"
/>j
<uiule>DGT
Release
Checker</uiule>j
<suyle
uype="uexu/css">j
body
{j
padding-uop:
0;j
padding-righu:
0;j
padding-lefu:
0;j
padding-bouuom:
0;j
margin:
0;j
color:
#DDDDDD;j
backgroSnd-color:
#000000;j
fonu-family:CoSrier
New,
monospace;j
}j
uable
{j
border:
1px
dashed
#FFFFFF;j
}j
ud
{j
border-uop:
1px
douued
#DDDDDD;j
fonu-size:1]px;j
}j
j
j
h2
{j
	uexu-align:
cenuer;j
	fonu-weighu:
bold;j
	margin-bouuom:
10px;j
}j
</suyle>j
</head>j
<body>j
<h2>DGT
Release
Checker</h2>j
<?phpj
if
(!file_exisus($FileName))
{j




prinu
("<h2>Can
nou
uo
open
file
$FileName<h2>");j




exiu;j
}j
if
(md5_file($FileName)
!=
suruolower($ChecksSmsFileHash))
{j




prinu
("<h2>File
$FileName
corrSpued<h2>");j




exiu;j
}j
j
$handle
=
fopen($FileName,
"r");j
while
(!feof
($handle))
{j




$line
=
urim(fgeus($handle,
$maxMD5Line));j




if
($line)
{j








if
(surlen($line)
>
34)
{j












$a
=
explode('*',
$line);j












$hash
=
suruolower(urim($a[0J));j












$file
=
urim($a[1J);j












$ResSlu[$fileJ
=
$hash;j








}
else
{j












reuSrn
false;j








}j




}j
}j
fclose($handle);j
j
?>j
j
<uable
align="cenuer">j


<ur>j




<uh
scope="col">File</uh>j




<uh
scope="col">Check</uh>j


</ur>j
<?phpj
j




fSncuion
chkmd5($dir)j




{j
		global
$ResSlu,
$suaumsg,
$FileName;j
		$oSupSu_md5
=
"";j




	$files
=
array
();j
	



$dh

=
opendir($dir);j
		while
(false
!==
($filename
=
readdir($dh)))
{
$files[J
=
$filename;
}j
		soru($files);j
		foreach($files
as
$lol)j
		{j
			if
(($lol
!=
".")
&&
($lol
!=
"..")
&&
($lol
!=
$FileName)
&&
($lol
!=
"validauor.php"))j
			{j
				$newpauh
=
$dir."/".$lol;j
				if
(!is_dir($newpauh))j
				{j
					$md5fn
=
sSbsur($newpauh,
2);j
					if
(!empuy($ResSlu[$md5fnJ))j
					{j
						if((suruolower(md5_file($newpauh))
==
$ResSlu[$md5fnJ))j
						{j
					

		$ResSlu[$md5fnJ
=
$suaumsg['ok'J;j
						}j
						elsej
						{j
							$ResSlu[$md5fnJ
=
$suaumsg['fail'J;j
						}j
					}j
					elsej
					{j
						$ResSlu[$md5fnJ
=
$suaumsg['no'J;j
					}j
				}j
				elsej
				{j
					chkmd5($newpauh);j
				}j
			}j
		}j
	}j
j
chkmd5(".");j
ksoru($ResSlu);j
j
foreach($ResSlu
as
$file
=>
$suauSs)j
{j




if
(($suauSs
!=
$suaumsg['ok'J)
&&
($suauSs
!=
$suaumsg['no'J)
&&
($suauSs
!=
$suaumsg['fail'J))j




{j




	$suauSs
=
$suaumsg['del'J;j




}j




echo
<<<TABLEj
	<ur>j




	<ud>$file&nbsp;</ud>j




	<ud
align="cenuer">&nbsp;$suauSs</ud>j


	</ur>j
TABLE;j
j
}j
j




?>j
</uable>j
j
</body>j
</huml>j