mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-22 11:21:47 -05:00
implemented the password stuff, but failed to be able to convert other than alphabet to its correspondant
This commit is contained in:
parent
996601e9cc
commit
e73d05d3b0
2 changed files with 37 additions and 14 deletions
|
@ -231,6 +231,9 @@
|
||||||
NormalCommand()
|
NormalCommand()
|
||||||
SaveGame()
|
SaveGame()
|
||||||
InitializeTerminal()
|
InitializeTerminal()
|
||||||
|
'Case "secure"
|
||||||
|
' Console.Secure = True
|
||||||
|
' Console.TextBox1.ReadOnly = True
|
||||||
Case "shiftorium"
|
Case "shiftorium"
|
||||||
NewLine(My.Resources.man_shiftorium)
|
NewLine(My.Resources.man_shiftorium)
|
||||||
AdvancedCommand = False
|
AdvancedCommand = False
|
||||||
|
|
|
@ -15,6 +15,8 @@ Public Class Console
|
||||||
Public ToolBarUse As Boolean = False 'Either any program is using ToolBar or not
|
Public ToolBarUse As Boolean = False 'Either any program is using ToolBar or not
|
||||||
Public ReleaseCursor As Boolean = False 'Release cursor from TrackPos
|
Public ReleaseCursor As Boolean = False 'Release cursor from TrackPos
|
||||||
Public ShOSKey As String 'DOSKEY tracking string for ShiftOS
|
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
|
Private Sub Console_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||||
With ShortcutHandler
|
With ShortcutHandler
|
||||||
|
@ -35,6 +37,15 @@ Public Class Console
|
||||||
Select Case e.KeyData
|
Select Case e.KeyData
|
||||||
Case Keys.Enter
|
Case Keys.Enter
|
||||||
e.SuppressKeyPress = True
|
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
|
If TextBox1.ReadOnly = True Then
|
||||||
|
|
||||||
Else
|
Else
|
||||||
|
@ -52,6 +63,7 @@ Public Class Console
|
||||||
TextRebind()
|
TextRebind()
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
End If
|
||||||
TrackPos = 0
|
TrackPos = 0
|
||||||
Case Keys.ShiftKey, Keys.LShiftKey, Keys.RShiftKey, Keys.Alt, Keys.ControlKey, Keys.LWin, Keys.RWin
|
Case Keys.ShiftKey, Keys.LShiftKey, Keys.RShiftKey, Keys.Alt, Keys.ControlKey, Keys.LWin, Keys.RWin
|
||||||
e.SuppressKeyPress = True
|
e.SuppressKeyPress = True
|
||||||
|
@ -113,7 +125,15 @@ Public Class Console
|
||||||
TextRebind()
|
TextRebind()
|
||||||
End If
|
End If
|
||||||
Case Else
|
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
|
TrackPos = TrackPos + 1
|
||||||
|
End If
|
||||||
End Select
|
End Select
|
||||||
End If
|
End If
|
||||||
'If e.KeyCode = Keys.Enter Then
|
'If e.KeyCode = Keys.Enter Then
|
||||||
|
|
Loading…
Reference in a new issue