100 lines
2.3 KiB
PHP
100 lines
2.3 KiB
PHP
|
<?php
|
||
|
|
|
||
|
|
require_once __DIR__.'/../../include/const';
|
||
|
|
|
||
|
|
|
||
|
|
/* [1] Function that generates a random secret
|
||
|
|
=========================================================*/
|
||
|
|
function generate_secret(){
|
||
|
|
|
||
|
|
/* (1) Generate random set */
|
||
|
|
$charlist = '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_';
|
||
|
|
|
||
|
|
/* (2) Set useful variables */
|
||
|
|
$clen = strlen($charlist);
|
||
|
|
$secret = '';
|
||
|
|
|
||
|
|
/* (3) Generate random characters one by one */
|
||
|
|
for( $i = 0 ; $i < SECRET_SIZE ; $i++ )
|
||
|
|
$secret .= $charlist[rand(0, $clen - 1)];
|
||
|
|
|
||
|
|
/* (4) Return the secret */
|
||
|
|
return $secret;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
function cyclichash_decr(){
|
||
|
|
|
||
|
|
/* [2] Fetch necessary data
|
||
|
|
=========================================================*/
|
||
|
|
|
||
|
|
/* (1) Fetch secret file */
|
||
|
|
$secret = @file_get_contents(SECRET_CONF);
|
||
|
|
|
||
|
|
/* (2) Check secret file format */
|
||
|
|
if( !is_string($secret) || !preg_match("/^(.{250}):(\d+)$/", $secret, $match) ){
|
||
|
|
|
||
|
|
// Generate new secret
|
||
|
|
$secret = generate_secret().':999';
|
||
|
|
|
||
|
|
// Try to override the secret file
|
||
|
|
if( @file_put_contents(SECRET_CONF, $secret) ){
|
||
|
|
slog("Random secret generated successfully", 'cyclic-hash:decr');
|
||
|
|
return 0;
|
||
|
|
}else{
|
||
|
|
slog("Error while generating new random secret", 'cyclic-hash:decr');
|
||
|
|
return 127;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/* (3) Extract data */
|
||
|
|
$key = (string) $match[1];
|
||
|
|
$depth = (int) $match[2];
|
||
|
|
|
||
|
|
|
||
|
|
/* [3] If can decrement, decrement
|
||
|
|
=========================================================*/
|
||
|
|
if( $depth > 1 ){
|
||
|
|
|
||
|
|
/* (1) Decrement the depth */
|
||
|
|
$depth--;
|
||
|
|
|
||
|
|
/* (2) Try to override the secret file */
|
||
|
|
if( @file_put_contents(SECRET_CONF, "$key:$depth") ){
|
||
|
|
slog("Secret depth decremented to $depth", 'cyclic-hash:decr');
|
||
|
|
return 0;
|
||
|
|
}else{
|
||
|
|
slog("Error while decrementing secret depth", 'cyclic-hash:decr');
|
||
|
|
return 127;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/* [4] If cannot decrement, generate new password
|
||
|
|
=========================================================*/
|
||
|
|
}else{
|
||
|
|
|
||
|
|
// Generate new secret
|
||
|
|
$secret = generate_secret().':999';
|
||
|
|
|
||
|
|
// Try to override the secret file
|
||
|
|
if( @file_put_contents(SECRET_CONF, $secret) ){
|
||
|
|
slog("Random secret generated successfully", 'cyclic-hash:decr');
|
||
|
|
return 0;
|
||
|
|
}else{
|
||
|
|
slog("Error while generating new random secret", 'cyclic-hash:decr');
|
||
|
|
return 127;
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
echo cyclichash_decr();
|
||
|
|
|
||
|
|
|
||
|
|
?>
|