aksdb/restemplate
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

* Replaced fphttpclient with indy10.

Browse Source 
* Added compression support
This commit is contained in:
Andreas Schneider
2015-10-04 14:14:55 +02:00
parent 610c1e4108
commit b1e455022b
1330 changed files with 338589 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
indy/testsuite/Makefile.fpc Normal file
View File

@@ -0,0 +1,18 @@
[target]
dirs=testhash
[require]
packages=indy
packagedir=../
[compiler]
unittargetdir=units/$(CPU_TARGET)-$(OS_TARGET)
options=-dUseCThreads -gl
[install]
fpcpackage=y
[rules]
runtests:
$(MAKE) -C testhash
testhash/testhash$(SRCEXEEXT)

14
indy/testsuite/testhash/Makefile.fpc Normal file
View File

@@ -0,0 +1,14 @@
[target]
programs=testhash
[require]
packages=indy
packagedir=../../
[compiler]
unittargetdir=units/$(CPU_TARGET)-$(OS_TARGET)
#For some reason, we can't use "unitdir" here. It causes some strange bugs.
#This is a workaround.
options=-dUseCThreads -gl
[install]
fpcpackage=y

257
indy/testsuite/testhash/testhash.dpr Normal file
View File

@@ -0,0 +1,257 @@
program testhash;
{$IFNDEF FPC}
{$APPTYPE CONSOLE}
{$ELSE}
{$MODE DELPHI}
{$ENDIF}
uses
IdGlobal,
IdGlobalProtocols,
IdHash,
IdHashCRC,
IdHashMessageDigest,
IdHashSHA,
{$IFNDEF CIL}
IdSSLOpenSSLHeaders,
{$ENDIF}
SysUtils;
function Test(var VTime : Cardinal; var VRes : String; AHash : TIdHash; const AVal, AExpected : String): Boolean;
var LBegin, LEnd : Cardinal;
begin
LBegin := IdGlobal.Ticks;
try
VRes := AHash.HashStringAsHex(AVal)
finally
LEnd := IdGlobal.Ticks;
VTime := IdGlobal.GetTickDiff(LBegin,Lend);
VRes := LowerCase(VRes);
end;
if AExpected = '' then
begin
Result := True;
end
else
begin
Result := UpperCase(VRes) = UpperCase(AExpected);
end;
end;
function DevideString(const A : String; const AAlign : Integer) : String;
var i, j, lLen : Integer;
begin
Result := '';
LLen := Length(a);
for I := 1 to (Length(A) div AAlign) do
begin
Result := Result + ' ';
for j := 0 to (AAlign - 1) do
begin
if (i+j) <= LLen then
begin
Result := Result + A[I+j];
end;
end;
end;
Result := Trim(Result);
end;
procedure DoTest(AHash: TIdHash; const ATestVal, AExpected: String;
const ATimes: LongWord);
var
LRes : String;
LVTime : Cardinal;
LTestStr : String;
i : Integer;
begin
if ATimes >1 then
begin
LTestStr := '';
for i := 0 to ATimes - 1 do
begin
LTestStr := LTestStr + ATestVal;
end;
end
else
begin
LTestStr := ATestVal;
end;
if ATimes >1 then
begin
//use FormatFloat to output numbers so it's printed with commas
WriteLn('Test String: "'+ATestVal+'" (multiplied by ' +FormatFloat('#,###',ATimes) + ')');
end
else
begin
WriteLn('Test String: "'+ATestVal+'"');
end;
if Test(LVTime,LRes,AHash,LTestStr,AExpected) then
begin
WriteLn('Test result: Passed');
WriteLn('Time: '+FormatFloat('#,##0',LVTime));
end
else
begin
WriteLn('Test result: !!!FAILED!!!');
end;
WriteLn('Result: '+DevideString(LRes,4));
WriteLn('Expected: '+DevideString(AExpected,4));
WriteLn('');
end;
procedure TestItCRC16(const ATestVal, AExpected:String; const ATimes : LongWord = 1);
var LH : TIdHash;
begin
LH := TIdHashCRC16.Create;
try
DoTest(LH,ATestVal,AExpected,ATimes);
finally
FreeAndNil(LH);
end;
end;
procedure TestItCRC32(const ATestVal, AExpected:String; const ATimes : LongWord = 1);
var LH : TIdHash;
begin
LH := TIdHashCRC32.Create;
try
DoTest(LH,ATestVal,AExpected,ATimes);
finally
FreeAndNil(LH);
end;
end;
procedure TestItMD2(const ATestVal, AExpected:String; const ATimes : LongWord = 1);
var LH : TIdHash;
begin
LH := TIdHashMessageDigest2.Create;
try
DoTest(LH,ATestVal,AExpected,ATimes);
finally
FreeAndNil(LH);
end;
end;
procedure TestItMD4(const ATestVal, AExpected:String; const ATimes : LongWord = 1);
var LH : TIdHash;
begin
LH := TIdHashMessageDigest4.Create;
try
DoTest(LH,ATestVal,AExpected,ATimes);
finally
FreeAndNil(LH);
end;
end;
procedure TestItMD5(const ATestVal, AExpected:String; const ATimes : LongWord = 1);
var LH : TIdHash;
begin
LH := TIdHashMessageDigest5.Create;
try
DoTest(LH,ATestVal,AExpected,ATimes);
finally
FreeAndNil(LH);
end;
end;
procedure TestItSHA1(const ATestVal, AExpected:String; const ATimes : LongWord = 1);
var LH : TIdHash;
begin
LH := TIdHashSHA1.Create;
try
DoTest(LH,ATestVal,AExpected,ATimes);
finally
FreeAndNil(LH);
end;
end;
begin
try
{ TODO -oUser -cConsole Main : Insert code here }
{$IFNDEF CIL}
IdSSLOpenSSLHeaders.Load;
{$ENDIF}
WriteLn('===');
WriteLn('CRC16 test cases - from http://users.physik.tu-muenchen.de/gammel/matpack/demos/Cryptography/MpCRC-demo.cpp - reflect_in+reflect_out');
WriteLn('===');
WriteLn('');
TestItCRC16('','0000'); // reflect_in+reflect_out
TestItCRC16('A',LowerCase('30C0')); // reflect_in+reflect_out
TestItCRC16('123456789',LowerCase('BB3D')); // reflect_in+reflect_out
WriteLn('===');
WriteLn('CRC32 test cases - from http://users.physik.tu-muenchen.de/gammel/matpack/demos/Cryptography/MpCRC-demo.cpp - reflect_in+reflect_out');
WriteLn('===');
WriteLn('');
TestItCRC32('','00000000'); // reflect_in+reflect_out
TestItCRC32('A','D3D99E8B'); // reflect_in+reflect_out
TestItCRC32('123456789','CBF43926');// reflect_in+reflect_out
WriteLn('===');
WriteLn('RFC 1319 - The MD2 Message-Digest Algorithm');
WriteLn('===');
WriteLn('');
TestItMD2('','8350e5a3e24c153df2275c9f80692773');
TestItMD2('a','32ec01ec4a6dac72c0ab96fb34c0b5d1');
TestITMD2('abc','da853b0d3f88d99b30283a69e6ded6bb');
TestItMD2('message digest','ab4f496bfb2a530b219ff33031fe06b0');
TestItMD2('abcdefghijklmnopqrstuvwxyz','4e8ddff3650292ab5a4108c3aa47940b');
TestItMD2('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789','da33def2a42df13975352846c30338cd');
TestItMD2('12345678901234567890123456789012345678901234567890123456789012345678901234567890','d5976f79d83d3a0dc9806c3c66f3efd8');
WriteLn('===');
WriteLn('RFC 1320 - The MD4 Message-Digest Algorithm');
WriteLn('===');
WriteLn('');
TestItMD4('','31d6cfe0d16ae931b73c59d7e0c089c0');
TestItMD4('a','bde52cb31de33e46245e05fbdbd6fb24');
TestItMD4('abc','a448017aaf21d8525fc10ae87aa6729d');
TestItMD4('message digest','d9130a8164549fe818874806e1c7014b');
TestItMD4('abcdefghijklmnopqrstuvwxyz','d79e1c308aa5bbcdeea8ed63df412da9');
TestItMD4('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789','043f8582f241db351ce627e153e7f0e4');
TestItMD4('12345678901234567890123456789012345678901234567890123456789012345678901234567890','e33b4ddc9c38f2199c3e7b164fcc0536');
WriteLn('===');
WriteLn('RFC 1321 - The MD5 Message-Digest Algorithm');
WriteLn('===');
WriteLn('');
TestItMD5('','d41d8cd98f00b204e9800998ecf8427e');
TestItMD5('a','0cc175b9c0f1b6a831c399e269772661');
TestItMD5('abc','900150983cd24fb0d6963f7d28e17f72');
TestItMD5('message digest','f96b697d7cb7938d525a2f31aaf161d0');
TestItMD5('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789','d174ab98d277d9f5a5611c2c9f419d9f');
TestItMD5('12345678901234567890123456789012345678901234567890123456789012345678901234567890','57edf4a22be3c955ac49da2e2107b67a');
WriteLn('');
WriteLn('===');
WriteLn('RFC 3174 - US Secure Hash Algorithm 1 (SHA1)');
WriteLn('===');
WriteLn('');
TestItSHA1('abc',Lowercase('A9993E364706816ABA3E25717850C26C9CD0D89D'));
TestItSHA1('abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq',Lowercase('84983E441C3BD26EBAAE4AA1F95129E5E54670F1'));
TestItSHA1('a',Lowercase('34AA973CD4C4DAA4F61EEB2BDBAD27316534016F'),1000000);
TestItSHA1('0123456701234567012345670123456701234567012345670123456701234567',LowerCase('DEA356A2CDDD90C7A7ECEDC5EBB563934F460452'),10);
WriteLn('===');
WriteLn('Speed hashing using abc"');
WriteLn('===');
WriteLn('MD2');
TestItMD2('abc','',1000000);
WriteLn('MD4');
TestItMD4('abc','',1000000);
WriteLn('MD5');
TestItMD5('abc','',1000000);
WriteLn('SHA1');
TestItSHA1('abc','',1000000);
except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
ReadLn;
end.

88
indy/testsuite/testhash/testhash.dproj Normal file
View File

@@ -0,0 +1,88 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{33698d5a-5dd9-4588-ad28-50df49a7b6b6}</ProjectGuid>
<MainSource>testhash.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCCIL</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>testhash.exe</DCC_DependencyCheckOutputName>
<DCC_EnabledPackages>true</DCC_EnabledPackages>
<DCC_UsePackage>C:\Windows\Microsoft.NET\Framework\v2.0.50727\System.Drawing.dll</DCC_UsePackage>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
<DCC_Define>DEBUG</DCC_Define>
<DCC_Platform>x86</DCC_Platform>
<DCC_NameSpace>Borland.Vcl</DCC_NameSpace>
<DCC_UnitSearchPath>C:\Windows\Microsoft.NET\Framework\v2.0.50727</DCC_UnitSearchPath>
<DCC_ResourcePath>C:\Windows\Microsoft.NET\Framework\v2.0.50727</DCC_ResourcePath>
<DCC_IncludePath>C:\Windows\Microsoft.NET\Framework\v2.0.50727</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>DelphiDotNet.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject xmlns=""> <DelphiDotNet.Personality> <Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<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">1033</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">testhash.dpr</Source>
</Source>
</DelphiDotNet.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="testhash.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
</ItemGroup>
<ItemGroup>
<Reference Include="$(SystemRoot)\Microsoft.NET\Framework\v2.0.50727\System.Drawing.dll">
<AssemblyName>System.Drawing</AssemblyName>
<Version>2.0.0.0</Version>
<HintPath>$(SystemRoot)\Microsoft.NET\Framework\v2.0.50727\System.Drawing.dll</HintPath>
<AssemblyTag>$(SystemRoot)\Microsoft.NET\Framework\v2.0.50727\System.Drawing.dll</AssemblyTag>
<LinkUnits>False</LinkUnits>
</Reference>
</ItemGroup>
</Project>