Full import with history from bitbucket Hg repo

.hgignore

@@ -0,0 +1,33 @@
+syntax: glob
+# This line is a comment, and will be skipped.
+# Empty lines are skipped too.
+
+# Backup files left behind by the editor.
+*.~*~
+*.dcu
+*.exe
+*.dll
+*.local
+*.identcache
+*.2007
+*.aqt
+dunit.ini
+*.tvsconfig
+*.log
+*.compiled
+*.obj
+*.o
+*.ppu
+*.bak
+*.err
+*.out
+*.lps
+*.layout
+*.depend
+*.rst
+*.save
+*.aes
+*.rc4
+*.stat
+*.otares
+*_MemoryManager_EventLog.txt

Demos/ByteArray/DXE/ByteArrDemo.dpr

@@ -0,0 +1,19 @@
+program ByteArrDemo;
+
+{$APPTYPE CONSOLE}
+
+uses
+  SysUtils,
+  tfBytes,
+  demo in '..\Source\demo.pas';
+
+begin
+  ReportMemoryLeaksOnShutdown:= True;
+  try
+    RunDemo;
+  except
+    on E: Exception do
+      Writeln(E.ClassName, ': ', E.Message);
+  end;
+  Readln;
+end.

Demos/ByteArray/DXE/ByteArrDemo.dproj

@@ -0,0 +1,110 @@
+	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{D8500CCF-75EC-4F2A-8647-36503B5B1852}</ProjectGuid>
+			<MainSource>ByteArrDemo.dpr</MainSource>
+			<ProjectVersion>12.3</ProjectVersion>
+			<Base>True</Base>
+			<Config Condition="'$(Config)'==''">Debug</Config>
+			<Platform>Win32</Platform>
+			<AppType>Console</AppType>
+			<FrameworkType>None</FrameworkType>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
+			<Cfg_1>true</Cfg_1>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
+			<Cfg_2>true</Cfg_2>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DcuOutput>.\$(Config)\$(Platform)</DCC_DcuOutput>
+			<DCC_UnitSearchPath>$(BDSCOMMONDIR)\TForge\$(Config)\$(Platform);$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;$(DCC_UnitAlias)</DCC_UnitAlias>
+			<DCC_ExeOutput>.\$(Config)\$(Platform)</DCC_ExeOutput>
+			<DCC_N>false</DCC_N>
+			<DCC_S>false</DCC_S>
+			<DCC_K>false</DCC_K>
+			<DCC_E>false</DCC_E>
+			<DCC_F>false</DCC_F>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Cfg_1)'!=''">
+			<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+			<DCC_Optimize>false</DCC_Optimize>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Cfg_2)'!=''">
+			<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+			<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+			<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+			<DCC_DebugInformation>false</DCC_DebugInformation>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="ByteArrDemo.dpr">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="..\Source\demo.pas"/>
+			<BuildConfiguration Include="Release">
+				<Key>Cfg_2</Key>
+				<CfgParent>Base</CfgParent>
+			</BuildConfiguration>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+			<BuildConfiguration Include="Debug">
+				<Key>Cfg_1</Key>
+				<CfgParent>Base</CfgParent>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
+		<Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType/>
+			<BorlandProject>
+				<Delphi.Personality>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1049</VersionInfo>
+						<VersionInfo Name="CodePage">1251</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName"/>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName"/>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="Comments"/>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">ByteArrDemo.dpr</Source>
+					</Source>
+				</Delphi.Personality>
+				<Platforms>
+					<Platform value="Win32">True</Platform>
+				</Platforms>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>

Demos/ByteArray/FPC/ByteArrDemo.lpi

@@ -0,0 +1,80 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <ProjectOptions>
+    <Version Value="9"/>
+    <PathDelim Value="\"/>
+    <General>
+      <Flags>
+        <MainUnitHasCreateFormStatements Value="False"/>
+        <MainUnitHasTitleStatement Value="False"/>
+      </Flags>
+      <SessionStorage Value="InProjectDir"/>
+      <MainUnit Value="0"/>
+      <Title Value="ByteArrDemo"/>
+      <UseAppBundle Value="False"/>
+      <ResourceType Value="res"/>
+    </General>
+    <i18n>
+      <EnableI18N LFM="False"/>
+    </i18n>
+    <VersionInfo>
+      <StringTable ProductVersion=""/>
+    </VersionInfo>
+    <BuildModes Count="1">
+      <Item1 Name="Default" Default="True"/>
+    </BuildModes>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+      <ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+      </local>
+    </RunParams>
+    <Units Count="2">
+      <Unit0>
+        <Filename Value="ByteArrDemo.lpr"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="ByteArrDemo"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="..\Source\demo.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="Demo"/>
+      </Unit1>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="11"/>
+    <PathDelim Value="\"/>
+    <Target>
+      <Filename Value="ByteArrDemo"/>
+    </Target>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)"/>
+      <OtherUnitFiles Value="..\Source;C:\bin\FPC\TForge\$(TargetCPU)-$(TargetOS)\"/>
+      <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
+    </SearchPaths>
+    <Other>
+      <CompilerMessages>
+        <MsgFileName Value=""/>
+      </CompilerMessages>
+      <CompilerPath Value="$(CompPath)"/>
+    </Other>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions Count="3">
+      <Item1>
+        <Name Value="EAbort"/>
+      </Item1>
+      <Item2>
+        <Name Value="ECodetoolError"/>
+      </Item2>
+      <Item3>
+        <Name Value="EFOpenError"/>
+      </Item3>
+    </Exceptions>
+  </Debugging>
+</CONFIG>

Demos/ByteArray/FPC/ByteArrDemo.lpr

@@ -0,0 +1,21 @@
+program ByteArrDemo;
+
+{$mode objfpc}{$H+}
+
+uses
+//  {$IFDEF UNIX}{$IFDEF UseCThreads}
+//  cthreads,
+//  {$ENDIF}{$ENDIF}
+  SysUtils, Classes, Demo
+  { you can add units after this };
+
+begin
+  try
+    RunDemo;
+  except
+    on E: Exception do
+      Writeln(E.ClassName, ': ', E.Message);
+  end;
+  Readln;
+end.
+

Demos/ByteArray/Source/demo.pas

@@ -0,0 +1,81 @@
+unit Demo;
+
+{$IFDEF FPC}
+{$mode delphi}
+{$ENDIF}
+
+interface
+
+uses
+  Classes, SysUtils, tfBytes;
+
+procedure RunDemo;
+
+implementation
+
+procedure RunDemo;
+var
+  A1, A2, A3: ByteArray;
+  P: PByte;
+  I, L: Integer;
+  Sum: Integer;
+  B: Byte;
+
+begin
+// initialization examples
+  A1:= ByteArray(1);
+  A2:= ByteArray.FromBytes([2, 3, 4]);
+
+{   also possible
+  A2:= ByteArray.Allocate(3);
+  A2[0]:= 2;
+  A2[1]:= 3;
+  A2[2]:= 4;
+
+    or else (Delphi only; FPC 2.6 does not support array constructors):
+  A2:= TBytes.Create(2, 3, 4);
+}
+
+  Writeln('A1 = ', A1.ToString, ';  Hash: ', IntToHex(A1.HashCode, 8), ';  Len: ', A1.Len);
+  Writeln('A2 = ', A2.ToString, ';  Hash: ', IntToHex(A2.HashCode, 8), ';  Len: ', A2.Len);
+
+// concatenation
+  A3:= A1 + A2;
+  Writeln('A3 = A1 + A2 = ', A3.ToString);
+
+// indexed access to array elements:
+  Sum:= 0;
+  for I:= 0 to A3.Len - 1 do begin
+    Inc(Sum, A3[I]);
+  end;
+  Writeln('Sum of elements = ', Sum);
+
+// for .. in iteration:
+  Sum:= 0;
+  for B in A3 do begin
+    Inc(Sum, B);
+  end;
+  Writeln('Sum of elements = ', Sum);
+
+// fast access to array elements:
+  P:= A3.RawData;
+  L:= A3.Len;
+  Sum:= 0;
+  while (L > 0) do begin
+    Inc(Sum, P^);
+    Inc(P);
+    Dec(L);
+  end;
+  Writeln('Sum of elements = ', Sum);
+
+// bitwise 'xor':
+  Writeln('A2 xor A3 = ', (A2 xor A3).ToString);
+
+// fluent coding
+  Writeln(ByteArray.FromText('ABCDEFGHIJ').Insert(3,
+    ByteArray.FromText(' 123 ')).Reverse.ToText);
+
+end;
+
+end.
+

Demos/Ciphers/CipherDemo/DXE/CipherDemo.dpr

@@ -0,0 +1,41 @@
+program CipherDemo;
+
+{$APPTYPE CONSOLE}
+
+uses
+  SysUtils,
+  tfBytes,
+  Demos in '..\Source\Demos.pas';
+
+begin
+  try
+    ECBTest;
+    CBCTest;
+    CTRTest;
+    CBCDemo(ByteArray.ParseHex(PlainText1),
+            ByteArray.ParseHex(HexIV),
+            ByteArray.ParseHex(HexKey));
+    CTRDemo(ByteArray.ParseHex(PlainText1),
+            ByteArray.ParseHex(HexIV),
+            ByteArray.ParseHex(HexKey));
+    CBCFileDemo(ParamStr(0),
+            ByteArray.ParseHex(HexIV),
+            ByteArray.ParseHex(HexKey));
+    CBCFileDemo2(ParamStr(0),
+            ByteArray.ParseHex(HexIV),
+            ByteArray.ParseHex(HexKey));
+    BlockDemo(ByteArray.ParseHex(PlainText1).Copy(1, 8),
+              ByteArray.ParseHex(HexKey).Copy(1, 8));
+    RC5BlockDemo(ByteArray.ParseHex(PlainText1),
+                 ByteArray.ParseHex(HexKey));
+    RandDemo(ByteArray.ParseHex(HexKey));
+    RC4FileDemo(ParamStr(0),
+                ByteArray.ParseHex(HexKey));
+  except
+    on E: Exception do
+      Writeln(E.ClassName, ': ', E.Message);
+  end;
+  Writeln;
+  Write('Press Enter ..');
+  Readln;
+end.