솔루션에 fp5,fp13 포함

SubProject/ArinClassV2/ArinClassV2/MyAuth.vb

@@ -24,11 +24,19 @@
         Return True
     End Function
 
-    Public Sub SetAuth(ByVal Newkey As Long, ByVal Fn As String)
+
+    ''' <summary>
+    ''' 기본  keyname =  install
+    ''' </summary>
+    ''' <param name="Newkey"></param>
+    ''' <param name="Fn"></param>
+    ''' <param name="keyname"></param>
+    Public Sub SetAuth(ByVal Newkey As Long, ByVal Fn As String, keyname As String)
         Dim auth As New ARINCLASS
         Dim Arinini As New MyINI(Fn)
-        Arinini.Write("main", "install", Newkey)
-        Arinini.Write("main", "installkey", Newkey.GetHashCode)
+        Arinini.Write("main", keyname, Newkey)
+        Dim 해쉬값 As Integer = Newkey.GetHashCode()
+        Arinini.Write("main", keyname + "key", 해쉬값)
 
         Dim A As New System.Text.StringBuilder
         A.AppendLine("인증정보가 파일에 기록되었습니다")