initial commit

ArinLogin/Test/Form1.vb

@@ -0,0 +1,15 @@
+Public Class Form1
+
+    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        Dim L As New ArinLogin.ArinLOgin
+        Me.TextBox1.Text = L.ReadCString
+
+        
+
+    End Sub
+
+    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
+        Dim C As New ArinLogin.EnDec("ENDECPASSWORDKEY")
+        C.Write_String("c:\login.dat", Me.TextBox1.Text)
+    End Sub
+End Class