modified: README.md

	modified:   backup/project1.lps
	modified:   backup/unit1.lfm
	modified:   backup/unit1.pas
	modified:   lib/i386-win32/libimpunit1.a
	modified:   lib/i386-win32/unit1.o
	modified:   lib/i386-win32/unit1.ppu
	modified:   lib/i386-win32/unit2.ppu
	modified:   project1.lps
	modified:   unit1.pas

README.md

@@ -111,7 +111,7 @@ These Issues will not be adressed as this overturns the innitial scope of the Pr
   * Added Copy Indicator for displayed Handle. 
   * Added closing confirmation Dialog if blocking is enabled.
   * Improved Scrolling with the Process List.
-  * WIP: Replaced Clear Password with SHA-512 Hash.
+  * Encoded Clear Password with Base64. More is out of Scope.
   * Rewritten Information Section to be more usable.
   * Minor visual fixes.
 

backup/project1.lps

@@ -21,8 +21,8 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="159"/>
-        <CursorPos X="42" Y="182"/>
+        <TopLine Value="163"/>
+        <CursorPos X="83" Y="190"/>
         <UsageCount Value="63"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -52,10 +52,6 @@
       </Unit>
     </Units>
     <JumpHistory HistoryIndex="29">
-      <Position>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="779" Column="70" TopLine="764"/>
-      </Position>
       <Position>
         <Filename Value="unit1.pas"/>
         <Caret Line="781" Column="70" TopLine="766"/>
@@ -172,6 +168,10 @@
         <Filename Value="unit1.pas"/>
         <Caret Line="1090" Column="45" TopLine="1086"/>
       </Position>
+      <Position>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="10" Column="43"/>
+      </Position>
     </JumpHistory>
     <RunParams>
       <FormatVersion Value="2"/>

backup/unit1.lfm

@@ -885,7 +885,7 @@ object Form1: TForm1
         Height = 25
         Top = 240
         Width = 230
-        Caption = 'Export Process List as CSV File'
+        Caption = 'Export Process List to CSV File'
         OnClick = Button17Click
         TabOrder = 3
       end

backup/unit1.pas

@@ -7,7 +7,7 @@ interface
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, ExtCtrls,
   Grids, LazFileUtils, LCLIntf, ClipBrd, StdCtrls, Spin, Windows, jwatlhelp32,
-  ShellApi, Process, Unit2, IniFiles;
+  ShellApi, Process, Unit2, IniFiles, base64;
 
 type
 
@@ -187,7 +187,7 @@   TForm1 = class(TForm)
                     ' * Added Copy Indicator for displayed Handle.' + LineEnding + 
                     ' * Added closing confirmation Dialog if blocking is enabled.' + LineEnding +
                     ' * Improved Scrolling with the Process List.' + LineEnding +
-                    ' * WIP: Replaced Clear Password with SHA-512 Hash.' + LineEnding +
+                    ' * Replaced Clear Password with Base64. More is out of Scope.' + LineEnding +
                     ' * Rewritten Information Section to be more usable.' + LineEnding +
                     ' * Minor visual fixes.';  //The String used for Displaying the latest Changelog
 
@@ -904,7 +904,7 @@ procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);  //Chec
 
         Settings.WriteString('Settings', 'Command Line', '"' + Edit5.Text + '"');
         Settings.WriteString('Settings', 'URL', '"' + Edit1.Text + '"');
-        Settings.WriteString('Settings', 'Password', '"' + Edit6.Text + '"');
+        Settings.WriteString('Settings', 'Password', '"' + Base64.EncodeStringBase64(Edit6.Text) + '"');
         Settings.WriteString('Settings', 'Title', '"' + Edit3.Text + '"');
         Settings.WriteString('Settings', 'Message', '"' + Edit4.Text + '"');
         Settings.WriteString('Settings', 'Running Process', '"' + Edit2.Text + '"');
@@ -977,7 +977,7 @@ procedure TForm1.FormCreate(Sender: TObject);  //Form Creation
 
       Edit5.Text := Settings.ReadString('Settings', 'Command Line', '');
       Edit1.Text := Settings.ReadString('Settings', 'URL', '');
-      Edit6.Text := Settings.ReadString('Settings', 'Password', '');
+      Edit6.Text := Base64.DecodeStringBase64(Settings.ReadString('Settings', 'Password', ''));
       Edit2.Text := Settings.ReadString('Settings', 'Running Process', '');
       Edit3.Text := Settings.ReadString('Settings', 'Title', '');
       Edit4.Text := Settings.ReadString('Settings', 'Message', '');

project1.lps

@@ -10,7 +10,7 @@
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="3"/>
         <CursorPos Y="26"/>
-        <UsageCount Value="63"/>
+        <UsageCount Value="64"/>
         <Loaded Value="True"/>
       </Unit>
       <Unit>
@@ -21,9 +21,9 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="159"/>
-        <CursorPos X="42" Y="182"/>
-        <UsageCount Value="63"/>
+        <TopLine Value="163"/>
+        <CursorPos X="82" Y="190"/>
+        <UsageCount Value="64"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit>
@@ -37,7 +37,7 @@
         <EditorIndex Value="1"/>
         <TopLine Value="45"/>
         <CursorPos X="50" Y="63"/>
-        <UsageCount Value="26"/>
+        <UsageCount Value="27"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit>
@@ -52,10 +52,6 @@
       </Unit>
     </Units>
     <JumpHistory HistoryIndex="29">
-      <Position>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="779" Column="70" TopLine="764"/>
-      </Position>
       <Position>
         <Filename Value="unit1.pas"/>
         <Caret Line="781" Column="70" TopLine="766"/>
@@ -172,6 +168,10 @@
         <Filename Value="unit1.pas"/>
         <Caret Line="1090" Column="45" TopLine="1086"/>
       </Position>
+      <Position>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="10" Column="43"/>
+      </Position>
     </JumpHistory>
     <RunParams>
       <FormatVersion Value="2"/>

unit1.pas

@@ -7,7 +7,7 @@ interface
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, ExtCtrls,
   Grids, LazFileUtils, LCLIntf, ClipBrd, StdCtrls, Spin, Windows, jwatlhelp32,
-  ShellApi, Process, Unit2, IniFiles;
+  ShellApi, Process, Unit2, IniFiles, base64;
 
 type
 
@@ -187,7 +187,7 @@   TForm1 = class(TForm)
                     ' * Added Copy Indicator for displayed Handle.' + LineEnding + 
                     ' * Added closing confirmation Dialog if blocking is enabled.' + LineEnding +
                     ' * Improved Scrolling with the Process List.' + LineEnding +
-                    ' * WIP: Replaced Clear Password with SHA-512 Hash.' + LineEnding +
+                    ' * Encoded Clear Password with Base64. More is out of Scope.' + LineEnding +
                     ' * Rewritten Information Section to be more usable.' + LineEnding +
                     ' * Minor visual fixes.';  //The String used for Displaying the latest Changelog
 
@@ -904,7 +904,7 @@ procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);  //Chec
 
         Settings.WriteString('Settings', 'Command Line', '"' + Edit5.Text + '"');
         Settings.WriteString('Settings', 'URL', '"' + Edit1.Text + '"');
-        Settings.WriteString('Settings', 'Password', '"' + Edit6.Text + '"');
+        Settings.WriteString('Settings', 'Password', '"' + Base64.EncodeStringBase64(Edit6.Text) + '"');
         Settings.WriteString('Settings', 'Title', '"' + Edit3.Text + '"');
         Settings.WriteString('Settings', 'Message', '"' + Edit4.Text + '"');
         Settings.WriteString('Settings', 'Running Process', '"' + Edit2.Text + '"');
@@ -977,7 +977,7 @@ procedure TForm1.FormCreate(Sender: TObject);  //Form Creation
 
       Edit5.Text := Settings.ReadString('Settings', 'Command Line', '');
       Edit1.Text := Settings.ReadString('Settings', 'URL', '');
-      Edit6.Text := Settings.ReadString('Settings', 'Password', '');
+      Edit6.Text := Base64.DecodeStringBase64(Settings.ReadString('Settings', 'Password', ''));
       Edit2.Text := Settings.ReadString('Settings', 'Running Process', '');
       Edit3.Text := Settings.ReadString('Settings', 'Title', '');
       Edit4.Text := Settings.ReadString('Settings', 'Message', '');