누락파일 추가

.gitignore

@@ -0,0 +1,6 @@
+*.bak
+.vs
+debug
+bin
+*.v12
+*.v13

Epole/EnDec.vb

@@ -0,0 +1,137 @@
+Imports System.Security.Cryptography
+
+Public Class EnDec
+
+    Private TripleDes As New TripleDESCryptoServiceProvider
+    Sub New(ByVal key As String)
+        ' Initialize the crypto provider.
+        TripleDes.Key = TruncateHash(key, TripleDes.KeySize \ 8)
+        TripleDes.IV = TruncateHash("", TripleDes.BlockSize \ 8)
+    End Sub
+
+    Private Function TruncateHash( _
+        ByVal key As String, _
+        ByVal length As Integer) _
+        As Byte()
+
+        Dim sha1 As New SHA1CryptoServiceProvider
+
+        ' Hash the key.
+        Dim keyBytes() As Byte = _
+            System.Text.Encoding.Unicode.GetBytes(key)
+        Dim hash() As Byte = sha1.ComputeHash(keyBytes)
+
+        ' Truncate or pad the hash.
+        ReDim Preserve hash(length - 1)
+        Return hash
+    End Function
+
+    ''' <summary>
+    ''' 문자열의 암호화
+    ''' </summary>
+    ''' <param name="plaintext"></param>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Public Function EncryptData( _
+        ByVal plaintext As String) _
+        As String
+
+        ' Convert the plaintext string to a byte array.
+        Dim plaintextBytes() As Byte = _
+            System.Text.Encoding.Unicode.GetBytes(plaintext)
+
+        ' Create the stream.
+        Dim ms As New System.IO.MemoryStream
+        ' Create the encoder to write to the stream.
+        Dim encStream As New CryptoStream(ms, _
+            TripleDes.CreateEncryptor(), _
+            System.Security.Cryptography.CryptoStreamMode.Write)
+
+        ' Use the crypto stream to write the byte array to the stream.
+        encStream.Write(plaintextBytes, 0, plaintextBytes.Length)
+        encStream.FlushFinalBlock()
+
+        ' Convert the encrypted stream to a printable string.
+        Return Convert.ToBase64String(ms.ToArray)
+    End Function
+
+    ''' <summary>
+    ''' 복호화'
+    ''' </summary>
+    ''' <param name="encryptedtext"></param>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Public Function DecryptData( _
+    ByVal encryptedtext As String) _
+    As String
+
+        ' Convert the encrypted text string to a byte array.
+        Dim encryptedBytes() As Byte = Convert.FromBase64String(encryptedtext)
+
+        ' Create the stream.
+        Dim ms As New System.IO.MemoryStream
+        ' Create the decoder to write to the stream.
+        Dim decStream As New CryptoStream(ms, _
+            TripleDes.CreateDecryptor(), _
+            System.Security.Cryptography.CryptoStreamMode.Write)
+
+        ' Use the crypto stream to write the byte array to the stream.
+        decStream.Write(encryptedBytes, 0, encryptedBytes.Length)
+        decStream.FlushFinalBlock()
+
+        ' Convert the plaintext stream to a string.
+        Return System.Text.Encoding.Unicode.GetString(ms.ToArray, 0, ms.Length)
+    End Function
+
+    ''' <summary>
+    ''' 파일로부터 문자열을 읽어옵니다.
+    ''' </summary>
+    ''' <param name="Filename"></param>
+    ''' <remarks></remarks>
+    Public Function Read_STring(ByVal Filename As String) As String
+        Dim FI As New System.IO.FileInfo(Filename)
+        If FI.Exists = False Then
+            MsgBox("필수파일이 존재하지않습니다", MsgBoxStyle.Critical, "확인")
+            Return ""
+        End If
+
+        Dim FS As New System.IO.FileStream(FI.FullName, IO.FileMode.Open)
+        Dim SR As New System.IO.StreamReader(FS, System.Text.Encoding.Default)
+
+        Dim cipherText As String = SR.ReadToEnd
+        SR.Close()
+        FS.Close()
+
+        ' DecryptData throws if the wrong password is used.
+        Try
+            Dim plainText As String = DecryptData(cipherText)
+            Return plainText
+            'MsgBox("해독값은? " & plainText)
+        Catch ex As System.Security.Cryptography.CryptographicException
+            Return ""
+            MsgBox("암호화키가 일치하지않거나 기타 오류입니다")
+        End Try
+
+    End Function
+
+    ''' <summary>
+    ''' 파일에 해당 문자열을 기록합니다.
+    ''' </summary>
+    ''' <param name="Filename"></param>
+    ''' <param name="Contents"></param>
+    ''' <remarks></remarks>
+    Public Sub Write_String(ByVal Filename As String, ByVal Contents As String)
+        Dim cipherText As String = EncryptData(Contents)
+
+        Dim FI As New System.IO.FileInfo(Filename)
+        Dim FS As New System.IO.FileStream(FI.FullName, IO.FileMode.Create)
+        Dim SW As New System.IO.StreamWriter(FS, System.Text.Encoding.Default)
+        'MsgBox("암호화된값은? " & cipherText)
+        SW.Write(cipherText)
+        SW.Flush()
+        SW.Close()
+        FS.Close()
+    End Sub
+
+
+End Class

Epole/MakeList.Designer.vb

@@ -21,14 +21,14 @@ Partial Class MakeList
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(MakeList))
-        Dim CheckBoxCellType2 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType()
+        Dim CheckBoxCellType1 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType()
-        Dim ButtonCellType2 As FarPoint.Win.Spread.CellType.ButtonCellType = New FarPoint.Win.Spread.CellType.ButtonCellType()
+        Dim ButtonCellType1 As FarPoint.Win.Spread.CellType.ButtonCellType = New FarPoint.Win.Spread.CellType.ButtonCellType()
-        Dim DateTimeCellType2 As FarPoint.Win.Spread.CellType.DateTimeCellType = New FarPoint.Win.Spread.CellType.DateTimeCellType()
+        Dim DateTimeCellType1 As FarPoint.Win.Spread.CellType.DateTimeCellType = New FarPoint.Win.Spread.CellType.DateTimeCellType()
-        Dim TextCellType2 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType()
+        Dim TextCellType1 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType()
-        Dim NumberCellType2 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType()
+        Dim NumberCellType1 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType()
-        Dim CurrencyCellType3 As FarPoint.Win.Spread.CellType.CurrencyCellType = New FarPoint.Win.Spread.CellType.CurrencyCellType()
+        Dim CurrencyCellType1 As FarPoint.Win.Spread.CellType.CurrencyCellType = New FarPoint.Win.Spread.CellType.CurrencyCellType()
-        Dim CurrencyCellType4 As FarPoint.Win.Spread.CellType.CurrencyCellType = New FarPoint.Win.Spread.CellType.CurrencyCellType()
+        Dim CurrencyCellType2 As FarPoint.Win.Spread.CellType.CurrencyCellType = New FarPoint.Win.Spread.CellType.CurrencyCellType()
-        Dim ComboBoxCellType2 As FarPoint.Win.Spread.CellType.ComboBoxCellType = New FarPoint.Win.Spread.CellType.ComboBoxCellType()
+        Dim ComboBoxCellType1 As FarPoint.Win.Spread.CellType.ComboBoxCellType = New FarPoint.Win.Spread.CellType.ComboBoxCellType()
         Me.PRB1 = New System.Windows.Forms.ToolStripProgressBar()
         Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
         Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
@@ -157,6 +157,7 @@ Partial Class MakeList
         Me.BindingNavigatorPositionItem.AccessibleName = "위치"
         Me.BindingNavigatorPositionItem.AutoSize = False
         Me.BindingNavigatorPositionItem.Enabled = False
+        Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("맑은 고딕", 9.0!)
         Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
         Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(25, 21)
         Me.BindingNavigatorPositionItem.Text = "0"
@@ -324,6 +325,7 @@ Partial Class MakeList
         '
         Me.ToolStripTextBox1.AccessibleName = "위치"
         Me.ToolStripTextBox1.AutoSize = False
+        Me.ToolStripTextBox1.Font = New System.Drawing.Font("맑은 고딕", 9.0!)
         Me.ToolStripTextBox1.Name = "ToolStripTextBox1"
         Me.ToolStripTextBox1.Size = New System.Drawing.Size(25, 21)
         Me.ToolStripTextBox1.Text = "0"
@@ -477,25 +479,28 @@ Partial Class MakeList
         'mbt_newkaro
         '
         Me.mbt_newkaro.Name = "mbt_newkaro"
-        Me.mbt_newkaro.Size = New System.Drawing.Size(134, 22)
+        Me.mbt_newkaro.Size = New System.Drawing.Size(180, 22)
         Me.mbt_newkaro.Tag = "B"
         Me.mbt_newkaro.Text = "가로등"
         '
         'mbt_newjungak
         '
         Me.mbt_newjungak.Enabled = False
+        Me.mbt_newjungak.ForeColor = System.Drawing.Color.Red
         Me.mbt_newjungak.Name = "mbt_newjungak"
-        Me.mbt_newjungak.Size = New System.Drawing.Size(134, 22)
+        Me.mbt_newjungak.Size = New System.Drawing.Size(180, 22)
         Me.mbt_newjungak.Tag = "C"
         Me.mbt_newjungak.Text = "정액등"
         Me.mbt_newjungak.Visible = False
         '
         'mbt_newsknetworks
         '
+        Me.mbt_newsknetworks.ForeColor = System.Drawing.Color.Red
         Me.mbt_newsknetworks.Name = "mbt_newsknetworks"
-        Me.mbt_newsknetworks.Size = New System.Drawing.Size(134, 22)
+        Me.mbt_newsknetworks.Size = New System.Drawing.Size(180, 22)
         Me.mbt_newsknetworks.Tag = "D"
         Me.mbt_newsknetworks.Text = "기타번호찰"
+        Me.mbt_newsknetworks.Visible = False
         '
         'mbt_homepage
         '
@@ -517,19 +522,19 @@ Partial Class MakeList
         'mbT_about
         '
         Me.mbT_about.Name = "mbT_about"
-        Me.mbT_about.Size = New System.Drawing.Size(152, 22)
+        Me.mbT_about.Size = New System.Drawing.Size(134, 22)
         Me.mbT_about.Text = "인증정보"
         '
         'ToolStripMenuItem3
         '
         Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
-        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(149, 6)
+        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(131, 6)
         '
         'bt_howto
         '
         Me.bt_howto.Enabled = False
         Me.bt_howto.Name = "bt_howto"
-        Me.bt_howto.Size = New System.Drawing.Size(152, 22)
+        Me.bt_howto.Size = New System.Drawing.Size(134, 22)
         Me.bt_howto.Text = "사용설명서"
         '
         'ToolStripMenuItem4
@@ -613,27 +618,27 @@ Partial Class MakeList
         Me.view1_Sheet1.Columns.Get(0).Locked = False
         Me.view1_Sheet1.Columns.Get(0).Visible = False
         Me.view1_Sheet1.Columns.Get(0).Width = 50.0!
-        Me.view1_Sheet1.Columns.Get(1).CellType = CheckBoxCellType2
+        Me.view1_Sheet1.Columns.Get(1).CellType = CheckBoxCellType1
         Me.view1_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center
         Me.view1_Sheet1.Columns.Get(1).Label = "선택"
         Me.view1_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center
         Me.view1_Sheet1.Columns.Get(1).Width = 39.0!
-        ButtonCellType2.ButtonColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
+        ButtonCellType1.ButtonColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
-        ButtonCellType2.ButtonColor2 = System.Drawing.SystemColors.ButtonFace
+        ButtonCellType1.ButtonColor2 = System.Drawing.SystemColors.ButtonFace
-        ButtonCellType2.Picture = CType(resources.GetObject("ButtonCellType2.Picture"), System.Drawing.Image)
+        ButtonCellType1.Picture = CType(resources.GetObject("ButtonCellType1.Picture"), System.Drawing.Image)
-        Me.view1_Sheet1.Columns.Get(2).CellType = ButtonCellType2
+        Me.view1_Sheet1.Columns.Get(2).CellType = ButtonCellType1
         Me.view1_Sheet1.Columns.Get(2).Label = "보기"
         Me.view1_Sheet1.Columns.Get(2).Width = 39.0!
         Me.view1_Sheet1.Columns.Get(3).AllowAutoSort = True
-        DateTimeCellType2.Calendar = CType(resources.GetObject("DateTimeCellType2.Calendar"), System.Globalization.Calendar)
+        DateTimeCellType1.Calendar = CType(resources.GetObject("DateTimeCellType1.Calendar"), System.Globalization.Calendar)
-        DateTimeCellType2.CalendarDayFont = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DateTimeCellType1.CalendarDayFont = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DateTimeCellType2.CalendarSurroundingDaysColor = System.Drawing.SystemColors.GrayText
+        DateTimeCellType1.CalendarSurroundingDaysColor = System.Drawing.SystemColors.GrayText
-        DateTimeCellType2.DateDefault = New Date(2007, 7, 15, 11, 18, 31, 0)
+        DateTimeCellType1.DateDefault = New Date(2007, 7, 15, 11, 18, 31, 0)
-        DateTimeCellType2.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.UserDefined
+        DateTimeCellType1.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.UserDefined
-        DateTimeCellType2.MaximumTime = System.TimeSpan.Parse("23:59:59.9999999")
+        DateTimeCellType1.MaximumTime = System.TimeSpan.Parse("23:59:59.9999999")
-        DateTimeCellType2.TimeDefault = New Date(2007, 7, 15, 11, 18, 31, 0)
+        DateTimeCellType1.TimeDefault = New Date(2007, 7, 15, 11, 18, 31, 0)
-        DateTimeCellType2.UserDefinedFormat = "yyyy-MM-dd"
+        DateTimeCellType1.UserDefinedFormat = "yyyy-MM-dd"
-        Me.view1_Sheet1.Columns.Get(3).CellType = DateTimeCellType2
+        Me.view1_Sheet1.Columns.Get(3).CellType = DateTimeCellType1
         Me.view1_Sheet1.Columns.Get(3).DataField = "날짜"
         Me.view1_Sheet1.Columns.Get(3).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center
         Me.view1_Sheet1.Columns.Get(3).Label = "날짜"
@@ -645,37 +650,37 @@ Partial Class MakeList
         Me.view1_Sheet1.Columns.Get(4).Label = "거래처명"
         Me.view1_Sheet1.Columns.Get(4).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center
         Me.view1_Sheet1.Columns.Get(4).Width = 79.0!
-        Me.view1_Sheet1.Columns.Get(5).CellType = TextCellType2
+        Me.view1_Sheet1.Columns.Get(5).CellType = TextCellType1
         Me.view1_Sheet1.Columns.Get(5).DataField = "비고"
         Me.view1_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center
         Me.view1_Sheet1.Columns.Get(5).Label = "작업내용"
         Me.view1_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center
         Me.view1_Sheet1.Columns.Get(5).Width = 63.0!
-        NumberCellType2.DecimalPlaces = 0
+        NumberCellType1.DecimalPlaces = 0
-        NumberCellType2.ReadOnly = True
+        NumberCellType1.ReadOnly = True
-        NumberCellType2.Separator = ","
+        NumberCellType1.Separator = ","
-        NumberCellType2.ShowSeparator = True
+        NumberCellType1.ShowSeparator = True
-        Me.view1_Sheet1.Columns.Get(6).CellType = NumberCellType2
+        Me.view1_Sheet1.Columns.Get(6).CellType = NumberCellType1
         Me.view1_Sheet1.Columns.Get(6).DataField = "총수량"
         Me.view1_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Right
         Me.view1_Sheet1.Columns.Get(6).Label = "총수량"
         Me.view1_Sheet1.Columns.Get(6).Locked = True
         Me.view1_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center
         Me.view1_Sheet1.Columns.Get(6).Width = 51.0!
-        CurrencyCellType3.Separator = ","
+        CurrencyCellType1.Separator = ","
-        CurrencyCellType3.ShowCurrencySymbol = False
+        CurrencyCellType1.ShowCurrencySymbol = False
-        CurrencyCellType3.ShowSeparator = True
+        CurrencyCellType1.ShowSeparator = True
-        Me.view1_Sheet1.Columns.Get(7).CellType = CurrencyCellType3
+        Me.view1_Sheet1.Columns.Get(7).CellType = CurrencyCellType1
         Me.view1_Sheet1.Columns.Get(7).DataField = "단가"
         Me.view1_Sheet1.Columns.Get(7).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Right
         Me.view1_Sheet1.Columns.Get(7).Label = "단가"
         Me.view1_Sheet1.Columns.Get(7).Locked = True
         Me.view1_Sheet1.Columns.Get(7).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center
         Me.view1_Sheet1.Columns.Get(7).Width = 39.0!
-        CurrencyCellType4.Separator = ","
+        CurrencyCellType2.Separator = ","
-        CurrencyCellType4.ShowCurrencySymbol = False
+        CurrencyCellType2.ShowCurrencySymbol = False
-        CurrencyCellType4.ShowSeparator = True
+        CurrencyCellType2.ShowSeparator = True
-        Me.view1_Sheet1.Columns.Get(8).CellType = CurrencyCellType4
+        Me.view1_Sheet1.Columns.Get(8).CellType = CurrencyCellType2
         Me.view1_Sheet1.Columns.Get(8).DataField = "금액"
         Me.view1_Sheet1.Columns.Get(8).Formula = "RC[-2]*RC[-1]"
         Me.view1_Sheet1.Columns.Get(8).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Right
@@ -683,11 +688,11 @@ Partial Class MakeList
         Me.view1_Sheet1.Columns.Get(8).Locked = True
         Me.view1_Sheet1.Columns.Get(8).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center
         Me.view1_Sheet1.Columns.Get(8).Width = 39.0!
-        ComboBoxCellType2.ButtonAlign = FarPoint.Win.ButtonAlign.Right
+        ComboBoxCellType1.ButtonAlign = FarPoint.Win.ButtonAlign.Right
-        ComboBoxCellType2.EditorValue = FarPoint.Win.Spread.CellType.EditorValue.ItemData
+        ComboBoxCellType1.EditorValue = FarPoint.Win.Spread.CellType.EditorValue.ItemData
-        ComboBoxCellType2.ItemData = New String() {"0", "1", "2", "3", "4", "5", "6", "7"}
+        ComboBoxCellType1.ItemData = New String() {"0", "1", "2", "3", "4", "5", "6", "7"}
-        ComboBoxCellType2.Items = New String() {"가공", "지중", "수용", "일반번호찰", "가로등", "정액등", "보안등", "기타번호찰"}
+        ComboBoxCellType1.Items = New String() {"가공", "지중", "수용", "일반번호찰", "가로등", "정액등", "보안등", "기타번호찰"}
-        Me.view1_Sheet1.Columns.Get(9).CellType = ComboBoxCellType2
+        Me.view1_Sheet1.Columns.Get(9).CellType = ComboBoxCellType1
         Me.view1_Sheet1.Columns.Get(9).DataField = "번호찰구분"
         Me.view1_Sheet1.Columns.Get(9).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center
         Me.view1_Sheet1.Columns.Get(9).Label = "종류"

Epole/MakeList.resx

@@ -156,9 +156,6 @@
   <metadata name="IreaDataSet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>293, 17</value>
   </metadata>
-  <metadata name="IreaDataSet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>293, 17</value>
-  </metadata>
   <metadata name="cm.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>791, 17</value>
   </metadata>
@@ -297,7 +294,7 @@
   <metadata name="view1_Sheet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>664, 17</value>
   </metadata>
-  <data name="ButtonCellType2.Picture" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="ButtonCellType1.Picture" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
         JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA7AAAAOwAFq1okJAAABcElE
@@ -310,14 +307,14 @@
         4BQAJH4B0qBEm6dSDJUAAAAASUVORK5CYII=
 </value>
   </data>
-  <data name="DateTimeCellType2.Calendar" mimetype="application/x-microsoft.net.object.binary.base64">
+  <data name="DateTimeCellType1.Calendar" mimetype="application/x-microsoft.net.object.binary.base64">
     <value>
         AAEAAAD/////AQAAAAAAAAAEAQAAACZTeXN0ZW0uR2xvYmFsaXphdGlvbi5HcmVnb3JpYW5DYWxlbmRh
         cgYAAAAGbV90eXBlEW1fY3VycmVudEVyYVZhbHVlD3R3b0RpZ2l0WWVhck1heBpDYWxlbmRhcittX2N1
         cnJlbnRFcmFWYWx1ZRVDYWxlbmRhcittX2lzUmVhZE9ubHkYQ2FsZW5kYXIrdHdvRGlnaXRZZWFyTWF4
         AwAAAAAAK1N5c3RlbS5HbG9iYWxpemF0aW9uLkdyZWdvcmlhbkNhbGVuZGFyVHlwZXMICAgBCAT+////
         K1N5c3RlbS5HbG9iYWxpemF0aW9uLkdyZWdvcmlhbkNhbGVuZGFyVHlwZXMBAAAAB3ZhbHVlX18ACAEA
-        AAD/////7QcAAP////8A7QcAAAs=
+        AAD/////AQgAAP////8AAQgAAAs=
 </value>
   </data>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">

Epole/MakeList.vb

@@ -30,9 +30,10 @@ Public Class MakeList
     End Sub
 
     Private Sub MakeList_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
-        If e.KeyCode = Keys.F12 Then
+        If e.Control AndAlso e.Shift AndAlso e.KeyCode = Keys.F1 Then
             Dim msg As String = InputBox("pass")
-            If msg = "arin" Then Admin = True 'UserInfo.Type = E_AuthType.Admin
+            Dim pass As String = DateTime.Now.ToString("ddMMyyyy")
+            If msg = pass Then Admin = True 'UserInfo.Type = E_AuthType.Admin
             ShowMenu()
         End If
     End Sub
@@ -82,7 +83,7 @@ Public Class MakeList
         '        Me.lb_auth.ForeColor = Color.Black
         'End Select
 
-        ShowMenu()
+        'ShowMenu()
 
         'If UserInfo.Type = E_AuthType.Demo Then
         '    If DemoDlg.ShowDialog() <> Windows.Forms.DialogResult.OK Then End

Epole/My Project/licenses.licx

@@ -1,2 +1 @@
-FarPoint.Win.Spread.FpSpread, FarPoint.Win.Spread, Version=5.0.2005.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457
+FarPoint.Win.Spread.FpSpread, FarPoint.Win.Spread, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457
-FarPoint.Win.Spread.FpSpread, FarPoint.Win.Spread, Version=5.0.3518.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457

Epole/dialogForm/DemoDlg.Designer.vb

@@ -42,6 +42,8 @@ Partial Class DemoDlg
         Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
         Me.lb_expiredate = New System.Windows.Forms.Label()
         Me.lb_msg = New System.Windows.Forms.Label()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Panel2 = New System.Windows.Forms.Panel()
         Me.TableLayoutPanel.SuspendLayout()
         CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
@@ -137,6 +139,8 @@ Partial Class DemoDlg
         'Panel1
         '
         Me.Panel1.BackColor = System.Drawing.Color.Transparent
+        Me.Panel1.Controls.Add(Me.Button3)
+        Me.Panel1.Controls.Add(Me.Panel2)
         Me.Panel1.Controls.Add(Me.Button2)
         Me.Panel1.Controls.Add(Me.Button1)
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
@@ -159,13 +163,13 @@ Partial Class DemoDlg
         '
         'Button1
         '
-        Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button1.BackColor = System.Drawing.Color.Transparent
         Me.Button1.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Button1.Dock = System.Windows.Forms.DockStyle.Right
         Me.Button1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
-        Me.Button1.Location = New System.Drawing.Point(284, -1)
+        Me.Button1.Location = New System.Drawing.Point(284, 0)
         Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(64, 25)
+        Me.Button1.Size = New System.Drawing.Size(64, 24)
         Me.Button1.TabIndex = 1
         Me.Button1.Text = "확인(&O)"
         Me.Button1.UseVisualStyleBackColor = False
@@ -206,6 +210,27 @@ Partial Class DemoDlg
         Me.lb_msg.Text = "."
         Me.lb_msg.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
         '
+        'Button3
+        '
+        Me.Button3.BackColor = System.Drawing.Color.Transparent
+        Me.Button3.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Button3.Dock = System.Windows.Forms.DockStyle.Right
+        Me.Button3.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
+        Me.Button3.Location = New System.Drawing.Point(174, 0)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(99, 24)
+        Me.Button3.TabIndex = 3
+        Me.Button3.Text = "인증키입력"
+        Me.Button3.UseVisualStyleBackColor = False
+        '
+        'Panel2
+        '
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Right
+        Me.Panel2.Location = New System.Drawing.Point(273, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(11, 24)
+        Me.Panel2.TabIndex = 4
+        '
         'DemoDlg
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
@@ -234,5 +259,6 @@ Partial Class DemoDlg
     Friend WithEvents Button2 As System.Windows.Forms.Button
     Friend WithEvents lb_expiredate As System.Windows.Forms.Label
     Friend WithEvents lb_msg As System.Windows.Forms.Label
-
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Panel2 As Panel
 End Class

Epole/dialogForm/DemoDlg.vb

@@ -82,5 +82,8 @@
         End If
     End Sub
 
-   
+    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
+        Dim f As New fAuth()
+        f.ShowDialog()
+    End Sub
 End Class

Epole/dialogForm/fPassword.Designer.vb

@@ -0,0 +1,64 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class fPassword
+    Inherits System.Windows.Forms.Form
+
+    'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Windows Form 디자이너에 필요합니다.
+    Private components As System.ComponentModel.IContainer
+
+    '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
+    '수정하려면 Windows Form 디자이너를 사용하십시오.  
+    '코드 편집기에서는 수정하지 마세요.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.SuspendLayout()
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(20, 16)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(345, 21)
+        Me.TextBox1.TabIndex = 0
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(20, 45)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(345, 28)
+        Me.Button1.TabIndex = 1
+        Me.Button1.Text = "Button1"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'fPassword
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(379, 85)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.TextBox1)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "fPassword"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "fPassword"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Button1 As Button
+End Class

Epole/dialogForm/fPassword.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Epole/dialogForm/fPassword.vb

@@ -0,0 +1,10 @@
+Public Class fPassword
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim pass As String = DateTime.Now.ToString("ddMMyyyy")
+        If TextBox1.Text = pass Then
+            DialogResult = DialogResult.OK
+        Else
+            DialogResult = DialogResult.Cancel
+        End If
+    End Sub
+End Class

Epole/fAuth.Designer.vb

@@ -0,0 +1,142 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class fAuth
+    Inherits System.Windows.Forms.Form
+
+    'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Windows Form 디자이너에 필요합니다.
+    Private components As System.ComponentModel.IContainer
+
+    '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
+    '수정하려면 Windows Form 디자이너를 사용하십시오.  
+    '코드 편집기를 사용하여 수정하지 마십시오.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(fAuth))
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("굴림", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
+        Me.Label1.Location = New System.Drawing.Point(17, 19)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(298, 16)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "현재 남은 사용 횟수는 {0} 회 입니다."
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
+        Me.Label2.Location = New System.Drawing.Point(17, 55)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(303, 12)
+        Me.Label2.TabIndex = 1
+        Me.Label2.Text = "프로그램을 영구 사용하려면 인증키를 입력하세요."
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.ForeColor = System.Drawing.Color.Red
+        Me.Label3.Location = New System.Drawing.Point(17, 75)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(341, 12)
+        Me.Label3.TabIndex = 1
+        Me.Label3.Text = "지정 횟수를 초과하면 더 이상 프로그램을 사용할 수 없습니다."
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Font = New System.Drawing.Font("굴림", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
+        Me.TextBox1.Location = New System.Drawing.Point(19, 133)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(367, 29)
+        Me.TextBox1.TabIndex = 1
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(37, 104)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(37, 12)
+        Me.Label4.TabIndex = 3
+        Me.Label4.Text = "문의 :"
+        '
+        'LinkLabel1
+        '
+        Me.LinkLabel1.AutoSize = True
+        Me.LinkLabel1.Location = New System.Drawing.Point(79, 103)
+        Me.LinkLabel1.Name = "LinkLabel1"
+        Me.LinkLabel1.Size = New System.Drawing.Size(283, 12)
+        Me.LinkLabel1.TabIndex = 4
+        Me.LinkLabel1.TabStop = True
+        Me.LinkLabel1.Text = "해광기획 (http://hawgwang.co.kr) / 062-381-0411"
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(392, 133)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(68, 29)
+        Me.Button1.TabIndex = 2
+        Me.Button1.Text = "인증"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(19, 170)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(441, 29)
+        Me.Button2.TabIndex = 0
+        Me.Button2.Text = "테스트 사용"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'fAuth
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(478, 219)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.LinkLabel1)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "fAuth"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "인증하기"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents Button2 As System.Windows.Forms.Button
+End Class

Epole/fAuth.resx

@@ -0,0 +1,175 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAIAICAQAAAAAADoAgAAJgAAACAgAAAAAAAAqAgAAA4DAAAoAAAAIAAAAEAAAAABAAQAAAAAAIAC
+        AAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAMDAwACAgIAAAAD/AAD/
+        AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAERAQEBAAAAAAAAAAAAABEREREREBAQAAAAAAAAABESE
+        hISEhIRAQAAAAAAAAEiIiEhISEhIRIQAAAAAAASIiIiIiIiEhICIQAAAAABIiIiEBAQEBAhEiIQAAAAE
+        iIh4dH///3cEgHiIQAAASIiHh4hC//cgiESHiIQAAEiIeHh4dH/3CIiEeHiEAASIh4eHh4R/9wiIhHeH
+        iEAEiHh4eHh0f/cIeIR3eHhABIeHh4eHhH/3CIiEd3eIQEh4eHd3d3R/9wh4gnd3eIRHh4d3d3d0f/cI
+        iEd3d4eESHh3d3d3dH/3CIhHd3d4hEeHd3d3d3R/9wiCh3d3d4RId3d3d3d0f/cIhHd3d3h0R3d3d3dy
+        Qn/3CEd3d3d3hEh3d3d3dP//9wiHd3d3eHRHd3d3d3dEf/cEd3d3d3eEBHd3d3d3d0f3B/d3d3d3gAR3
+        d3d/f3dwB093d3d3d0AEd3d3d3d4RASH93d3d3dAAEd3f39/dPd4T3d3d3d0AABHd/f3dE//9wf3d3d3
+        dAAABHd/dEcP//cPd3d3d0AAAABEREf/B//3B/d3d3QAAAAABHf/f3B/cI93d3dAAAAAAABHf//3AAj3
+        d3d0AAAAAAAAAAd3//9/d3d0QAAAAAAAAAAAAIf393dEQAAAAAAAAAAAAAAAAAAAAAAAAAAA//AAD/+A
+        AAf+AAAP/AAAP/gAAB/wAAAP4AAAB8AAAAPAAAADgAAAAYAAAAGAAAABAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAACAAAABgAAAAYAAAAHAAAADwAAAA+AAAAfwAAAP+AAAH/wAAD/+AAB//4AB///w
+        D/8oAAAAIAAAAEAAAAABAAgAAAAAAIAEAAAAAAAAAAAAAAAAAAAAAAAA////AP///wD///8A////AP//
+        /wD///8Azv//AM7//wDO//8Azv//AM7//wAA//8AAP//AAD//wAA//8AAP//AJzO/wCczv8AnM7/AJzO
+        /wCczv8AzmP/AM5j/wDOY/8AzmP/AM5j/wDv7+8A7+/vAO/v7wDv7+8A7+/vAN7e3gDe3t4A3t7eAN7e
+        3gDe3t4A///OAP//zgD//84A///OAP//zgD/zs4A/87OAP/OzgD/zs4A/87OAM7OzgDOzs4Azs7OAM7O
+        zgDOzs4AY5zOAGOczgBjnM4AY5zOAGOczgC9vb0Avb29AL29vQC9vb0Avb29AK2trQCtra0Ara2tAK2t
+        rQCtra0A//+cAP//nAD//5wA//+cAP//nAD/nJwA/5ycAP+cnAD/nJwA/5ycAJycnACcnJwAnJycAJyc
+        nACcnJwAjIyMAIyMjACMjIwAjIyMAIyMjABzc3MAc3NzAHNzcwBzc3MAc3NzAHNzcwDOY2MAzmNjAM5j
+        YwDOY2MAzmNjAGNjYwBjY2MAY2NjAGNjYwBjY2MAUlJSAFJSUgBSUlIAUlJSAFJSUgBCQkIAQkJCAEJC
+        QgBCQkIAQkJCAGOcMQBjnDEAY5wxAGOcMQBjnDEAY2MxAGNjMQBjYzEAY2MxAGNjMQCcMTEAnDExAJwx
+        MQCcMTEAnDExAGMxMQBjMTEAYzExAGMxMQBjMTEAMTExADExMQAxMTEAMTExADExMQAAMTEAADExAAAx
+        MQAAMTEAADExAJwAMQCcADEAnAAxAJwAMQCcADEAMQAxADEAMQAxADEAMQAxADEAMQAAADEAAAAxAAAA
+        MQAAADEAAAAxACEhIQAhISEAISEhACEhIQAhISEAAAAhAAAAIQAAACEAAAAhAAAAIQAQEBAAEBAQABAQ
+        EAAQEBAAEBAQAAAAEAAAABAAAAAQAAAAEAAAABAAAL0AAAC9AAAAvQAAAL0AAAC9AAD/nAAA/5wAAP+c
+        AAD/nAAA/5wAAP+cAACcYwAAnGMAAJxjAACcYwAAnGMAAGNjAABjYwAAY2MAAGNjAABjYwAAnDEAAJwx
+        AACcMQAAnDEAAJwxAABjMQAAYzEAAGMxAABjMQAAYzEAADExAAAxMQAAMTEAADExAAAxMQAAABAAAAAQ
+        AAAAEAAAABAAAAAQAAAAEAAAcwAAAHMAAABzAAAAcwAAAHMAAABSAAAAUgAAAFIAAABSAAAAUgAAAEIA
+        AABCAAAAQgAAAEIAAABCAAAAMQAAADEAAAAxAAAAMQAAADEAAAAhAAAAIQAAACEAAAAhAAAAIQAAABAA
+        AAAQAAAAEAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPv7+/v7+/v7+/v7+39/
+        f/l/+X/5f/n5+fn5+fn7+/v7+/v7+/v7+/v7f39/f39/f39/f3/5f/l/+fn5+fn7+/v7+/v7+/v7f39/
+        XH9cf1x/XH9cf1x/f/l/+fn5+/v7+/v7+/v7+39cXFxcXH9cf1x/XH9cf1x/f1x/+/v7+/v7+/v7+/t/
+        XFxcXFxcXFxcXFxcXH9cf1z5XFx/+/v7+/v7+/v7f1xcXFxcXI75f/l/+X/5f/lcf39cXGZ/+/v7+/v7
+        +39cXFxcR1xHji4AABoaGi49+X9c+UdcXGZ/+/v7+/t/XFxcXEdcR1xcjmsAABo4a/lcXH9/XEdcXGZ/
+        +/v7+39cXFxHXEdcR1xHji4AAD35XFxcXH9HXEdcXH/7+/t/XFxcR1xHXEdcR1yOLgAAOJ1mXFxcf0c9
+        XEdcZn/7+39cXEdcR1xHXEdcR44uAAA9+VxHXFx/R0c9XEdcf/v7f1xHXEdcR1xHXEdcji4AADidZlxc
+        XH9HPUc9XFx/+39cR1xHXEdHR0dHR0eOLgAAPflcR1xcazhHPUdHXGZ/f0dcR1xHR0dHR0dHR44uAAA4
+        nWZcXH9HRzhHPVxHZn9/XEdcR0dHR0cpRylHji4AAD35XFxcf0c4RzhHPVxcf45HXEdHR0cpR0cpRymO
+        LgAAOJ1mXGtcKUc4RzhHR1x/f1xHR0dHKUcpRykpKY4uAAA9+VxcfylHLkc4Rz1cR3+OR0dHRylHKUcp
+        KWuOay4AADidZn8uRy5HLkc4R0dcf39cR0cpRykpKSkpjgAAAAAAPflcXCkuRy5HLkc9XEd/jkdHKUcp
+        KSkpKSkpjo4uAAA4nX8pKSkuRy5HOEdHXH/7jilHKSkpKSkpKSkpKX8uAD35KRopLikuRy5HPUdc+/uO
+        RykpKSkpKRopGikpKZ2dOH8aKSkpLkcuRzhHR3/7+45HRykpKSkpKSkpKVF/f51/USkaKS4pLkcuR0dH
+        f/v7+44pKSkpGikaKRopfxouPVF/GikpKS5HLkc4R3/7+/v7jkcpKRopGikpf38aGgAaPfkpGikpKSlH
+        LkdHf/v7+/v7jkcpKRopjn8p+RoAGhounRopKSkpRy5HR3/7+/v7+/v7jn+Of44pGhr5OBoAAC75KRop
+        KUcuR0d/+/v7+/v7+/v7fykpGhopGin5OBou+VEaKSkpKUdHf/v7+/v7+/v7+/v7fykpGhoaGin5+flR
+        GikpKUdHR3/7+/v7+/v7+/v7+/v7+fkpKSkaGhoaKRopKSlHR45/+/v7+/v7+/v7+/v7+/v7+/n5+VEp
+        GikaKSlHjo6O+/v7+/v7+/v7+/v7+/v7+/v7+/v7+fn5+fn5+fn7+/v7+/v7+/v7+/v/8AAP/4AAB/4A
+        AA/8AAA/+AAAH/AAAA/gAAAHwAAAA8AAAAOAAAABgAAAAYAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAIAAAAGAAAABgAAAAcAAAAPAAAAD4AAAB/AAAA/4AAAf/AAAP/4AAH//gAH///AP/w==
+</value>
+  </data>
+</root>

Epole/fAuth.vb

@@ -0,0 +1,60 @@
+Public Class fAuth
+    Private Sub fAuth_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        '  Runcnt = Me.ReadAuthcount
+        If Runcnt > 9 Then
+            Button2.Text = "사용횟수초과(테스트사용불가)"
+            Button2.Enabled = False
+        End If
+        Dim remain As Integer = 10 - Runcnt
+        Label1.Text = String.Format(Label1.Text, remain)
+
+    End Sub
+    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
+        Dim url As String = "http://haegwang.co.kr"
+        Dim prc As New System.Diagnostics.Process()
+        Dim si As New System.Diagnostics.ProcessStartInfo(url)
+        prc.StartInfo = si
+        prc.Start()
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        DialogResult = Windows.Forms.DialogResult.OK
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim NewKey As String = TextBox1.Text.Trim()
+        If NewKey.Trim() = "" Then
+            TextBox1.Focus()
+            TextBox1.SelectAll()
+            Return
+        End If
+
+        Dim textenc As New EnDec("HAEGWANGSIMP")
+        Try
+            Dim strdata As String = textenc.DecryptData(TextBox1.Text.Trim())
+            Dim strbuf() As String = strdata.Split("|SIMP|")
+            Dim datestr As String = strbuf(0)
+            Dim datestrhash As String = strbuf(2)
+            Dim hashcode As Integer = CInt(datestrhash)
+            If datestr.GetHashCode() = hashcode Then
+                Dim auth As New MyAuth
+                Dim dateValue As Date = Date.Parse(datestr)
+                Dim setfile As String = My.Application.Info.DirectoryPath & "\epole.ini"
+                auth.SetAuth(dateValue.ToFileTimeUtc(), setfile)
+                MsgBox("프로그램을 재실행 하세요", MsgBoxStyle.Information, "확인")
+                DialogResult = Windows.Forms.DialogResult.Cancel
+            End If
+        Catch ex As Exception
+            MsgBox("인증키 확인 중 오류 발생, 다시 시도하세요")
+            TextBox1.Focus()
+            TextBox1.SelectAll()
+            Return
+        End Try
+
+
+       
+
+    End Sub
+
+   
+End Class

Epole/통합번호찰_가로등.vbproj

@@ -81,27 +81,13 @@
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\DLLS\ADBC.dll</HintPath>
     </Reference>
-    <Reference Include="FarPoint.CalcEngine, Version=5.0.2005.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL">
+    <Reference Include="FarPoint.CalcEngine, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL" />
-      <Private>True</Private>
+    <Reference Include="FarPoint.Excel, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL" />
-    </Reference>
+    <Reference Include="FarPoint.PDF, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL" />
-    <Reference Include="FarPoint.Excel, Version=5.0.2005.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL">
+    <Reference Include="FarPoint.PluginCalendar.WinForms, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL" />
-      <Private>True</Private>
+    <Reference Include="FarPoint.Win, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL" />
-    </Reference>
+    <Reference Include="FarPoint.Win.Chart, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL" />
-    <Reference Include="FarPoint.PDF, Version=5.0.2005.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL">
+    <Reference Include="FarPoint.Win.Spread, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL" />
-      <Private>True</Private>
-    </Reference>
-    <Reference Include="FarPoint.PluginCalendar.WinForms, Version=5.0.2005.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL">
-      <Private>True</Private>
-    </Reference>
-    <Reference Include="FarPoint.Win, Version=5.0.2005.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL">
-      <Private>True</Private>
-    </Reference>
-    <Reference Include="FarPoint.Win.Chart, Version=5.0.2005.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL">
-      <Private>True</Private>
-    </Reference>
-    <Reference Include="FarPoint.Win.Spread, Version=5.0.2005.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL">
-      <Private>True</Private>
-    </Reference>
     <Reference Include="Microsoft.VisualBasic.Compatibility" />
     <Reference Include="NewControlGroup, Version=1.0.3928.21799, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
@@ -154,6 +140,12 @@
     <Compile Include="dialogForm\DemoDlg.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="dialogForm\fPassword.Designer.vb">
+      <DependentUpon>fPassword.vb</DependentUpon>
+    </Compile>
+    <Compile Include="dialogForm\fPassword.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="dialogForm\Frm_ViewSetup.Designer.vb">
       <DependentUpon>Frm_ViewSetup.vb</DependentUpon>
     </Compile>
@@ -269,6 +261,9 @@
       <SubType>Designer</SubType>
       <DependentUpon>DemoDlg.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="dialogForm\fPassword.resx">
+      <DependentUpon>fPassword.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="dialogForm\Frm_ViewSetup.resx">
       <SubType>Designer</SubType>
       <DependentUpon>Frm_ViewSetup.vb</DependentUpon>