diff --git a/README.md b/README.md
index 18a54e1..71aee99 100644
--- a/README.md
+++ b/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.
 
diff --git a/backup/project1.lps b/backup/project1.lps
index 0deac1d..7cc5d8b 100644
--- a/backup/project1.lps
+++ b/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"/>
diff --git a/backup/unit1.lfm b/backup/unit1.lfm
index 02d995f..5edfa65 100644
--- a/backup/unit1.lfm
+++ b/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
diff --git a/backup/unit1.pas b/backup/unit1.pas
index e3cad0c..4ba9b87 100644
--- a/backup/unit1.pas
+++ b/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', '');
diff --git a/lib/i386-win32/libimpunit1.a b/lib/i386-win32/libimpunit1.a
index 6fc64db..003666d 100644
Binary files a/lib/i386-win32/libimpunit1.a and b/lib/i386-win32/libimpunit1.a differ
diff --git a/lib/i386-win32/unit1.o b/lib/i386-win32/unit1.o
index 6d4e1bd..4336c40 100644
Binary files a/lib/i386-win32/unit1.o and b/lib/i386-win32/unit1.o differ
diff --git a/lib/i386-win32/unit1.ppu b/lib/i386-win32/unit1.ppu
index 2f0f86e..5e6ebe9 100644
Binary files a/lib/i386-win32/unit1.ppu and b/lib/i386-win32/unit1.ppu differ
diff --git a/lib/i386-win32/unit2.ppu b/lib/i386-win32/unit2.ppu
index d15aedc..ae54f94 100644
Binary files a/lib/i386-win32/unit2.ppu and b/lib/i386-win32/unit2.ppu differ
diff --git a/project1.lps b/project1.lps
index 0deac1d..7d608d2 100644
--- a/project1.lps
+++ b/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"/>
diff --git a/unit1.pas b/unit1.pas
index e3cad0c..cda3bcd 100644
--- a/unit1.pas
+++ b/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', '');