#!/usr/bin/env python
"""
Python initrd generating script
"""
import argparse
import os
import shutil
import subprocess
import sys
import tempfile
import tomllib


XDG_CONFIG_HOME = os.getenv('XDG_CONFIG_HOME', os.path.expanduser('~/.config'))
XDG_DATA_HOME = os.getenv('XDG_DATA_HOME',
                          os.path.expanduser('~/.local/share'))
CONF_PATH = os.path.join(XDG_CONFIG_HOME, 'mkinitramfs.toml')
KEYS_PATH = os.path.join(XDG_DATA_HOME, 'keys')
ROOT_AK = '/root/.ssh/authorized_keys'
SHEBANG = "#!/bin/bash\n"
SHEBANG_ASH = "#!/bin/sh\n"
DEPS = """
DEPS=(
/bin/busybox
/usr/bin/ccrypt
/sbin/cryptsetup
%(lvm)s
%(yubikey)s
%(dropbear)s
)
"""
# /usr/sbin/dropbear
# /usr/bin/dropbearkey
# /usr/sbin/wpa_supplicant
COPY_DEPS = """
for bin in ${DEPS[*]}; do
    cp $bin ./bin/
    ldd $bin >/dev/null || continue
    for lib in $(ldd $bin | sed -nre 's,.* (/.*lib.*/.*.so.*) .*,\\1,p' \\
        -e 's,.*(/lib.*/ld.*.so.*) .*,\\1,p')
    do
        cp $lib lib64/
    done
done
# extra lib for new version of cryptsetup, which need to do locks
for path in $(find /usr/lib/gcc|grep libgcc_s.so.1); do
    [ "$(basename $(dirname $path))" = '32' ] && continue
    cp $path lib/
done

if %s; then
    if [ ! -f ~/.cache/askpass ]; then
        if ! wget "https://bitbucket.org/piotrkarbowski/better-initramfs/downloads/askpass.c"; then
            if ! wget "https://raw.githubusercontent.com/gryf/mkinitramfs/refs/heads/master/askpass.c"; then
                echo "Error: Unable to fetch the 'askpass.c'. Aborting" >&2
                exit 1
            fi
        fi
        gcc -Os -static askpass.c -o ~/.cache/askpass
        rm askpass.c
    fi
    cp ~/.cache/askpass bin/
fi
"""
COPY_MODULES = """
KERNEL=$(readlink /usr/src/linux)
VERSION=${KERNEL#linux-}
mkdir -p lib/modules
cp -a "/lib/modules/${VERSION}" lib/modules/
rm -fr lib/modules/misc lib/modules/video
"""
MKCPIO = """
find . -print0 | cpio --quiet --null -o -H newc | \\
    gzip > %(arch)s
exit $?
"""

INIT = """
DEVICE=''
KEYDEV=''
CLEAR=clear

$CLEAR
export PATH=/bin
umask 0077

[ ! -d /new-root ] && mkdir /new-root

mount -t devtmpfs -o nosuid,relatime,size=10240k,mode=755 devtmpfs /dev
mount -t proc proc /proc
mount -t sysfs sysfs /sys
mount -t configfs none /sys/kernel/config
mount -t debugfs none /sys/kernel/debug

# do not let kernel spill its messages to the console
echo 0 > /proc/sys/kernel/printk

# clean console i/o
exec >/dev/console </dev/console 2>&1

# tty fix
mv /dev/tty /dev/tty_bak
ln -s /dev/console /dev/tty

"""

# check for 'rescue' keyword if there should be shell requested
INIT_CMD = """
CMD=`cat /proc/cmdline`

for param in $CMD; do
    if [ "${param}" == "rescue" ]; then
        exec /bin/sh
    elif [ "${param}" == "dbg" ]; then
        set -x
        CLEAR=''
    fi
done
"""

# optional: search for the SD/MMC card, and use it's first partition. The idea
# is to have something which one *own* rather that something that one *know*.
# To prepare SD card (or pendrive, procedure is the same), create partition,
# at least 32MB on dos partition table, format it, write something (possibly
# some images/videoclips), create a key 4096 bytes long, and write it down
# using:
#
# dd if=keyfile of=/dev/mmcblk0p1 seek=31337 count=8
#
# or, for pendrive:
#
# dd if=keyfile of=/dev/sdX1 seek=31337 count=8
#
# be carefull, which disk you select to write.
INIT_SD = """
for counter in $(seq 5); do
    $CLEAR
    if [ -b /dev/mmcblk0p1 ]; then
        KEYDEV=/dev/mmcblk0p1
        break
    fi
    sleep 1
done
"""

# optional: search for the labeled device - assuming it will be usb stick with
# one of the partition set with label (e2label, mlabel). for vfat partition
# labels, mlabel have weird format to set it:
#
# mlabel -v -i /dev/sdx1 -s ::foobar
#
# note, that label will always be uppercase, so that case sensitiv check is
# off.
INIT_LABELED = """
for counter in $(seq 3); do
    $CLEAR
    for dev in /dev/sd* /dev/mmcblk*; do
        if blkid "${dev}" | grep -w LABEL | grep -iqw "%(label)s"; then
            KEYDEV="${dev}"
            break
        fi
    done
    [ -n "${KEYDEV}" ] && break
    sleep 1
done
"""

# optional: dropbear script for mounting device. It will use key if present
# and interactively prompt for password
DROPBEAR_SCRIPT = """
for counter in $(seq 3); do
    $CLEAR
    for dev in /dev/sd* /dev/nvme*; do
        if cryptsetup isLuks ${dev}; then
            if [ $(cryptsetup luksUUID ${dev}) = "${UUID}" ]; then
                DEVICE=$dev
                break
            fi
        fi
    done
    [ -n "${DEVICE}" ] && break
    sleep 1
done

if [ -z "${DEVICE}" ]; then
    echo "No LUKS device found to boot from! Giving up."
    exit 1
fi

if [ ! -b /dev/mapper/root ]; then
    for i in 0 1 2 ; do
        askpass 'Enter decryption key: ' |ccrypt -c -k - $KEY | \
                cryptsetup open --allow-discards $DEVICE root
        ret=$?
        [ ${ret} -eq 0 ] && break
    done
fi
if [ ! -b /dev/mapper/root ]; then
    echo "Failed to open encrypted device $DEVICE"
    exit 2
else
    echo "Successfully opened root device, continue booting."
fi

# Kill the process for interactively providing password
if [ ${ret} -eq 0 ]; then
    killall ccrypt
fi
"""

# Open encrypted fs
INIT_OPEN = """
for counter in $(seq 3); do
    $CLEAR
    for dev in /dev/sd* /dev/nvme*; do
        if cryptsetup isLuks ${dev}; then
            if [ $(cryptsetup luksUUID ${dev}) = "${UUID}" ]; then
                DEVICE=$dev
                break
            fi
        fi
    done
    [ -n "${DEVICE}" ] && break
    sleep 1
done

if [ -z "${DEVICE}" ]; then
    echo "No LUKS device found to boot from! Giving up."
    exec reboot -f -d 3
fi
"""

DECRYPT_KEYDEV = """
ret=1
if [ -n ${KEYDEV} ]; then
    for i in 0 1 2 ; do
        dd if=${KEYDEV} skip=31337 count=8 2>/dev/null | \
                cryptsetup open --allow-discards $DEVICE root
        ret=$?
        [ ${ret} -eq 0 ] && break
    done
fi

if [[ ${ret} -ne 0 && ! -f ${KEY} ]]; then
    echo "Failed to open boot system fs. Giving up."
    reboot -f -d 3
fi
"""

DECRYPT_YUBICP = """
for i in 1 2 3 4 5 6; do
    pass=$(ykchalresp %(disk)s 2>/dev/null)
    if [ -n "$pass" ]; then
        echo "$pass" | ccrypt -c -k - "$KEY.yk" | \
                cryptsetup open --allow-discards $DEVICE root
        break
    fi
    sleep .5
done

"""

DROPBEAR = """\
mkdir /dev/pts
mount devpts /dev/pts -t devpts

ifconfig eth0 %(ip)s netmask %(netmask)s up
route add default gw %(gateway)s eth0

dropbear -s -g -p 22
"""

DECRYPT_PASSWORD = """
if [ ! -b /dev/mapper/root ]; then
    for i in 0 1 2 ; do
        ccrypt -c $KEY | cryptsetup open --allow-discards $DEVICE root
        if [ -b /dev/mapper/root ]; then
            break
        fi
    done
fi
if [ ! -b /dev/mapper/root ]; then
    echo "Failed to open encrypted device. Rebooting in 5 seconds."
    reboot -f -d 5
fi
"""

SWROOT = """
# get the tty back
rm /dev/tty
mv /dev/tty_bak /dev/tty

mount /dev/mapper/root /new-root

# restore hotplug events
echo > /proc/sys/kernel/hotplug

umount -l /proc /sys /dev

exec switch_root /new-root /sbin/init
"""


class Config:
    defaults = {'copy_modules': False,
                'disk_label': None,
                'dropbear': False,
                'install': False,
                'key_path': None,
                'lvm': False,
                'no_key': False,
                'sdcard': None,
                'yubikey': False}

    def __init__(self, args, toml_conf):
        self.drive = args.get('drive')
        toml_ = toml_conf[self.drive]

        for k, v in self.defaults.items():
            setattr(self, k, toml_.get(k, v))
            if getattr(self, k) is not args.get(k) and args.get(k) is not None:
                setattr(self, k, args[k])

        key = None
        if not self.key_path and toml_.get('key'):
            key = toml_.get('key')
            if not os.path.exists(key):
                key = os.path.join(KEYS_PATH, key)
            if not os.path.exists(key):
                sys.stderr.write(f'Cannot find key file for '
                                 f'{toml_.get("key")}.\n')
                sys.exit(5)
            self.key_path = key

        if not (self.key_path or self.no_key):
            sys.stderr.write(f'key file for {self.drive} is not provided, '
                             f'while no-key option is not set.\n')
            sys.exit(6)

        # UUID is only available via config file
        self.uuid = toml_.get('uuid')

        # dropbear conf available only via config file
        self.ip = toml_.get('ip')
        self.gateway = toml_.get('gateway')
        self.netmask = toml_.get('netmask')
        self.iface =  toml_.get('iface', 'eth0')
        self.user = toml_.get('user', 'root')
        if self.user != 'root' and not toml_.get('authorized_keys'):
            sys.stderr.write(f'User {self.user} is not authorized for '
                             f'utilizing root .ssh/authorized_keys file. '
                             f'Set authorized_keys file path in'
                             f' configuration.')
            sys.exit(7)
        self.authorized_keys = toml_.get('authorized_keys', ROOT_AK)


class Initramfs:
    def __init__(self, conf):
        self.conf = conf
        self.key = None
        self.dirname = None
        self.kernel_ver = os.readlink('/usr/src/linux').replace('linux-', '')
        self._make_tmp()

    def _make_tmp(self):
        self.dirname = tempfile.mkdtemp(prefix='init_')
        self.curdir = os.path.abspath(os.curdir)

    def _make_dirs(self):
        os.chdir(self.dirname)
        for dir_ in ('bin', 'dev', 'etc', 'keys', 'lib64', 'proc', 'root',
                     'run/cryptsetup', 'run/lock', 'sys', 'tmp'):
            os.makedirs(os.path.join(self.dirname, dir_))

        for link, target in (('lib', 'lib64'), ('sbin', 'bin'),
                             ('linuxrc', 'bin/busybox')):
            os.symlink(target, link)
        os.chdir(self.curdir)

    def _copy_deps(self):
        additional_libs = ['libgcc_s']
        os.chdir(self.dirname)
        _fd, fname = tempfile.mkstemp(dir=self.dirname, suffix='.sh')
        os.close(_fd)
        with open(fname, 'w') as fobj:
            lvm = '/sbin/lvscan\n/sbin/vgchange' if self.conf.lvm else ''
            yubikey = '/usr/bin/ykchalresp' if self.conf.yubikey else ''
            dropbear = '/usr/sbin/dropbear' if self.conf.dropbear else ''
            fobj.write(SHEBANG)
            fobj.write(DEPS % {'lvm': lvm, 'yubikey': yubikey,
                               'dropbear': dropbear})
            fobj.write(COPY_DEPS % 'true' if self.conf.dropbear else 'false')

        # extra crap, which seems to be needed, but is not direct dependency
        for root, _, fnames in os.walk('/usr/lib'):
            if '32' in root:
                continue

            for f in fnames:
                if f.split('.')[0] in additional_libs:
                    shutil.copy(os.path.join(root, f), 'lib64',
                                follow_symlinks=False)
        self._copy_dropbear_deps()

        os.chmod(fname, 0b111101101)
        subprocess.call([fname])
        os.unlink(fname)
        os.chdir(self.curdir)

    def _copy_dropbear_deps(self):
        if not self.conf.dropbear:
            return

        for dir_ in ('root/.ssh', 'etc/dropbear'):
            os.makedirs(os.path.join(self.dirname, dir_))

        additional_libs = ['libnss_compat', 'libnss_files']
        for root, _, fnames in os.walk('/lib64'):
            for f in fnames:
                if f.split('.')[0] in additional_libs:
                    shutil.copy(os.path.join(root, f), 'lib64',
                                follow_symlinks=False)

        shutil.copy('/etc/localtime', 'etc')

        # Copy the authorized keys for your regular user you administrate with
        if (self.conf.authorized_keys and
            os.path.exists(self.conf.authorized_keys)):
            shutil.copy(self.conf.authorized_keys, 'root/.ssh')
        else:
            sys.stderr.write(f'Warning {self.conf.authorized_keys} not found!')

        # Copy OpenSSH's host keys to keep both initramfs' and regular ssh
        # signed the same otherwise openssh clients will see different host
        # keys and chicken out. Here we only copy the ecdsa host key, because
        # ecdsa is default with OpenSSH. For RSA and others, copy adequate
        # keyfile.
        subprocess.run(['dropbearconvert', 'openssh', 'dropbear',
                        '/etc/ssh/ssh_host_ecdsa_key',
                        'etc/dropbear/dropbear_ecdsa_host_key'])

        # Basic system defaults
        with open('etc/passwd', 'w') as fobj:
            fobj.write(f"{self.conf.user}:x:0:0:root:/root:/bin/sh\n")
        with open('etc/shadow', 'w') as fobj:
            fobj.write(f"{self.conf.user}:*:::::::\n")
        with open('etc/group', 'w') as fobj:
            fobj.write(f"{self.conf.user}:x:0:{self.conf.user}\n")
        with open('etc/shells', 'w') as fobj:
            fobj.write("/bin/sh\n")
        os.chmod('etc/shadow', 0b110100000)
        with open('etc/nsswitch.conf', 'w') as fobj:
            fobj.write("passwd:  files\n"
                       "shadow:  files\n"
                       "group:   files\n")

    def _copy_modules(self):
        if not self.conf.copy_modules:
            return
        os.chdir(self.dirname)
        os.mkdir(os.path.join('lib', 'modules'))
        os.chdir('lib/modules')
        shutil.copytree(os.path.join('/lib/modules/', self.kernel_ver),
                        self.kernel_ver, symlinks=True)
        os.chdir(self.curdir)

    def _copy_wlan_modules(self):
        path = ('lib/modules/' + self.kernel_ver +
                '/kernel/drivers/net/wireless/intel/iwlwifi')
        os.chdir(self.dirname)
        os.makedirs(os.path.join(path, 'dvm'))
        os.makedirs(os.path.join(path, 'mvm'), exist_ok=True)
        shutil.copy2(os.path.join('/', path, 'dvm', 'iwldvm.ko'),
                     os.path.join(path, 'dvm'))
        shutil.copy2(os.path.join('/', path, 'mvm', 'iwlmvm.ko'),
                     os.path.join(path, 'mvm'))
        shutil.copy2(os.path.join('/', path, 'iwlwifi.ko'), path)
        os.chdir(self.curdir)

    def _populate_busybox(self):
        os.chdir(os.path.join(self.dirname, 'bin'))
        output = subprocess.check_output(['busybox', '--list']).decode('utf-8')
        for command in output.split('\n'):
            if not command or command == 'busybox':
                continue
            os.symlink('busybox', command)

    def _copy_key(self, suffix=''):
        key_path = self.conf.key_path + suffix

        if not os.path.exists(key_path):
            self._cleanup()
            sys.stderr.write(f'Cannot find key(s) file for '
                             f'{self.conf.drive}.\n')
            sys.exit(2)

        key_path = os.path.abspath(key_path)
        os.chdir(self.dirname)
        shutil.copy2(key_path, 'keys')
        os.chdir(self.curdir)
        if not (suffix or self.key):
            # set self.key only when:
            # - there is no key set to self
            # - suffix is empty
            # so that we could get the key name calculated for the yk
            self.key = os.path.basename(key_path)

    def _generate_init(self):
        os.chdir(self.dirname)
        with open('init', 'w') as fobj:
            fobj.write(SHEBANG_ASH)
            fobj.write(f"UUID='{self.conf.uuid}'\n")
            if self.key:
                fobj.write(f"KEY='/keys/{self.key}'\n")
            fobj.write(INIT)
            fobj.write(INIT_CMD)
            if self.conf.disk_label:
                fobj.write(INIT_LABELED % {'label': self.conf.disk_label})
            if self.conf.sdcard:
                fobj.write(INIT_SD)
            fobj.write(INIT_OPEN)
            if self.conf.disk_label or self.conf.sdcard:
                fobj.write(DECRYPT_KEYDEV)
            if self.conf.yubikey:
                fobj.write(DECRYPT_YUBICP % {'disk': self.conf.drive})
            if self.conf.dropbear:
                fobj.write(DROPBEAR % {'ip': self.conf.ip,
                                       'gateway': self.conf.gateway,
                                       'netmask': self.conf.netmask})
            fobj.write(DECRYPT_PASSWORD)
            if self.conf.dropbear:
                fobj.write("killall dropbear\n")
            fobj.write(SWROOT)

        os.chmod('init', 0b111101101)

        if self.conf.dropbear:
            with open('root/decrypt.sh', 'w') as fobj:
                fobj.write(SHEBANG_ASH)
                fobj.write(f"UUID='{self.conf.uuid}'\n")
                if self.key:
                    fobj.write(f"KEY='/keys/{self.key}'\n")
                fobj.write(DROPBEAR_SCRIPT)
            os.chmod('root/decrypt.sh', 0b111101101)

        os.chdir(self.curdir)

    def _mkcpio_arch(self):
        _fd, self.cpio_arch = tempfile.mkstemp(suffix='.cpio')
        os.close(_fd)
        _fd, scriptname = tempfile.mkstemp(suffix='.sh')
        os.close(_fd)
        os.chdir(self.dirname)
        with open(scriptname, 'w') as fobj:
            fobj.write(SHEBANG)
            fobj.write(MKCPIO % {'arch': self.cpio_arch})
        os.chmod(scriptname, 0b111101101)
        subprocess.call([scriptname])
        os.chdir(self.curdir)
        os.unlink(scriptname)

        os.chmod(self.cpio_arch, 0b110100100)

        if self.conf.install:
            self._make_boot_links()
        else:
            shutil.move(self.cpio_arch, 'initramfs.cpio')

    def _make_boot_links(self):
        os.chdir('/boot')
        current = None
        old = None

        if os.path.exists('initramfs') and os.path.islink('initramfs'):
            current = os.readlink('initramfs')
            os.unlink('initramfs')

        if not current:
            shutil.move(self.cpio_arch, 'initramfs-' + self.kernel_ver)
            os.symlink('initramfs-' + self.kernel_ver, 'initramfs')
            return

        if os.path.exists('initramfs.old') and os.path.islink('initramfs.old'):
            old = os.readlink('initramfs.old')
            os.unlink('initramfs.old')
            os.unlink(old)

        shutil.move(current, current + '.old')
        os.symlink(current + '.old', 'initramfs.old')

        shutil.move(self.cpio_arch, 'initramfs-' + self.kernel_ver)
        os.symlink('initramfs-' + self.kernel_ver, 'initramfs')
        os.chdir(self.curdir)

    def _cleanup(self):
        shutil.rmtree(self.dirname)

    def build(self):
        self._make_dirs()
        self._copy_deps()
        self._copy_modules()
        # self._copy_wlan_modules()
        self._populate_busybox()
        if not self.conf.no_key:
            self._copy_key()
        if self.conf.yubikey:
            self._copy_key('.yk')
        self._generate_init()
        self._mkcpio_arch()
        self._cleanup()


def _disks_msg(msg=None):
    if not msg:
        sys.stdout.write('You need to create %s toml file with the '
                         'contents:\n\n'
                         '[name]\n'
                         'uuid = "disk-uuid"\n'
                         'key = "key-filename"\n'
                         '...\n' % CONF_PATH)
    else:
        sys.stdout.write(msg + '\n')


def _load_disks():
    try:
        with open(CONF_PATH, 'rb') as fobj:
            return tomllib.load(fobj)
    except IOError:
        _disks_msg()
        sys.exit(1)


def main():
    disks = _load_disks()
    if not disks:
        _disks_msg()
        sys.exit(3)

    parser = argparse.ArgumentParser(description="Generate initramfs. It "
                                     "contain only necesairy things to unlock "
                                     "encrypted partition (selectable by it's "
                                     "name) and boot from such partition.")

    parser.add_argument('-i', '--install', action='store_true',
                        help='Install initramfs in /boot. Link initramfs will '
                        'be created there and previous version will be '
                        'renamed with ".old" extension. Without this option, '
                        'initramfs will be generated in current directory.')
    parser.add_argument('-m', '--copy-modules', action='store_true',
                        help='Copy kernel modules into initramfs image.')
    parser.add_argument('-n', '--no-key', action='store_true',
                        help='Do not copy key file to the initramfs - '
                        'assuming SD card/usb stick is the only way to open '
                        'encrypted root.')
    parser.add_argument('-k', '--key-path', help='path to the location where '
                        'keys are stored')
    parser.add_argument('-d', '--disk-label', help='Provide disk label '
                        'to be read decription key from.')
    parser.add_argument('-s', '--sdcard', help='Use built in sdcard reader to '
                        'read from (hopefully) inserted card')
    parser.add_argument('-l', '--lvm', action='store_true',
                        help='Enable LVM in init.')
    parser.add_argument('-y', '--yubikey', action='store_true',
                        help='Enable Yubikey challenge-response in init.')
    parser.add_argument('-b', '--dropbear', action='store_true',
                        help='Enable dropbear ssh server for remotely connect '
                        'to initrd.')
    parser.add_argument('drive', choices=disks.keys(), help='Drive name')

    args = parser.parse_args()
    if args.drive not in disks:
        _disks_msg(f'Drive {args.drive} not found in configuration')
        sys.exit(4)
    conf = Config(args.__dict__, disks)
    init = Initramfs(conf)
    init.build()


if __name__ == "__main__":
    main()