Added new script for cyclic-hash if new hash

lib/cyclic-hash/new

@@ -0,0 +1,37 @@
+#!/usr/bin/php
+
+<?php
+
+	require_once __DIR__.'/../include/const';
+
+
+	/* [1] Fetch necessary data
+	=========================================================*/
+	/* (1) Fetch secret file */
+	$secret = @file_get_contents(SECRET_CONF);
+	
+	/* (2) Check secret file format */
+	if( !is_string($secret) || !preg_match("/^(.{".SECRET_SIZE."}):(\d+)$/", $secret, $match) )	
+		die(127);
+
+	/* (3) Extract data for hashing from @secret */
+	$key   = (string) $match[1];
+	$depth = (int)    $match[2];
+
+
+	/* (4) Die if not token not changed */
+	if( $depth < 1000 )
+		die(0);
+	
+
+	/* [2] If hash have just been created (original depth = 1000)
+	=========================================================*/
+	/* (1) Return new hash */
+	$newhash = $key;
+
+	/* (2) Hash @depth times = 1000 */
+	for( $d = 0 ; $d < 1000 ; $d++ )
+		$newhash = hash('sha512', $newhash);
+
+	die($newhash);
+?>