Imports CommonClassv2
Public Class Form1
    Dim install, installkey As Long
    Dim fn As String
    Dim auth As New MyAuthClass


    ''' <summary>
    ''' 인증정보를 읽어옵니다.
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function ReadAuth() As Boolean

        If install = 0 OrElse installkey = 0 Then
            MsgBox("인증정보가 존재하지 않습니다." & vbCrLf & vbCrLf & "관리자에 문의하세요", MsgBoxStyle.Critical, "확인")
            ' Process.Start(HomePage)
            Return False
        End If

        If (auth.GetDateNumber(Now)) > install Then
            MsgBox("사용기일이 초과되었습니다." & vbCrLf & vbCrLf & "관리자에 문의하세요", MsgBoxStyle.Critical, "확인")
            ' Process.Start(HomePage)
            Return False '//만기일을 초과했다면
        End If

        If installkey.ToString <> auth.GetDateNumberEnc(install) Then    '//인증정보가 손상되었다면
            MsgBox("인증정보가 손상되었습니다" & vbCrLf & vbCrLf & "관리자에 문의하세요", MsgBoxStyle.Critical, "확인")
            'Process.Start(HomePage)
            Return False
        End If
        Return True
        ' MsgBox(auth.GetDateNumberEnc(Now))
    End Function

    Private Sub SetAuth(ByVal NewDate As Date)
        Dim auth As New MyAuthClass
        Dim Arinini As New MyINI(fn)
        Arinini.Write("main", "install", auth.GetDateNumber(NewDate))
        Arinini.Write("main", "installkey", auth.GetDateNumberEnc(NewDate))

        Dim A As New System.Text.StringBuilder
        A.AppendLine("인증정보가 파일에 기록되었습니다")
        A.AppendLine("파일명 = " & fn)
        A.AppendLine("해당파일을 사용자에게 복사,자동패치,수동패치파일 방법을 사용하여")
        A.AppendLine("배포를 하면됩니다")
        A.AppendLine("------------------")
        A.AppendLine("만기일 : " & Me.DateTimePicker1.Value.ToString)

        MsgBox(A.ToString, MsgBoxStyle.Information, "기록완료")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '//변경
        '//ip가 제대로들어왓는지 확인
        Dim IP() As String = Me.tb_ip.Text.Split(".")
        If IP.Length <> 4 Then
            MsgBox("정상적인 IP주소체계가 아닙니다" & vbCrLf & "아이피는 192.168.0.1 의 형태입니다", MsgBoxStyle.Information, "확인")
            Return
        End If

        Dim ipsum As Short = 0
        For Each a As String In IP
            If IsNumeric(a) = False Then
                MsgBox("각클래스 사이는 숫자로만 입력하세요." & vbCrLf & "아이피는 192.168.0.1 의 형태입니다", MsgBoxStyle.Information, "확인")
                Return
            Else
                ipsum += Val(a) '//아이피를 더한다
            End If
        Next
        Dim yymmdd As String = Format(Me.DateTimePicker1.Value.Date, "yyyyMMdd")
        Me.tb_key1.Text = ipsum & "%" & yymmdd & yymmdd.GetHashCode
        Dim Auth As New CEpole.Auth
        If Auth.check_key1(Me.tb_key1.Text) = False Then
            MsgBox("인증번호1생성프로그램 오류", MsgBoxStyle.Critical, "확인")
        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim key2 As String = ""
        For Each C As Control In Me.GroupBox2.Controls
            ' MsgBox(C.GetType.ToString)
            If C.GetType.ToString.ToUpper = "SYSTEM.WINDOWS.FORMS.CHECKBOX" Then  '//체크박스만 확인한다.
                If CType(C, CheckBox).Checked Then key2 &= C.Tag.ToString.ToUpper
            End If
        Next
        If key2 = "" Then
            Me.tb_key2.Text = ""
        Else
            Me.tb_key2.Text = key2 & "%" & key2.GetHashCode
            Dim Auth As New CEpole.Auth
            If Auth.Check_key2(Me.tb_key2.Text) = False Then
                MsgBox("인증번호2생성프로그램 오류", MsgBoxStyle.Critical, "확인")
            End If
        End If


    End Sub
End Class