Стартовый пул

2024-04-02 08:46:59 +03:00
parent fd57fffd3a
commit 3bb34d000b
5591 changed files with 3291734 additions and 0 deletions
--- a/CriptionAndHash/data/cah_md5.pas
+++ b/CriptionAndHash/data/cah_md5.pas
@@ -0,0 +1,327 @@
+unit cah_md5;
+interface
+uses Windows, SysUtils, Classes;
+type
+ PMD5Digest = ^TMD5Digest;
+ TMD5Digest = record
+  case Integer of
+   0: (A, B, C, D: LongInt);
+   1: (v: array [0..15] of Byte);
+  end;
+function MD5String(const S: String): TMD5Digest; STDCALL;
+function MD5File(const FileName: String): TMD5Digest; STDCALL;
+function MD5Stream(const Stream: TStream): TMD5Digest; STDCALL;
+function MD5Buffer(const Buffer; Size: Integer): TMD5Digest; STDCALL;
+function MD5DigestToStr(const Digest: TMD5Digest): String; STDCALL;
+function MD5DigestCompare(const Digest1, Digest2: TMD5Digest): Boolean; STDCALL;
+implementation
+type
+ UINT4 = LongWord;
+ PArray4UINT4 = ^TArray4UINT4;
+ TArray4UINT4 = array [0..3] of UINT4;
+ PArray2UINT4 = ^TArray2UINT4;
+ TArray2UINT4 = array [0..1] of UINT4;
+ PArray16Byte = ^TArray16Byte;
+ TArray16Byte = array [0..15] of Byte;
+ PArray64Byte = ^TArray64Byte;
+ TArray64Byte = array [0..63] of Byte;
+ PByteArray = ^TByteArray;
+ TByteArray = array [0..0] of Byte;
+ PUINT4Array = ^TUINT4Array;
+ TUINT4Array = array [0..0] of UINT4;
+ PMD5Context = ^TMD5Context;
+ TMD5Context = record
+  state: TArray4UINT4;
+  count: TArray2UINT4;
+  buffer: TArray64Byte;
+  end;
+const
+  S11 = 7;
+  S12 = 12;
+  S13 = 17;
+  S14 = 22;
+  S21 = 5;
+  S22 = 9;
+  S23 = 14;
+  S24 = 20;
+  S31 = 4;
+  S32 = 11;
+  S33 = 16;
+  S34 = 23;
+  S41 = 6;
+  S42 = 10;
+  S43 = 15;
+  S44 = 21;
+var Padding: TArray64Byte =
+ ($80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
+function _F(x, y, z: UINT4): UINT4;
+begin
+Result:= (((x) and (y)) or ((not x) and (z)));
+end;
+function _G(x, y, z: UINT4): UINT4;
+begin
+Result:= (((x) and (z)) or ((y) and (not z)));
+end;
+function _H(x, y, z: UINT4): UINT4;
+begin
+Result:= ((x) xor (y) xor (z));
+end;
+function _I(x, y, z: UINT4): UINT4;
+begin
+Result:= ((y) xor ((x) or ( not z)));
+end;
+function ROTATE_LEFT(x, n: UINT4): UINT4;
+begin
+Result:= (((x) shl (n)) or ((x) shr (32-(n))));
+end;
+procedure FF(var a: UINT4; b, c, d, x, s, ac: UINT4);
+begin
+a:= a + _F(b, c, d) + x + ac;
+a:= ROTATE_LEFT (a, s);
+a:= a + b;
+end;
+procedure GG(var a: UINT4; b, c, d, x, s, ac: UINT4);
+begin
+a:= a + _G(b, c, d) + x + ac;
+a:= ROTATE_LEFT(a, s);
+a:= a + b;
+end;
+procedure HH(var a: UINT4; b, c, d, x, s, ac: UINT4);
+begin
+a:= a + _H(b, c, d) + x + ac;
+a:= ROTATE_LEFT(a, s);
+a:= a + b;
+end;
+procedure II(var a: UINT4; b, c, d, x, s, ac: UINT4);
+begin
+a:= a + _I(b, c, d) + x + ac;
+a:= ROTATE_LEFT(a, s);
+a:= a + b;
+end;
+procedure MD5Encode(Output: PByteArray; Input: PUINT4Array; Len: LongWord);
+var i, j: LongWord;
+begin
+j:=0;
+i:=0;
+while j < Len do
+ begin
+ output[j]:= Byte(input[i] and $ff);
+ output[j+1]:= Byte((input[i] shr 8) and $ff);
+ output[j+2]:= Byte((input[i] shr 16) and $ff);
+ output[j+3]:= Byte((input[i] shr 24) and $ff);
+ Inc(j, 4);
+ Inc(i);
+ end;
+end;
+procedure MD5Decode(Output: PUINT4Array; Input: PByteArray; Len: LongWord);
+var i, j: LongWord;
+begin
+j:=0;
+i:=0;
+while j < Len do
+ begin
+ Output[i] := UINT4(input[j]) or (UINT4(input[j+1]) shl 8) or (UINT4(input[j+2]) shl 16) or ( UINT4(input[j+3]) shl 24);
+ Inc(j, 4);
+ Inc(i);
+ end;
+end;
+procedure MD5_memcpy(Output: PByteArray; Input: PByteArray; Len: LongWord);
+begin
+Move(Input^, Output^, Len);
+end;
+procedure MD5_memset(Output: PByteArray; Value: Integer; Len: LongWord);
+begin
+FillChar(Output^, Len, Byte(Value));
+end;
+procedure MD5Transform(State: PArray4UINT4; Buffer: PArray64Byte);
+var a, b, c, d: UINT4;
+    x: array[0..15] of UINT4;
+begin
+a:= State[0]; b:=State[1]; c:=State[2]; d:=State[3];
+MD5Decode(PUINT4Array(@x), PByteArray(Buffer), 64);
+FF (a, b, c, d, x[ 0], S11, $d76aa478);
+FF (d, a, b, c, x[ 1], S12, $e8c7b756);
+FF (c, d, a, b, x[ 2], S13, $242070db);
+FF (b, c, d, a, x[ 3], S14, $c1bdceee);
+FF (a, b, c, d, x[ 4], S11, $f57c0faf);
+FF (d, a, b, c, x[ 5], S12, $4787c62a);
+FF (c, d, a, b, x[ 6], S13, $a8304613);
+FF (b, c, d, a, x[ 7], S14, $fd469501);
+FF (a, b, c, d, x[ 8], S11, $698098d8);
+FF (d, a, b, c, x[ 9], S12, $8b44f7af);
+FF (c, d, a, b, x[10], S13, $ffff5bb1);
+FF (b, c, d, a, x[11], S14, $895cd7be);
+FF (a, b, c, d, x[12], S11, $6b901122);
+FF (d, a, b, c, x[13], S12, $fd987193);
+FF (c, d, a, b, x[14], S13, $a679438e);
+FF (b, c, d, a, x[15], S14, $49b40821);
+GG (a, b, c, d, x[ 1], S21, $f61e2562);
+GG (d, a, b, c, x[ 6], S22, $c040b340);
+GG (c, d, a, b, x[11], S23, $265e5a51);
+GG (b, c, d, a, x[ 0], S24, $e9b6c7aa);
+GG (a, b, c, d, x[ 5], S21, $d62f105d);
+GG (d, a, b, c, x[10], S22, $2441453);
+GG (c, d, a, b, x[15], S23, $d8a1e681);
+GG (b, c, d, a, x[ 4], S24, $e7d3fbc8);
+GG (a, b, c, d, x[ 9], S21, $21e1cde6);
+GG (d, a, b, c, x[14], S22, $c33707d6);
+GG (c, d, a, b, x[ 3], S23, $f4d50d87);
+GG (b, c, d, a, x[ 8], S24, $455a14ed);
+GG (a, b, c, d, x[13], S21, $a9e3e905);
+GG (d, a, b, c, x[ 2], S22, $fcefa3f8);
+GG (c, d, a, b, x[ 7], S23, $676f02d9);
+GG (b, c, d, a, x[12], S24, $8d2a4c8a);
+HH (a, b, c, d, x[ 5], S31, $fffa3942);
+HH (d, a, b, c, x[ 8], S32, $8771f681);
+HH (c, d, a, b, x[11], S33, $6d9d6122);
+HH (b, c, d, a, x[14], S34, $fde5380c);
+HH (a, b, c, d, x[ 1], S31, $a4beea44);
+HH (d, a, b, c, x[ 4], S32, $4bdecfa9);
+HH (c, d, a, b, x[ 7], S33, $f6bb4b60);
+HH (b, c, d, a, x[10], S34, $bebfbc70);
+HH (a, b, c, d, x[13], S31, $289b7ec6);
+HH (d, a, b, c, x[ 0], S32, $eaa127fa);
+HH (c, d, a, b, x[ 3], S33, $d4ef3085);
+HH (b, c, d, a, x[ 6], S34, $4881d05);
+HH (a, b, c, d, x[ 9], S31, $d9d4d039);
+HH (d, a, b, c, x[12], S32, $e6db99e5);
+HH (c, d, a, b, x[15], S33, $1fa27cf8);
+HH (b, c, d, a, x[ 2], S34, $c4ac5665);
+II (a, b, c, d, x[ 0], S41, $f4292244);
+II (d, a, b, c, x[ 7], S42, $432aff97);
+II (c, d, a, b, x[14], S43, $ab9423a7);
+II (b, c, d, a, x[ 5], S44, $fc93a039);
+II (a, b, c, d, x[12], S41, $655b59c3);
+II (d, a, b, c, x[ 3], S42, $8f0ccc92);
+II (c, d, a, b, x[10], S43, $ffeff47d);
+II (b, c, d, a, x[ 1], S44, $85845dd1);
+II (a, b, c, d, x[ 8], S41, $6fa87e4f);
+II (d, a, b, c, x[15], S42, $fe2ce6e0);
+II (c, d, a, b, x[ 6], S43, $a3014314);
+II (b, c, d, a, x[13], S44, $4e0811a1);
+II (a, b, c, d, x[ 4], S41, $f7537e82);
+II (d, a, b, c, x[11], S42, $bd3af235);
+II (c, d, a, b, x[ 2], S43, $2ad7d2bb);
+II (b, c, d, a, x[ 9], S44, $eb86d391);
+Inc(State[0], a);
+Inc(State[1], b);
+Inc(State[2], c);
+Inc(State[3], d);
+MD5_memset (PByteArray(@x), 0, SizeOf (x));
+end;
+procedure MD5Init(var Context: TMD5Context);
+begin
+FillChar(Context, SizeOf(Context), 0);
+Context.state[0]:= $67452301;
+Context.state[1]:= $efcdab89;
+Context.state[2]:= $98badcfe;
+Context.state[3]:= $10325476;
+end;
+procedure MD5Update(var Context: TMD5Context; Input: PByteArray; InputLen: LongWord);
+var i, index, partLen: LongWord;
+begin
+index:= LongWord( (context.count[0] shr 3) and $3F);
+Inc(Context.count[0], UINT4(InputLen) shl 3);
+if Context.count[0] < UINT4(InputLen) shl 3 then
+ Inc(Context.count[1]);
+Inc(Context.count[1], UINT4(InputLen) shr 29);
+partLen:= 64 - index;
+if inputLen >= partLen then
+ begin
+ MD5_memcpy(PByteArray(@Context.buffer[index]), Input, PartLen);
+ MD5Transform(@Context.state, @Context.buffer);
+ i := partLen;
+ while i + 63 < inputLen do
+  begin
+  MD5Transform(@Context.state, PArray64Byte(@Input[i]));
+  Inc(i, 64);
+  end;
+ index:= 0;
+ end
+ else
+ i:=0;
+MD5_memcpy(PByteArray(@Context.buffer[index]), PByteArray(@Input[i]), inputLen - i);
+end;
+procedure MD5Final(var Digest: TMD5Digest; var Context: TMD5Context);
+var bits: array [0..7] of Byte;
+    index, padLen: LongWord;
+begin
+MD5Encode(PByteArray(@bits), PUINT4Array(@Context.count), 8);
+index:= LongWord( (Context.count[0] shr 3) and $3F);
+if index < 56 then
+ padLen := 56 - index
+ else
+ padLen := 120 - index;
+MD5Update(Context, PByteArray(@PADDING), padLen);
+MD5Update(Context, PByteArray(@Bits), 8);
+MD5Encode(PByteArray(@Digest), PUINT4Array(@Context.state), 16);
+MD5_memset(PByteArray(@Context), 0, SizeOf(Context));
+end;
+function MD5DigestToStr(const Digest: TMD5Digest): string;
+var i: Integer;
+begin
+Result:= '';
+for i:= 0 to 15 do
+ Result:= Result + IntToHex(Digest.v[i], 2);
+end;
+function MD5String(const S: string): TMD5Digest;
+begin
+Result:= MD5Buffer(PChar(S)^, Length(S));
+end;
+function MD5File(const FileName: string): TMD5Digest;
+var F: TFileStream;
+begin
+F:= TFileStream.Create(FileName, fmOpenRead + fmShareDenyRead);
+try
+ Result:= MD5Stream(F);
+ finally
+ F.Free;
+ end;
+end;
+function MD5Stream(const Stream: TStream): TMD5Digest;
+var Context: TMD5Context;
+    Buffer: array[0..4095] of Byte;
+    Size: Integer;
+    ReadBytes: Integer;
+    TotalBytes: Integer;
+    SavePos: Integer;
+begin
+MD5Init(Context);
+Size:= Stream.Size;
+SavePos:= Stream.Position;
+TotalBytes:= 0;
+try
+ Stream.Seek(0, soFromBeginning);
+ repeat
+  ReadBytes:= Stream.Read(Buffer, SizeOf(Buffer));
+  Inc(TotalBytes, ReadBytes);
+  MD5Update(Context, @Buffer, ReadBytes);
+  until (ReadBytes = 0) or (TotalBytes = Size);
+ finally
+ Stream.Seek(SavePos, soFromBeginning);
+ end;
+MD5Final(Result, Context);
+end;
+function MD5Buffer(const Buffer; Size: Integer): TMD5Digest;
+var Context: TMD5Context;
+begin
+MD5Init(Context);
+MD5Update(Context, PByteArray(@Buffer), Size);
+MD5Final(Result, Context);
+end;
+function MD5DigestCompare(const Digest1, Digest2: TMD5Digest): Boolean;
+begin
+Result:= False;
+if Digest1.A <> Digest2.A then
+ Exit;
+if Digest1.B <> Digest2.B then
+ Exit;
+if Digest1.C <> Digest2.C then
+ Exit;
+if Digest1.D <> Digest2.D then
+ Exit;
+Result:= True;
+end;
+end.
--- a/CriptionAndHash/data/cah_rc4.pas
+++ b/CriptionAndHash/data/cah_rc4.pas
@@ -0,0 +1,98 @@
+unit cah_rc4;
+interface
+{$R-} {$Q-}
+uses SysUtils, Classes;
+type
+  TRC4KEY = record
+   state: array[0..255] of Byte;
+   x: Byte;
+   y: Byte;
+   end;
+  ERC4Error = class(Exception);
+procedure MakeRC4KeyByPassword(const Pass: PByte; const PassLen: Integer; out Key: TRC4Key); OVERLOAD;
+procedure MakeRC4KeyByPassword(const Pass: String; out Key: TRC4Key); OVERLOAD;
+procedure rc4transform(Buffer: PByte; const BufferLen: Integer; Key: TRC4Key); OVERLOAD;
+procedure rc4transform(var Buffer: String; Key: TRC4Key); OVERLOAD;
+procedure rc4transform(Source, Dest: TStream; const Count: Int64; const Key: TRC4Key); OVERLOAD;
+procedure rc4encriptfile(Source, Dest: TStream; const Pass: String); OVERLOAD;
+procedure rc4encriptfile(Source, Dest: String; const Pass: String); OVERLOAD;
+implementation
+procedure MakeRC4KeyByPassword(const Pass: PByte; const PassLen: Integer; out Key: TRC4Key);
+var p: PByte;
+    tmp, k, i, j: Byte;
+begin
+if PassLen = 0 then
+ raise ERC4Error.Create('RC4 (InitKey) : Password can not be blank');
+for i:= Low(Key.state) to High(Key.state) do
+  Key.state[i]:= i;
+Key.x:= 0;
+Key.y:= 0;
+k:= 0;
+j:= 0;
+for i:= Low(Key.state) to High(Key.state) do
+ begin
+ j:= j mod PassLen;
+ tmp:= Key.state[i];
+ p:= Pass;
+ Inc(p, j);
+ Inc(k, tmp + p^);
+ Inc(j);
+ Key.state[i]:= Key.state[k];
+ Key.state[k]:= tmp;
+ end;
+end;
+procedure MakeRC4KeyByPassword(const Pass: String; out Key: TRC4Key);
+begin
+MakeRC4KeyByPassword(@Pass[1], Length(Pass), Key);
+end;
+procedure rc4transform(Buffer: PByte; const BufferLen: Integer; Key: TRC4Key);
+var p: PByte;
+    tmp: Byte;
+    i: Integer;
+begin
+p:= Buffer;
+Inc(p, BufferLen - 1);
+for i:= 0 to BufferLen - 1 do
+ begin
+ Inc(Key.x);
+ tmp:= Key.state[Key.x];
+ Inc(Key.y, tmp);
+ Key.state[Key.x]:= Key.state[Key.y];
+ Key.state[Key.y]:= tmp;
+ Inc(tmp, Key.state[Key.x]);
+ p^:= p^ xor Key.state[tmp];
+ Dec(p);
+ end;
+end;
+procedure rc4transform(var Buffer: String; Key: TRC4Key);
+begin
+rc4transform(@Buffer[1], Length(Buffer), Key);
+end;
+procedure rc4transform(Source, Dest: TStream; const Count: Int64; const Key: TRC4Key);
+var M: TMemoryStream;
+begin
+M:= TMemoryStream.Create();
+try
+ M.CopyFrom(Source, Count);
+ rc4transform(M.Memory, M.Size, Key);
+ Dest.CopyFrom(M, 0);
+ finally
+ M.Free();
+ end;
+end;
+procedure rc4encriptfile(Source, Dest: TStream; const Pass: String);
+var Key: TRC4KEY;
+begin
+MakeRC4KeyByPassword(Pass, Key);
+rc4transform(Source, Dest, Source.Size, Key);
+end;
+procedure rc4encriptfile(Source, Dest: String; const Pass: String);
+var FS1, FS2: TFileStream;
+begin
+FS1:= TFileStream.Create(Source, fmOpenRead);
+FS2:= TFileStream.Create(Dest, fmCreate);
+rc4encriptfile(FS1, FS2, Pass);
+FS2.Free;
+FS1.Free;
+end;
+end.