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

48
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,21 +37,31 @@ Public Class Console
Select Case e.KeyData
Case Keys.Enter
e.SuppressKeyPress = True
If TextBox1.ReadOnly = True Then
Else
If Secure = True Then
Secure = False
TextBox1.ReadOnly = False
Terminal_ReadCommand()
If Strings.AvailableFeature(18) = 1 Then
ShOSKey_InputCommand(command)
End If
If ChangeInterpreter = True Then
DoChildCommand()
Terminal_PrintPrompt()
TextRebind()
NewLine(SecureString)
Terminal_PrintPrompt()
SecureString = Nothing
TextRebind()
Else
If TextBox1.ReadOnly = True Then
Else
Terminal_DoCommand()
Terminal_PrintPrompt()
TextRebind()
Terminal_ReadCommand()
If Strings.AvailableFeature(18) = 1 Then
ShOSKey_InputCommand(command)
End If
If ChangeInterpreter = True Then
DoChildCommand()
Terminal_PrintPrompt()
TextRebind()
Else
Terminal_DoCommand()
Terminal_PrintPrompt()
TextRebind()
End If
End If
End If
TrackPos = 0
@ -113,7 +125,15 @@ Public Class Console
TextRebind()
End If
Case Else
TrackPos = TrackPos + 1
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