shiftos-archive/ShiftOS-TheRevival-Old
1
0
Fork 0
mirror of https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git synced 2025-01-22 18:02:16 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
EverythingWindows 2022-11-19 06:17:02 +07:00
parent 996601e9cc
commit e73d05d3b0
2 changed files with 37 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
ShiftOS-TheRevival/API/TerminalAPI.vb
View file

@ -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

20
ShiftOS-TheRevival/MainForms/Console.vb
View file

@ -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