Public Class Form1
    Dim install, installkey As Long
    Dim fn As String
    Dim auth As New MyAuth


    ''' <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 MyAuth
        Dim Arinini As New MyINI2(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, "yyyy-MM-dd 23:59:59")
        Dim textenc As New EnDec("HAEGWANGSIMP")
        Me.tb_key1.Text = textenc.EncryptData(yymmdd + "|SIMP|" + yymmdd.GetHashCode().ToString())
        Dim Auth As New MyAuth
        '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)
    '    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 MyAuth
    '        If Auth.Check_key2(Me.tb_key2.Text) = False Then
    '            MsgBox("ÀÎÁõ¹øÈ£2»ý¼ºÇÁ·Î±×·¥ ¿À·ù", MsgBoxStyle.Critical, "È®ÀÎ")
    '        End If
    '    End If


    'End Sub

    
End Class