/*
 * Copyright (C) 2023 KylinSoft Co., Ltd.
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3, or (at your option)
 * any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, see <http://www.gnu.org/licenses/>.
 *
**/

#include "pam-tally.h"

#include <errno.h>
#include <string.h>
#include <sys/mman.h>
#include <unistd.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <stdio.h>
#include <stdint.h>
#include <time.h>

char shm_tally_real[128];

#define FILE_MODE (S_IRUSR | S_IWUSR)

#define CONFIG_FILE "/usr/share/lightdm/lightdm.conf.d/96-kylin-setting.conf"

struct  tallylog {
	char            fail_line[52];  /* rhost or tty of last failure */
	uint16_t        reserved;       /* reserved for future use */
	uint16_t        fail_cnt;       /* failures since last success */
	uint64_t        fail_time;      /* time of last failure */
};

static pam_tally g_tally_info;

	static
int get_is_open_other_authentication()
{
	char buf[128];
	FILE *config_file;

	if( (config_file = fopen(CONFIG_FILE, "r")) == NULL)
	{
		//gs_debug("open %s failed", CONFIG_FILE);
		return 0;
	}

	int open_other_authentication = 0;
	while(fgets(buf, sizeof(buf), config_file)) {
        if(strnlen(buf, 1024) == 0 || buf[0] == '#')
		{
			memset(buf, sizeof(buf), 0);
			continue;
		}
        if(buf[strnlen(buf, 1024)-1] == '\n')
            buf[strnlen(buf, 1024)-1] = '\0';

		char *p = strchr(buf, '=');
		if(!p)
			continue;
		*p = '\0';

        size_t len = strnlen(buf, 1024);
		if(len == 0)
			continue;
		//去掉=之前的空格
		while(len--)
			if(buf[len] == ' ' || buf[len] == '\t')
				buf[len] = '\0';
		if(strcmp(buf, "open-other-authentication") != 0)
			continue;

		p++;
        len = strnlen(p, 1024);
		if(len == 0)
			break;
		//去掉等号之后的空格
		while(*p == ' ' || *p == '\t')
		{
			p++;
			len--;
		}
		//去掉尾部空格
		while(len--)
			if(*(p+len) == ' ' || *(p+len) == '\t')
				*(p+len) = '\0';

		if(*p == '0')
			break;
		if(*p == '1')
		{
			open_other_authentication = 1;
			break;
		}
	}
	fclose(config_file);
	return open_other_authentication;
}

	static
int get_pam_tally(int *deny, int *unlock_time , int *root_unlock_time)
{
	char buf[128];
	FILE *auth_file;

	if( (auth_file = fopen("/etc/pam.d/common-auth", "r")) == NULL)
		return -1;

	while(fgets(buf, sizeof(buf), auth_file)) {
        if(strnlen(buf, 1024) == 0 || buf[0] == '#')
			continue;
		if(!strstr(buf, "deny"))
			continue;

		char *ptr = strtok(buf, " \t");
		while(ptr) {
			if(strncmp(ptr, "deny=", 5)==0){
				sscanf(ptr, "deny=%d", deny);
				// fprintf(stderr, "-------------------- deny=%d\n", *deny);
			}
			if(strncmp(ptr, "unlock_time=", 12)==0){
				sscanf(ptr, "unlock_time=%d", unlock_time);
				// fprintf(stderr, "-------------------- unlock_time=%d\n", *unlock_time);
			}
			if(strncmp(ptr, "root_unlock_time=", 17)==0){
				sscanf(ptr, "root_unlock_time=%d", root_unlock_time);
				// fprintf(stderr, "-------------------- root_unlock_time=%d\n", *root_unlock_time);
			}
			ptr = strtok(NULL, " \t");
		}
        fclose(auth_file);
        return 1;
	}
    fclose(auth_file);
	return 0;
}

	static
void set_shm_tally_real()
{
//	sprintf(shm_tally_real, "%s_%d", SHM_TALLY, getuid());
    snprintf(shm_tally_real, sizeof(shm_tally_real), "%s_%d", SHM_TALLY, getuid());
}

int pam_tally_init()
{
#if 1
       int deny = 0, unlock_time = 0 , root_unlock_time = 0;
       if (!get_pam_tally(&deny, &unlock_time,&root_unlock_time)) {
           return 0;
       }
       g_tally_info.deny = deny;
       g_tally_info.unlock_time = unlock_time;
       g_tally_info.failed = 0;
       g_tally_info.lock_start_time = 0;
       g_tally_info.root_unlock_time = root_unlock_time;

       return 1;
#else
	int fd;
	int deny = 0, unlock_time = 0 , root_unlock_time = 0;
	pam_tally *tally_ptr;

	set_shm_tally_real();

	printf("shm path =========== : %s\n", shm_tally_real);

	shm_unlink(shm_tally_real);

	if(get_is_open_other_authentication())
	{
		return 0;
	}

	if(!get_pam_tally(&deny, &unlock_time,&root_unlock_time))
	{
		return 0;
	}

	if(deny <= 0)
		deny = 0;
	if(unlock_time <= 0)
		unlock_time = 0;

	if( (fd = shm_open(shm_tally_real, O_RDWR | O_CREAT, FILE_MODE)) == -1)
	{
		printf("shm_open error: %s\n", strerror(errno));
		return -1;
	}

	ftruncate(fd, sizeof(pam_tally));

	if( (tally_ptr = mmap(NULL, sizeof(pam_tally),
					PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0)) == MAP_FAILED)
	{
		close(fd);
		return -1;
	}
	close(fd);
	tally_ptr->deny = deny;
	tally_ptr->unlock_time = unlock_time;
	tally_ptr->failed = 0;
	tally_ptr->lock_start_time = 0;
	tally_ptr->root_unlock_time = root_unlock_time;    
	
	return 1;
#endif
}

	static
pam_tally* pam_tally_memory()
{
	int fd;
	pam_tally *tally_ptr;

	set_shm_tally_real();

	if( (fd = shm_open(shm_tally_real, O_RDWR, FILE_MODE)) == -1)
	{
		return NULL;
	}

	if( (tally_ptr = mmap(NULL, sizeof(pam_tally),
					PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0)) == MAP_FAILED)
	{
		close(fd);
		return NULL;
	}
	close(fd);
	return tally_ptr;
}

int pam_tally_is_enbled()
{
	int fd;

	set_shm_tally_real();

	if( (fd = shm_open(shm_tally_real, O_RDONLY, FILE_MODE)) == -1)
	{
		printf("shm_open error: %s\n", strerror(errno));
		close(fd);
		return 0;
	}

	pam_tally *tally_ptr;

	if((tally_ptr = pam_tally_memory()) == NULL){
		close(fd);
		return -1;
	}

	if(tally_ptr->deny == 0 || tally_ptr->unlock_time == 0){
		close(fd);
		return 0;
	}
	close(fd);

	return 1;
}

int pam_tally_add_failed()
{
	pam_tally *tally_ptr;

	if((tally_ptr = pam_tally_memory()) == NULL)
		return -1;

	tally_ptr->failed++;

	//如果失败次数达到上限，开始计时
	if(tally_ptr->failed >= tally_ptr->deny)
		tally_ptr->lock_start_time = time(NULL);

	return 0;
}

int pam_tally_clear_failed()
{
	pam_tally *tally_ptr;

	if((tally_ptr = pam_tally_memory()) == NULL)
		return -1;

	tally_ptr->failed = 0;
	tally_ptr->lock_start_time = 0;
	return 0;
}

int pam_tally_failure_is_out()
{
	pam_tally *tally_ptr;

	if((tally_ptr = pam_tally_memory()) == NULL)
		return -1;

	return (tally_ptr->failed >= tally_ptr->deny ? 1 : 0);
}

int pam_tally_deny()
{
	pam_tally *tally_ptr;

	if((tally_ptr = pam_tally_memory()) == NULL)
		return -1;

	return tally_ptr->deny;
}

int pam_tally_failed_count()
{
	pam_tally *tally_ptr;

	if((tally_ptr = pam_tally_memory()) == NULL)
		return -1;

	return tally_ptr->failed;
}

int pam_tally_unlock_time()
{
	pam_tally *tally_ptr;

	if((tally_ptr = pam_tally_memory()) == NULL)
		return -1;

	printf("###########################  unlock time = %d\n", tally_ptr->unlock_time);
	return tally_ptr->unlock_time;
}

int pam_tally_is_canUnlock()
{
	pam_tally *tally_ptr;

	if((tally_ptr = pam_tally_memory()) == NULL)
		return -1;

	if(tally_ptr->failed >= tally_ptr->deny &&
			time(NULL) - tally_ptr->lock_start_time < tally_ptr->unlock_time)
		return 0;
	return 1;
}

	int
pam_modutil_read(int fd, char *buffer, int count)
{
	int block, offset = 0;

	while (count > 0) {
		block = read(fd, &buffer[offset], count);

		if (block < 0) {
			if (errno == EINTR) continue;
			return block;
		}
		if (block == 0) return offset;

		offset += block;
		count -= block;
	}

	return offset;
}

void get_tally(uid_t uid, int *tfile, struct tallylog *tally)
{
	char filename[50]={0};
    const char tempPath[] = "tmp";
    snprintf(filename, sizeof(filename), "/%s/.tallylog.d/.%d", tempPath, uid);
	void *void_tally = tally;

    if ((*tfile = open(filename, O_RDONLY)) == -1){
        fprintf(stderr, "lseek tallylog failed,Re-open the new file, uid = %d \n",uid);
        snprintf(filename, sizeof(filename), "/%s/.tallylog", tempPath);
        if ((*tfile = open(filename, O_RDONLY)) == -1){
            fprintf(stderr, "open tallylog failed:%s \n", strerror(errno));
            return ;
        }
    }

    if (lseek(*tfile, (off_t)uid*(off_t)sizeof(*tally), SEEK_SET) == (off_t)-1) {
        fprintf(stderr, "lseek tallylog failed \n");
        snprintf(filename, sizeof(filename), "/%s/.tallylog", tempPath);
        close(*tfile);
        return ;
    }

	if (pam_modutil_read(*tfile, void_tally, sizeof(*tally)) != sizeof(*tally)) {
		fprintf(stderr, "read tallylog failed \n");
		memset(tally, 0, sizeof(*tally));
	}
	close(*tfile);
	tally->fail_line[sizeof(tally->fail_line)-1] = '\0';
}

int pam_tally_unlock_time_left(uid_t userID, int *fail_cnt,int *left_time, int *deny, int *fail_time, int *unlock_time1)
{
	pam_tally *tally_ptr;
#if 1
    tally_ptr = &g_tally_info;
#else
	if((tally_ptr = pam_tally_memory()) == NULL)
		return 0;
#endif
	int unlock_time = tally_ptr->unlock_time;
	*deny = tally_ptr->deny;

	if(unlock_time == 0)
		return 0;

	int tfile = -1;

	

	struct tallylog tally;
	tally.reserved = 0;
	tally.fail_cnt = 0;
	tally.fail_time = 0;

	get_tally(userID,&tfile,&tally);
	if(tally.fail_cnt<*deny)
		return 0;

	//连续输错，时间累加
	if (tally.fail_cnt >= (*deny)*2 && tally.fail_cnt < (*deny)*3){
		unlock_time = unlock_time*2;
	}
	else if(tally.fail_cnt >= (*deny)*3 && tally.fail_cnt < (*deny)*4){
		unlock_time = unlock_time*8;
	}
	else if (tally.fail_cnt >= (*deny)*4){
		*fail_cnt = 0xFFFF;//永久锁定
		return 0;
	}
	


	int unlock_time_left = unlock_time - ((long)time(NULL) - tally.fail_time);
	// fprintf(stderr, "unlock_time:%d, (long)time(NULL):%d, tally.fail_time:%d\n",unlock_time,(long)time(NULL),tally.fail_time);
	*fail_time = tally.fail_time;
	*unlock_time1 = unlock_time;

	*left_time = unlock_time_left > 0 ? unlock_time_left : 0;
	*fail_cnt = tally.fail_cnt;
	
	return *left_time;
}

int pam_tally_root_unlock_time_left(uid_t userID, int *fail_cnt,int *left_time, int *deny1, int *fail_time, int *unlock_time1)
{

	pam_tally *tally_ptr;
#if 1
    tally_ptr = &g_tally_info;
#else
    if((tally_ptr = pam_tally_memory()) == NULL)
        return 0;
#endif
	int root_unlock_time = tally_ptr->root_unlock_time;
	int deny = tally_ptr->deny;
	if(root_unlock_time == 0)
		return 0;

	int tfile = -1;
	struct tallylog tally;
	tally.reserved = 0;
	tally.fail_cnt = 0;
	tally.fail_time = 0;

	get_tally(userID,&tfile,&tally);
	if(tally.fail_cnt<deny)
		return 0;

	//连续输错，时间累加
	if (tally.fail_cnt >= (deny)*2 && tally.fail_cnt < (deny)*3){
		root_unlock_time = root_unlock_time*2;
	}
	else if(tally.fail_cnt >= (deny)*3 && tally.fail_cnt < (deny)*4){
		root_unlock_time = root_unlock_time*8;
	}
	else if (tally.fail_cnt >= (deny)*4){
		*fail_cnt = 0xFFFF;//永久锁定
		return 0;
	}

	int root_unlock_time_left = root_unlock_time - ((long)time(NULL) - tally.fail_time);

	*fail_time = tally.fail_time;
	*unlock_time1 = root_unlock_time;

	*left_time = root_unlock_time_left > 0 ? root_unlock_time_left : 0;

	*fail_cnt = tally.fail_cnt;

	return *left_time;
}


