开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > Email服务器 > 查看源码
uEncrypt.pas
资源名称：EMailMasterbysuperroyor.rar　[点击查看]
上传用户：yjb1804
上传日期：2021-01-30
资源大小：3105k
文件大小：11k
源码类别：

Email服务器

开发平台：

Delphi

uEncrypt.pas：源码内容
  1. unit uEncrypt;
  3. interface
  5. uses Classes,SysUtils,Forms,Dialogs,Windows;
  7. type 
  8.   ICipher=interface
  9.     function DecodeString(const S:String):string;
  10.     function EncodeString(const S:String):string;
  11.     
  12.     procedure  DecodeStream( Stream:TMemoryStream);
  13.     procedure EncodeStream( Stream:TMemoryStream);
  14.   end;
  16.   TBaseCipher=class(TInterfacedObject,ICipher)
  17.   public
  18.     procedure  DecodeStream( Stream:TMemoryStream);
  19.     procedure EncodeStream( Stream:TMemoryStream);
  21.     function DecodeString(const S:String):string;virtual;abstract;
  22.     function EncodeString(const S:String):string;virtual;abstract;
  23.   end;
  25.   TMIMECipher=class(TBaseCipher)   //Base64加密解密
  26.   protected
  27.     function  MimeDecodePartial (const InputBuffer; const InputBytesCount: Cardinal;
  28.         out OutputBuffer; var ByteBuffer: Cardinal; var ByteBufferSpace: Cardinal): Cardinal;
  29.     function MimeDecodePartialEnd (out OutputBuffer; const ByteBuffer: Cardinal;
  30.       const ByteBufferSpace: Cardinal): Cardinal;
  31.     procedure MimeEncodeNoCRLF (const InputBuffer; const InputByteCount: Cardinal; out OutputBuffer);
  32.     function MimeEncodedSize (const i: Cardinal): Cardinal;
  33.     procedure MimeEncodeFullLines (const InputBuffer; const InputByteCount: Cardinal; out OutputBuffer);
  34.     procedure MimeEncode (const InputBuffer; const InputByteCount: Cardinal; out OutputBuffer);
  35.   public
  36.     function DecodeString (const s: String): String; override;
  37.     function EncodeString (const s: String): String; override;
  38.   end;
  40. implementation
  42. const
  43.   MIME_ENCODED_LINE_BREAK = 76;
  44.   MIME_DECODED_LINE_BREAK = MIME_ENCODED_LINE_BREAK div 4 * 3;
  45.   BUFFER_SIZE        = MIME_DECODED_LINE_BREAK * 3 * 4 * 16;
  46.   MIME_ENCODE_TABLE  : array[0..63] of Byte = (
  47.     065, 066, 067, 068, 069, 070, 071, 072, // 00 - 07
  48.     073, 074, 075, 076, 077, 078, 079, 080, // 08 - 15
  49.     081, 082, 083, 084, 085, 086, 087, 088, // 16 - 23
  50.     089, 090, 097, 098, 099, 100, 101, 102, // 24 - 31
  51.     103, 104, 105, 106, 107, 108, 109, 110, // 32 - 39
  52.     111, 112, 113, 114, 115, 116, 117, 118, // 40 - 47
  53.     119, 120, 121, 122, 048, 049, 050, 051, // 48 - 55
  54.     052, 053, 054, 055, 056, 057, 043, 047); // 56 - 63
  56.   MIME_PAD_CHAR      = Byte ('=');
  58.   MIME_DECODE_TABLE  : array[Byte] of Cardinal = (
  59.   255, 255, 255, 255, 255, 255, 255, 255, //  00 -  07
  60.   255, 255, 255, 255, 255, 255, 255, 255, //  08 -  15
  61.   255, 255, 255, 255, 255, 255, 255, 255, //  16 -  23
  62.   255, 255, 255, 255, 255, 255, 255, 255, //  24 -  31
  63.   255, 255, 255, 255, 255, 255, 255, 255, //  32 -  39
  64.   255, 255, 255, 062, 255, 255, 255, 063, //  40 -  47
  65.   052, 053, 054, 055, 056, 057, 058, 059, //  48 -  55
  66.   060, 061, 255, 255, 255, 255, 255, 255, //  56 -  63
  67.   255, 000, 001, 002, 003, 004, 005, 006, //  64 -  71
  68.   007, 008, 009, 010, 011, 012, 013, 014, //  72 -  79
  69.   015, 016, 017, 018, 019, 020, 021, 022, //  80 -  87
  70.   023, 024, 025, 255, 255, 255, 255, 255, //  88 -  95
  71.   255, 026, 027, 028, 029, 030, 031, 032, //  96 - 103
  72.   033, 034, 035, 036, 037, 038, 039, 040, // 104 - 111
  73.   041, 042, 043, 044, 045, 046, 047, 048, // 112 - 119
  74.   049, 050, 051, 255, 255, 255, 255, 255, // 120 - 127
  75.   255, 255, 255, 255, 255, 255, 255, 255,
  76.   255, 255, 255, 255, 255, 255, 255, 255,
  77.   255, 255, 255, 255, 255, 255, 255, 255,
  78.   255, 255, 255, 255, 255, 255, 255, 255,
  79.   255, 255, 255, 255, 255, 255, 255, 255,
  80.   255, 255, 255, 255, 255, 255, 255, 255,
  81.   255, 255, 255, 255, 255, 255, 255, 255,
  82.   255, 255, 255, 255, 255, 255, 255, 255,
  83.   255, 255, 255, 255, 255, 255, 255, 255,
  84.   255, 255, 255, 255, 255, 255, 255, 255,
  85.   255, 255, 255, 255, 255, 255, 255, 255,
  86.   255, 255, 255, 255, 255, 255, 255, 255,
  87.   255, 255, 255, 255, 255, 255, 255, 255,
  88.   255, 255, 255, 255, 255, 255, 255, 255,
  89.   255, 255, 255, 255, 255, 255, 255, 255,
  90.   255, 255, 255, 255, 255, 255, 255, 255);
  91.   
  92. type
  93.  PByte4 = ^TByte4;
  94.  TByte4 = packed record
  95.   b1: Byte;
  96.   b2: Byte;
  97.   b3: Byte;
  98.   b4: Byte;
  99.  end;
  101.  PByte3 = ^TByte3;
  102.  TByte3 = packed record
  103.   b1: Byte;
  104.   b2: Byte;
  105.   b3: Byte;
  106.  end;
  108. //==============================================================================
  110.   { TBaseCipher }
  112. procedure TBaseCipher.DecodeStream(Stream: TMemoryStream);
  113. var
  114.   p:PChar;
  115.   S,Dest:string;
  116. begin
  117.   GetMem(P,Stream.Size);
  118.   try
  119.     ZeroMemory(P,Stream.Size);
  120.     CopyMemory(P,Stream.Memory,Stream.Size);
  122.     S:=StrPas(p);
  123.     Dest:=DecodeString(S);
  124.     Stream.Clear;
  125.     Stream.Position:=0;
  126.     Stream.WriteBuffer(Dest[1],Length(Dest));
  127.   finally
  128.     FreeMem(P);
  129.   end;
  130. end;
  132. procedure TBaseCipher.EncodeStream( Stream: TMemoryStream);
  133. var
  134.   p:PChar;
  135.   S,Dest:string;
  136. begin
  137.   GetMem(P,Stream.Size);
  138.   try
  139.     ZeroMemory(P,Stream.Size);
  140.     CopyMemory(P,Stream.Memory,Stream.Size);
  142.     S:=StrPas(p);
  143.     Dest:=EncodeString(S);
  144.     Stream.Clear;
  145.     Stream.Position:=0;
  146.     Stream.WriteBuffer(Dest[1],Length(Dest));
  147.   finally
  148.     FreeMem(P);
  149.   end;
  150. end;
  154. { TMIMECipher }
  155. function TMIMECipher.MimeDecodePartial (const InputBuffer; const InputBytesCount: Cardinal;
  156. out OutputBuffer; var ByteBuffer: Cardinal; var ByteBufferSpace: Cardinal): Cardinal;
  157. var
  158.  lByteBuffer, lByteBufferSpace, c: Cardinal;
  159.  InPtr, OuterLimit  : ^Byte;
  160.  OutPtr             : PByte3;
  161. begin
  162.  if InputBytesCount > 0 then
  163.   begin
  164.    InPtr := @InputBuffer;
  165.    Cardinal (OuterLimit) := Cardinal (InPtr) + InputBytesCount;
  166.    OutPtr := @OutputBuffer;
  167.    lByteBuffer := ByteBuffer;
  168.    lByteBufferSpace := ByteBufferSpace;
  169.    while InPtr <> OuterLimit do
  170.     begin
  171.      c := MIME_DECODE_TABLE[InPtr^];
  172.      Inc (InPtr);
  173.      if c = $FF then Continue;
  174.      lByteBuffer := lByteBuffer shl 6;
  175.      lByteBuffer := lByteBuffer or c;
  176.      Dec (lByteBufferSpace);
  177.      if lByteBufferSpace <> 0 then Continue;
  178.      OutPtr^.b3 := Byte (lByteBuffer);
  179.      lByteBuffer := lByteBuffer shr 8;
  180.      OutPtr^.b2 := Byte (lByteBuffer);
  181.      lByteBuffer := lByteBuffer shr 8;
  182.      OutPtr^.b1 := Byte (lByteBuffer);
  183.      lByteBuffer := 0;
  184.      Inc (OutPtr);
  185.      lByteBufferSpace := 4;
  186.     end;
  187.    ByteBuffer := lByteBuffer;
  188.    ByteBufferSpace := lByteBufferSpace;
  189.    Result := Cardinal (OutPtr) - Cardinal (@OutputBuffer);
  190.   end
  191.  else
  192.   Result := 0;
  193. end;
  195. function TMIMECipher.MimeDecodePartialEnd (out OutputBuffer; const ByteBuffer: Cardinal;
  196.   const ByteBufferSpace: Cardinal): Cardinal;
  197. var
  198.  lByteBuffer : Cardinal;
  199. begin
  200.  case ByteBufferSpace of
  201.   1:
  202.    begin
  203.     lByteBuffer := ByteBuffer shr 2;
  204.     PByte3 (@OutputBuffer)^.b2 := Byte (lByteBuffer);
  205.     lByteBuffer := lByteBuffer shr 8;
  206.     PByte3 (@OutputBuffer)^.b1 := Byte (lByteBuffer);
  207.     Result := 2;
  208.    end;
  209.   2:
  210.    begin
  211.     lByteBuffer := ByteBuffer shr 4;
  212.     PByte3 (@OutputBuffer)^.b1 := Byte (lByteBuffer);
  213.     Result := 1;
  214.    end;
  215.   else
  216.    Result := 0;
  217.  end;
  218. end;
  220. function TMIMECipher.DecodeString (const s: AnsiString): AnsiString;
  221. var
  222.  ByteBuffer, ByteBufferSpace: Cardinal;
  223.  l                  : Cardinal;
  224. begin
  225.   if Pointer (s) <> nil then
  226.   begin
  227.     l := Cardinal (Pointer (Cardinal (s) - 4)^);
  228.     SetLength (Result, (l + 3) div 4 * 3);
  229.     ByteBuffer := 0;
  230.     ByteBufferSpace := 4;
  231.     l := MimeDecodePartial (Pointer (s)^, l, Pointer (Result)^, ByteBuffer, ByteBufferSpace);
  232.     Inc (l, MimeDecodePartialEnd (Pointer (Cardinal (Result) + l)^,
  233.       ByteBuffer, ByteBufferSpace));
  234.     SetLength (Result, l);
  235.   end
  236.   else
  237.   Result := '';
  238. end;
  240. procedure TMIMECipher.MimeEncodeNoCRLF (const InputBuffer; const InputByteCount: Cardinal; out OutputBuffer);
  241. var
  242.   b, OuterLimit      : Cardinal;
  243.   InPtr, InnerLimit  : ^Byte;
  244.   OutPtr             : PByte4;
  245. begin
  246.   if InputByteCount = 0 then Exit;
  247.   InPtr := @InputBuffer;
  248.   OutPtr := @OutputBuffer;
  250.   OuterLimit := InputByteCount div 3 * 3;
  252.   InnerLimit := @InputBuffer;
  253.   Inc (Cardinal (InnerLimit), OuterLimit);
  254.   while InPtr <> InnerLimit do
  255.   begin
  256.     b := InPtr^;
  257.     b := b shl 8;
  258.     Inc (InPtr);
  259.     b := b or InPtr^;
  260.     b := b shl 8;
  261.     Inc (InPtr);
  262.     b := b or InPtr^;
  263.     Inc (InPtr);
  264.     OutPtr^.b4 := MIME_ENCODE_TABLE[b and $3F];
  265.     b := b shr 6;
  266.     OutPtr^.b3 := MIME_ENCODE_TABLE[b and $3F];
  267.     b := b shr 6;
  268.     OutPtr^.b2 := MIME_ENCODE_TABLE[b and $3F];
  269.     b := b shr 6;
  270.     OutPtr^.b1 := MIME_ENCODE_TABLE[b];
  271.     Inc (OutPtr);
  272.   end;
  273.   case InputByteCount - OuterLimit of
  274.     1:
  275.       begin
  276.         b := InPtr^;
  277.         b := b shl 4;
  278.         OutPtr.b2 := MIME_ENCODE_TABLE[b and $3F];
  279.         b := b shr 6;
  280.         OutPtr.b1 := MIME_ENCODE_TABLE[b];
  281.         OutPtr.b3 := MIME_PAD_CHAR;
  282.         OutPtr.b4 := MIME_PAD_CHAR;
  283.       end;
  284.     2:
  285.       begin
  286.         b := InPtr^;
  287.         Inc (InPtr);
  288.         b := b shl 8;
  289.         b := b or InPtr^;
  290.         b := b shl 2;
  291.         OutPtr.b3 := MIME_ENCODE_TABLE[b and $3F];
  292.         b := b shr 6;
  293.         OutPtr.b2 := MIME_ENCODE_TABLE[b and $3F];
  294.         b := b shr 6;
  295.         OutPtr.b1 := MIME_ENCODE_TABLE[b];
  296.         OutPtr.b4 := MIME_PAD_CHAR;         { Pad remaining byte. }
  297.       end;
  298.   end;
  299. end;
  302. function TMIMECipher.MimeEncodedSize (const i: Cardinal): Cardinal;
  303. begin
  304.   Result := (i + 2) div 3 * 4 + (i - 1) div MIME_DECODED_LINE_BREAK * 2;
  305. end;
  307. procedure TMIMECipher.MimeEncodeFullLines (const InputBuffer; const InputByteCount: Cardinal; out OutputBuffer);
  308. var
  309.   b, OuterLimit      : Cardinal;
  310.   InPtr, InnerLimit  : ^Byte;
  311.   OutPtr             : PByte4;
  312. begin
  313.   if InputByteCount = 0 then Exit;
  314.   InPtr := @InputBuffer;
  315.   OutPtr := @OutputBuffer;
  317.   InnerLimit := InPtr;
  318.   Inc (Cardinal (InnerLimit), MIME_DECODED_LINE_BREAK);
  320.   OuterLimit := Cardinal (InPtr);
  321.   Inc (OuterLimit, InputByteCount);
  323.   while Cardinal (InnerLimit) <= OuterLimit do
  324.   begin
  325.     while InPtr <> InnerLimit do
  326.     begin
  327.      b := InPtr^;
  328.      b := b shl 8;
  329.      Inc (InPtr);
  330.      b := b or InPtr^;
  331.      b := b shl 8;
  332.      Inc (InPtr);
  333.      b := b or InPtr^;
  334.      Inc (InPtr);
  335.      OutPtr^.b4 := MIME_ENCODE_TABLE[b and $3F];
  336.      b := b shr 6;
  337.      OutPtr^.b3 := MIME_ENCODE_TABLE[b and $3F];
  338.      b := b shr 6;
  339.      OutPtr^.b2 := MIME_ENCODE_TABLE[b and $3F];
  340.      b := b shr 6;
  341.      OutPtr^.b1 := MIME_ENCODE_TABLE[b];
  342.      Inc (OutPtr);
  343.     end;
  344.     OutPtr^.b1 := 13;
  345.     OutPtr^.b2 := 10;
  346.     Inc (Cardinal (OutPtr), 2);
  348.     Inc (InnerLimit, MIME_DECODED_LINE_BREAK);
  349.   end;
  350. end;
  352. procedure TMIMECipher.MimeEncode (const InputBuffer; const InputByteCount: Cardinal; out OutputBuffer);
  353. var
  354.   IDelta, ODelta     : Cardinal;
  355. begin
  356.   MimeEncodeFullLines (InputBuffer, InputByteCount, OutputBuffer);
  357.   IDelta := InputByteCount div MIME_DECODED_LINE_BREAK;
  358.  ODelta := IDelta * (MIME_ENCODED_LINE_BREAK + 2);
  359.  IDelta := IDelta * MIME_DECODED_LINE_BREAK;
  360.  MimeEncodeNoCRLF (Pointer (Cardinal (@InputBuffer) + IDelta)^,
  361.  InputByteCount - IDelta, Pointer (Cardinal (@OutputBuffer) + ODelta)^);
  362. end;
  364. function TMIMECipher.EncodeString (const s: AnsiString): AnsiString;
  365. var
  366.  l                  : Cardinal;
  367. begin
  368.   if Pointer (s) <> nil then
  369.   begin
  370.     l := Cardinal (Pointer (Cardinal (s) - 4)^);
  371.     SetLength (Result, MimeEncodedSize (l));
  372.     MimeEncode (Pointer (s)^, l, Pointer (Result)^);
  373.   end
  374.   else
  375.     Result := '';
  376. end;
  378. end.