[add] Source files added

.gitignore

@@ -0,0 +1,2 @@
+# Generated by Windows
+Thumbs.db

Encode.pas

@@ -0,0 +1,111 @@
+{CHARACTER ENCODING UNIT
+(Second Edition)
+Written by: Robert Abraham;
+Date: 2010/01/10.}
+unit Encode;
+
+interface
+
+function GetCharCode(c: Char; FullAscii: Boolean): Integer;
+function GetChar(Code: Integer; FullAscii: Boolean): Char;
+function Encodable(c: Char; FullAscii: Boolean): Boolean;
+
+implementation
+
+function GetCharCode(c: Char; FullAscii: Boolean): Integer;
+Var
+  n,m : Integer;
+Begin
+{ 0-9: 48-57;
+  A-Z: 65-90;
+  a-z: 97-122}
+m:=0;
+If Encodable(c, FullAscii) then
+Begin
+n:=Ord(c);
+If FullAscii=False then
+Begin
+  If (n>=48) and (n<=57) then
+    m:=n-48
+  Else
+    If (n>=65) and (n<=90) then
+      m:=(n-65)+10
+    Else
+      If (n>=97) and (n<=122) then
+        m:=((n-97)+10)+26
+      Else
+        m:=30;
+  If m<0 then
+    m:=0
+  Else
+    If m>61 then
+      m:=61;
+end
+Else
+m:=n;
+end;
+GetCharCode:=m;
+end;
+
+function GetChar(Code: Integer; FullAscii: Boolean): Char;
+Var
+  n : Integer;
+  NORM: Integer;
+  RES1 : Char;
+Begin
+{ 0-9: 48-57;
+  A-Z: 65-90;
+  a-z: 97-122}
+RES1:=('A');
+n:=0;
+//Secure Values
+If FullAscii=False then
+Begin
+NORM:=(ABS(Code) mod 62);
+If Code<0 then
+  Code:=(ABS(62-NORM) mod 62)
+Else
+  If Code>61 then
+    Code:=NORM;
+//Convert Number to Character
+If Code<=9 then
+  n:=48+Code
+Else
+  If Code<=35 then
+    n:=65+(Code-10)
+  Else
+    n:=97+(Code-36);
+If n<0 then
+  n:=0
+Else
+  If n>255 then
+    n:=255;
+end
+Else
+Begin
+NORM:=(ABS(Code) mod 256);
+If Code<0 then
+  Code:=(ABS(256-NORM) mod 256)
+Else
+  If Code>255 then
+    Code:=NORM;
+n:=Code;
+end;
+RES1:=Chr(n);
+GetChar:=RES1;
+end;
+
+function Encodable(c: Char; FullAscii: Boolean): Boolean;
+Var
+  RES1: Boolean;
+  n: Integer;
+Begin
+n:=Ord(c);
+If (((n>=48) and (n<=57)) or ((n>=65) and (n<=90)) or ((n>=97) and (n<=122))) or (FullAscii=True) then
+RES1:=True
+Else
+RES1:=False;
+Encodable:=RES1;
+end;
+
+end.

GenPass.cfg

@@ -0,0 +1,38 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"c:\program files\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST

GenPass.dof

@@ -0,0 +1,139 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOffice2k
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=C:\Program Files\Borland\Delphi7\Bin\
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=1
+MajorVer=1
+MinorVer=0
+Release=0
+Build=11
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=Robert Abraham
+FileDescription=Generate random passwords
+FileVersion=1.0.0.11
+InternalName=GenPass
+LegalCopyright=Robert Abraham
+LegalTrademarks=GenPass
+OriginalFilename=GenPass.exe
+ProductName=GenPass - Password Generator
+ProductVersion=1.0
+Comments=This tool lets you generate random passwords.
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;