implemented the password stuff, but failed to be able to convert other than alphabet to its correspondant

ShiftOS-TheRevival/API/TerminalAPI.vb

@@ -231,6 +231,9 @@
                 NormalCommand()
                 SaveGame()
                 InitializeTerminal()
+            'Case "secure"
+            '    Console.Secure = True
+            '    Console.TextBox1.ReadOnly = True
             Case "shiftorium"
                 NewLine(My.Resources.man_shiftorium)
                 AdvancedCommand = False

ShiftOS-TheRevival/MainForms/Console.vb

@@ -15,6 +15,8 @@ Public Class Console
     Public ToolBarUse As Boolean = False                'Either any program is using ToolBar or not
     Public ReleaseCursor As Boolean = False             'Release cursor from TrackPos
     Public ShOSKey As String                            'DOSKEY tracking string for ShiftOS
+    Public Secure As Boolean                            'Define either Secure Text mode is enabled or not (experimental!)
+    Public SecureString As String                       'String for Secure Text mode (experimental)
 
     Private Sub Console_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         With ShortcutHandler
@@ -35,6 +37,15 @@ Public Class Console
             Select Case e.KeyData
                 Case Keys.Enter
                     e.SuppressKeyPress = True
+                    If Secure = True Then
+                        Secure = False
+                        TextBox1.ReadOnly = False
+                        Terminal_ReadCommand()
+                        NewLine(SecureString)
+                        Terminal_PrintPrompt()
+                        SecureString = Nothing
+                        TextRebind()
+                    Else
                         If TextBox1.ReadOnly = True Then
 
                         Else
@@ -52,6 +63,7 @@ Public Class Console
                                 TextRebind()
                             End If
                         End If
+                    End If
                     TrackPos = 0
                 Case Keys.ShiftKey, Keys.LShiftKey, Keys.RShiftKey, Keys.Alt, Keys.ControlKey, Keys.LWin, Keys.RWin
                     e.SuppressKeyPress = True
@@ -113,7 +125,15 @@ Public Class Console
                         TextRebind()
                     End If
                 Case Else
+                    If Secure = True Then
+                        If e.Modifiers = Keys.Shift Then
+                            SecureString = SecureString & Chr(e.KeyValue)
+                        Else
+                            SecureString = SecureString & Chr(e.KeyValue + 32)
+                        End If
+                    Else
                         TrackPos = TrackPos + 1
+                    End If
             End Select
         End If
         'If e.KeyCode = Keys.Enter Then