Copy and paste the code below into PAD
System.RunApplication.RunApplication ApplicationPath: $'''C:\\Windows\\system32\\cmd.exe''' WorkingDirectory: $'''C:\\Users\\''' WindowStyle: System.ProcessWindowStyle.Normal ProcessId=> AppProcessId
WAIT 5
UIAutomation.GetWindow.GetForegroundWindow WindowTitle=> WindowTitle WindowInstance=> AutomationWindow
WAIT 5
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''ssh-keygen {Enter}''' DelayBetweenKeystrokes: 30 SendTextAsHardwareKeys: False
WAIT 10
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''key3 {Return}''' DelayBetweenKeystrokes: 30 SendTextAsHardwareKeys: False
WAIT 10
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $''' {Return} {Return}''' DelayBetweenKeystrokes: 30 SendTextAsHardwareKeys: False
WAIT 2
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''exit{Enter}''' DelayBetweenKeystrokes: 30 SendTextAsHardwareKeys: False
Folder.GetFiles Folder: $'''C:\\Users\\''' FileFilter: $'''*.pub''' IncludeSubfolders: False FailOnAccessDenied: True SortBy1: Folder.SortBy.NoSort SortDescending1: False SortBy2: Folder.SortBy.NoSort SortDescending2: False SortBy3: Folder.SortBy.NoSort SortDescending3: False Files=> Files
SET NewVar2 TO Files[0]['FullName']
File.ReadTextFromFile.ReadTextAsList File: NewVar2 Encoding: File.TextFileEncoding.DefaultEncoding Contents=> Key
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $''' {Return} {Return}''' DelayBetweenKeystrokes: 30 SendTextAsHardwareKeys: False
