Release 20
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@43 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby
parent
3541a22e2b
commit
0e6f0baa79
@ -1,5 +1,5 @@
|
||||
{==============================================================================|
|
||||
| Project : Delphree - Synapse | 001.000.000 |
|
||||
| Project : Delphree - Synapse | 001.000.001 |
|
||||
|==============================================================================|
|
||||
| Content: POP3 client |
|
||||
|==============================================================================|
|
||||
@ -140,10 +140,12 @@ end;
|
||||
{TPOP3Send.Connect}
|
||||
function TPOP3Send.Connect:Boolean;
|
||||
begin
|
||||
//Do not call this function! It is calling by LOGIn method!
|
||||
Result:=false;
|
||||
StatCount:=0;
|
||||
StatSize:=0;
|
||||
sock.CloseSocket;
|
||||
sock.LineBuffer:='';
|
||||
sock.CreateSocket;
|
||||
sock.Connect(POP3Host,POP3Port);
|
||||
if sock.lasterror<>0 then Exit;
|
||||
@ -246,7 +248,7 @@ end;
|
||||
function TPOP3Send.top(value,maxlines:integer):Boolean;
|
||||
begin
|
||||
Result:=false;
|
||||
Sock.SendString('TOP '+IntToStr(value)+IntToStr(maxlines)+CRLF);
|
||||
Sock.SendString('TOP '+IntToStr(value)+' '+IntToStr(maxlines)+CRLF);
|
||||
if readresult(true)<>1 then Exit;
|
||||
Result:=True;
|
||||
end;
|
||||
|
||||
24
smtpsend.pas
24
smtpsend.pas
@ -1,5 +1,5 @@
|
||||
{==============================================================================|
|
||||
| Project : Delphree - Synapse | 002.001.000 |
|
||||
| Project : Delphree - Synapse | 002.001.001 |
|
||||
|==============================================================================|
|
||||
| Content: SMTP client |
|
||||
|==============================================================================|
|
||||
@ -76,9 +76,12 @@ type
|
||||
function FindCap(value:string):string;
|
||||
end;
|
||||
|
||||
function SendtoRaw (mailfrom,mailto,SMTPHost:string;maildata:TStrings;Username,Password:string):Boolean;
|
||||
function Sendto (mailfrom,mailto,subject,SMTPHost:string;maildata:TStrings):Boolean;
|
||||
function SendtoEx (mailfrom,mailto,subject,SMTPHost:string;maildata:TStrings;Username,Password:string):Boolean;
|
||||
function SendtoRaw
|
||||
(mailfrom,mailto,SMTPHost:string;maildata:TStrings;Username,Password:string):Boolean;
|
||||
function Sendto
|
||||
(mailfrom,mailto,subject,SMTPHost:string;maildata:TStrings):Boolean;
|
||||
function SendtoEx
|
||||
(mailfrom,mailto,subject,SMTPHost:string;maildata:TStrings;Username,Password:string):Boolean;
|
||||
|
||||
implementation
|
||||
|
||||
@ -173,9 +176,7 @@ end;
|
||||
{TSMTPSend.AuthCram}
|
||||
function TSMTPSend.AuthCram:Boolean;
|
||||
var
|
||||
s,sm:string;
|
||||
ipad,opad:string;
|
||||
n,x:integer;
|
||||
s:string;
|
||||
begin
|
||||
Result:=false;
|
||||
Sock.SendString('AUTH CRAM-MD5'+CRLF);
|
||||
@ -479,7 +480,7 @@ function SendtoEx (mailfrom,mailto,subject,SMTPHost:string;maildata:TStrings;
|
||||
var
|
||||
t:TStrings;
|
||||
begin
|
||||
Result:=False;
|
||||
// Result:=False;
|
||||
t:=TStringList.Create;
|
||||
try
|
||||
t.assign(Maildata);
|
||||
@ -489,15 +490,18 @@ begin
|
||||
t.Insert(0,'date: '+Rfc822DateTime(now));
|
||||
t.Insert(0,'to: '+mailto);
|
||||
t.Insert(0,'from: '+mailfrom);
|
||||
result:=SendToRaw(mailfrom,mailto,SMTPHost,t,Username,Password);
|
||||
Result:=SendToRaw(mailfrom,mailto,SMTPHost,t,Username,Password);
|
||||
finally
|
||||
t.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
function Sendto (mailfrom,mailto,subject,SMTPHost:string;maildata:TStrings):Boolean;
|
||||
function Sendto
|
||||
(mailfrom,mailto,subject,SMTPHost:string;maildata:TStrings):Boolean;
|
||||
begin
|
||||
result:=SendToEx(mailfrom,mailto,subject,SMTPHost,maildata,'','');
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
||||
|
||||
114
synacode.pas
114
synacode.pas
@ -1,5 +1,5 @@
|
||||
{==============================================================================|
|
||||
| Project : Delphree - Synapse | 001.003.001 |
|
||||
| Project : Delphree - Synapse | 001.003.003 |
|
||||
|==============================================================================|
|
||||
| Content: Coding and decoding support |
|
||||
|==============================================================================|
|
||||
@ -43,38 +43,70 @@ const
|
||||
|
||||
|
||||
Crc32Tab: array[0..255] of integer = (
|
||||
$00000000, $77073096, $ee0e612c, $990951ba, $076dc419, $706af48f, $e963a535, $9e6495a3,
|
||||
$0edb8832, $79dcb8a4, $e0d5e91e, $97d2d988, $09b64c2b, $7eb17cbd, $e7b82d07, $90bf1d91,
|
||||
$1db71064, $6ab020f2, $f3b97148, $84be41de, $1adad47d, $6ddde4eb, $f4d4b551, $83d385c7,
|
||||
$136c9856, $646ba8c0, $fd62f97a, $8a65c9ec, $14015c4f, $63066cd9, $fa0f3d63, $8d080df5,
|
||||
$3b6e20c8, $4c69105e, $d56041e4, $a2677172, $3c03e4d1, $4b04d447, $d20d85fd, $a50ab56b,
|
||||
$35b5a8fa, $42b2986c, $dbbbc9d6, $acbcf940, $32d86ce3, $45df5c75, $dcd60dcf, $abd13d59,
|
||||
$26d930ac, $51de003a, $c8d75180, $bfd06116, $21b4f4b5, $56b3c423, $cfba9599, $b8bda50f,
|
||||
$2802b89e, $5f058808, $c60cd9b2, $b10be924, $2f6f7c87, $58684c11, $c1611dab, $b6662d3d,
|
||||
$76dc4190, $01db7106, $98d220bc, $efd5102a, $71b18589, $06b6b51f, $9fbfe4a5, $e8b8d433,
|
||||
$7807c9a2, $0f00f934, $9609a88e, $e10e9818, $7f6a0dbb, $086d3d2d, $91646c97, $e6635c01,
|
||||
$6b6b51f4, $1c6c6162, $856530d8, $f262004e, $6c0695ed, $1b01a57b, $8208f4c1, $f50fc457,
|
||||
$65b0d9c6, $12b7e950, $8bbeb8ea, $fcb9887c, $62dd1ddf, $15da2d49, $8cd37cf3, $fbd44c65,
|
||||
$4db26158, $3ab551ce, $a3bc0074, $d4bb30e2, $4adfa541, $3dd895d7, $a4d1c46d, $d3d6f4fb,
|
||||
$4369e96a, $346ed9fc, $ad678846, $da60b8d0, $44042d73, $33031de5, $aa0a4c5f, $dd0d7cc9,
|
||||
$5005713c, $270241aa, $be0b1010, $c90c2086, $5768b525, $206f85b3, $b966d409, $ce61e49f,
|
||||
$5edef90e, $29d9c998, $b0d09822, $c7d7a8b4, $59b33d17, $2eb40d81, $b7bd5c3b, $c0ba6cad,
|
||||
$edb88320, $9abfb3b6, $03b6e20c, $74b1d29a, $ead54739, $9dd277af, $04db2615, $73dc1683,
|
||||
$e3630b12, $94643b84, $0d6d6a3e, $7a6a5aa8, $e40ecf0b, $9309ff9d, $0a00ae27, $7d079eb1,
|
||||
$f00f9344, $8708a3d2, $1e01f268, $6906c2fe, $f762575d, $806567cb, $196c3671, $6e6b06e7,
|
||||
$fed41b76, $89d32be0, $10da7a5a, $67dd4acc, $f9b9df6f, $8ebeeff9, $17b7be43, $60b08ed5,
|
||||
$d6d6a3e8, $a1d1937e, $38d8c2c4, $4fdff252, $d1bb67f1, $a6bc5767, $3fb506dd, $48b2364b,
|
||||
$d80d2bda, $af0a1b4c, $36034af6, $41047a60, $df60efc3, $a867df55, $316e8eef, $4669be79,
|
||||
$cb61b38c, $bc66831a, $256fd2a0, $5268e236, $cc0c7795, $bb0b4703, $220216b9, $5505262f,
|
||||
$c5ba3bbe, $b2bd0b28, $2bb45a92, $5cb36a04, $c2d7ffa7, $b5d0cf31, $2cd99e8b, $5bdeae1d,
|
||||
$9b64c2b0, $ec63f226, $756aa39c, $026d930a, $9c0906a9, $eb0e363f, $72076785, $05005713,
|
||||
$95bf4a82, $e2b87a14, $7bb12bae, $0cb61b38, $92d28e9b, $e5d5be0d, $7cdcefb7, $0bdbdf21,
|
||||
$86d3d2d4, $f1d4e242, $68ddb3f8, $1fda836e, $81be16cd, $f6b9265b, $6fb077e1, $18b74777,
|
||||
$88085ae6, $ff0f6a70, $66063bca, $11010b5c, $8f659eff, $f862ae69, $616bffd3, $166ccf45,
|
||||
$a00ae278, $d70dd2ee, $4e048354, $3903b3c2, $a7672661, $d06016f7, $4969474d, $3e6e77db,
|
||||
$aed16a4a, $d9d65adc, $40df0b66, $37d83bf0, $a9bcae53, $debb9ec5, $47b2cf7f, $30b5ffe9,
|
||||
$bdbdf21c, $cabac28a, $53b39330, $24b4a3a6, $bad03605, $cdd70693, $54de5729, $23d967bf,
|
||||
$b3667a2e, $c4614ab8, $5d681b02, $2a6f2b94, $b40bbe37, $c30c8ea1, $5a05df1b, $2d02ef8d
|
||||
Integer($00000000),Integer($77073096),Integer($ee0e612c),Integer($990951ba),
|
||||
Integer($076dc419),Integer($706af48f),Integer($e963a535),Integer($9e6495a3),
|
||||
Integer($0edb8832),Integer($79dcb8a4),Integer($e0d5e91e),Integer($97d2d988),
|
||||
Integer($09b64c2b),Integer($7eb17cbd),Integer($e7b82d07),Integer($90bf1d91),
|
||||
Integer($1db71064),Integer($6ab020f2),Integer($f3b97148),Integer($84be41de),
|
||||
Integer($1adad47d),Integer($6ddde4eb),Integer($f4d4b551),Integer($83d385c7),
|
||||
Integer($136c9856),Integer($646ba8c0),Integer($fd62f97a),Integer($8a65c9ec),
|
||||
Integer($14015c4f),Integer($63066cd9),Integer($fa0f3d63),Integer($8d080df5),
|
||||
Integer($3b6e20c8),Integer($4c69105e),Integer($d56041e4),Integer($a2677172),
|
||||
Integer($3c03e4d1),Integer($4b04d447),Integer($d20d85fd),Integer($a50ab56b),
|
||||
Integer($35b5a8fa),Integer($42b2986c),Integer($dbbbc9d6),Integer($acbcf940),
|
||||
Integer($32d86ce3),Integer($45df5c75),Integer($dcd60dcf),Integer($abd13d59),
|
||||
Integer($26d930ac),Integer($51de003a),Integer($c8d75180),Integer($bfd06116),
|
||||
Integer($21b4f4b5),Integer($56b3c423),Integer($cfba9599),Integer($b8bda50f),
|
||||
Integer($2802b89e),Integer($5f058808),Integer($c60cd9b2),Integer($b10be924),
|
||||
Integer($2f6f7c87),Integer($58684c11),Integer($c1611dab),Integer($b6662d3d),
|
||||
Integer($76dc4190),Integer($01db7106),Integer($98d220bc),Integer($efd5102a),
|
||||
Integer($71b18589),Integer($06b6b51f),Integer($9fbfe4a5),Integer($e8b8d433),
|
||||
Integer($7807c9a2),Integer($0f00f934),Integer($9609a88e),Integer($e10e9818),
|
||||
Integer($7f6a0dbb),Integer($086d3d2d),Integer($91646c97),Integer($e6635c01),
|
||||
Integer($6b6b51f4),Integer($1c6c6162),Integer($856530d8),Integer($f262004e),
|
||||
Integer($6c0695ed),Integer($1b01a57b),Integer($8208f4c1),Integer($f50fc457),
|
||||
Integer($65b0d9c6),Integer($12b7e950),Integer($8bbeb8ea),Integer($fcb9887c),
|
||||
Integer($62dd1ddf),Integer($15da2d49),Integer($8cd37cf3),Integer($fbd44c65),
|
||||
Integer($4db26158),Integer($3ab551ce),Integer($a3bc0074),Integer($d4bb30e2),
|
||||
Integer($4adfa541),Integer($3dd895d7),Integer($a4d1c46d),Integer($d3d6f4fb),
|
||||
Integer($4369e96a),Integer($346ed9fc),Integer($ad678846),Integer($da60b8d0),
|
||||
Integer($44042d73),Integer($33031de5),Integer($aa0a4c5f),Integer($dd0d7cc9),
|
||||
Integer($5005713c),Integer($270241aa),Integer($be0b1010),Integer($c90c2086),
|
||||
Integer($5768b525),Integer($206f85b3),Integer($b966d409),Integer($ce61e49f),
|
||||
Integer($5edef90e),Integer($29d9c998),Integer($b0d09822),Integer($c7d7a8b4),
|
||||
Integer($59b33d17),Integer($2eb40d81),Integer($b7bd5c3b),Integer($c0ba6cad),
|
||||
Integer($edb88320),Integer($9abfb3b6),Integer($03b6e20c),Integer($74b1d29a),
|
||||
Integer($ead54739),Integer($9dd277af),Integer($04db2615),Integer($73dc1683),
|
||||
Integer($e3630b12),Integer($94643b84),Integer($0d6d6a3e),Integer($7a6a5aa8),
|
||||
Integer($e40ecf0b),Integer($9309ff9d),Integer($0a00ae27),Integer($7d079eb1),
|
||||
Integer($f00f9344),Integer($8708a3d2),Integer($1e01f268),Integer($6906c2fe),
|
||||
Integer($f762575d),Integer($806567cb),Integer($196c3671),Integer($6e6b06e7),
|
||||
Integer($fed41b76),Integer($89d32be0),Integer($10da7a5a),Integer($67dd4acc),
|
||||
Integer($f9b9df6f),Integer($8ebeeff9),Integer($17b7be43),Integer($60b08ed5),
|
||||
Integer($d6d6a3e8),Integer($a1d1937e),Integer($38d8c2c4),Integer($4fdff252),
|
||||
Integer($d1bb67f1),Integer($a6bc5767),Integer($3fb506dd),Integer($48b2364b),
|
||||
Integer($d80d2bda),Integer($af0a1b4c),Integer($36034af6),Integer($41047a60),
|
||||
Integer($df60efc3),Integer($a867df55),Integer($316e8eef),Integer($4669be79),
|
||||
Integer($cb61b38c),Integer($bc66831a),Integer($256fd2a0),Integer($5268e236),
|
||||
Integer($cc0c7795),Integer($bb0b4703),Integer($220216b9),Integer($5505262f),
|
||||
Integer($c5ba3bbe),Integer($b2bd0b28),Integer($2bb45a92),Integer($5cb36a04),
|
||||
Integer($c2d7ffa7),Integer($b5d0cf31),Integer($2cd99e8b),Integer($5bdeae1d),
|
||||
Integer($9b64c2b0),Integer($ec63f226),Integer($756aa39c),Integer($026d930a),
|
||||
Integer($9c0906a9),Integer($eb0e363f),Integer($72076785),Integer($05005713),
|
||||
Integer($95bf4a82),Integer($e2b87a14),Integer($7bb12bae),Integer($0cb61b38),
|
||||
Integer($92d28e9b),Integer($e5d5be0d),Integer($7cdcefb7),Integer($0bdbdf21),
|
||||
Integer($86d3d2d4),Integer($f1d4e242),Integer($68ddb3f8),Integer($1fda836e),
|
||||
Integer($81be16cd),Integer($f6b9265b),Integer($6fb077e1),Integer($18b74777),
|
||||
Integer($88085ae6),Integer($ff0f6a70),Integer($66063bca),Integer($11010b5c),
|
||||
Integer($8f659eff),Integer($f862ae69),Integer($616bffd3),Integer($166ccf45),
|
||||
Integer($a00ae278),Integer($d70dd2ee),Integer($4e048354),Integer($3903b3c2),
|
||||
Integer($a7672661),Integer($d06016f7),Integer($4969474d),Integer($3e6e77db),
|
||||
Integer($aed16a4a),Integer($d9d65adc),Integer($40df0b66),Integer($37d83bf0),
|
||||
Integer($a9bcae53),Integer($debb9ec5),Integer($47b2cf7f),Integer($30b5ffe9),
|
||||
Integer($bdbdf21c),Integer($cabac28a),Integer($53b39330),Integer($24b4a3a6),
|
||||
Integer($bad03605),Integer($cdd70693),Integer($54de5729),Integer($23d967bf),
|
||||
Integer($b3667a2e),Integer($c4614ab8),Integer($5d681b02),Integer($2a6f2b94),
|
||||
Integer($b40bbe37),Integer($c30c8ea1),Integer($5a05df1b),Integer($2d02ef8d)
|
||||
);
|
||||
|
||||
Crc16Tab: array[0..255] of word = (
|
||||
@ -317,8 +349,8 @@ end;
|
||||
{UpdateCrc32}
|
||||
function UpdateCrc32(value:byte;crc32:integer):integer;
|
||||
begin
|
||||
result:=((crc32 shr 8) and $00FFFFFF)
|
||||
xor crc32tab[byte(crc32 XOR integer(value)) and $000000FF];
|
||||
result:=((crc32 shr 8) and Integer($00FFFFFF))
|
||||
xor crc32tab[byte(crc32 XOR integer(value)) and Integer($000000FF)];
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
@ -327,7 +359,7 @@ function Crc32(value:string):integer;
|
||||
var
|
||||
n:integer;
|
||||
begin
|
||||
result:=$FFFFFFFF;
|
||||
result:=Integer($FFFFFFFF);
|
||||
for n:=1 to length(value) do
|
||||
result:=UpdateCrc32(ord(value[n]), result);
|
||||
end;
|
||||
@ -356,10 +388,10 @@ procedure MD5Init(var MD5Context: TMD5Ctx);
|
||||
begin
|
||||
FillChar(MD5Context, SizeOf(TMD5Ctx), #0);
|
||||
with MD5Context do begin
|
||||
State[0] := $67452301;
|
||||
State[1] := $EFCDAB89;
|
||||
State[2] := $98BADCFE;
|
||||
State[3] := $10325476;
|
||||
State[0] := Integer($67452301);
|
||||
State[1] := Integer($EFCDAB89);
|
||||
State[2] := Integer($98BADCFE);
|
||||
State[3] := Integer($10325476);
|
||||
end
|
||||
end;
|
||||
|
||||
@ -597,3 +629,5 @@ begin
|
||||
db 'Synapse coding and decoding support library by Lukas Gebauer',0
|
||||
end;
|
||||
end.
|
||||
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user