Unit synacode
Description
Various encoding and decoding supportFunctions and Procedures
Overview
function DecodeTriplet(const Value: AnsiString; Delimiter: AnsiChar): AnsiString; |
function DecodeQuotedPrintable(const Value: AnsiString): AnsiString; |
function DecodeURL(const Value: AnsiString): AnsiString; |
function EncodeTriplet(const Value: AnsiString; Delimiter: AnsiChar; Specials: TSpecials): AnsiString; |
function EncodeQuotedPrintable(const Value: AnsiString): AnsiString; |
function EncodeSafeQuotedPrintable(const Value: AnsiString): AnsiString; |
function EncodeURLElement(const Value: AnsiString): AnsiString; |
function EncodeURL(const Value: AnsiString): AnsiString; |
function Decode4to3(const Value, Table: AnsiString): AnsiString; |
function Decode4to3Ex(const Value, Table: AnsiString): AnsiString; |
function Encode3to4(const Value, Table: AnsiString): AnsiString; |
function DecodeBase64(const Value: AnsiString): AnsiString; |
function EncodeBase64(const Value: AnsiString): AnsiString; |
function DecodeBase64mod(const Value: AnsiString): AnsiString; |
function EncodeBase64mod(const Value: AnsiString): AnsiString; |
function DecodeUU(const Value: AnsiString): AnsiString; |
function EncodeUU(const Value: AnsiString): AnsiString; |
function DecodeXX(const Value: AnsiString): AnsiString; |
function DecodeYEnc(const Value: AnsiString): AnsiString; |
function UpdateCrc32(Value: Byte; Crc32: Integer): Integer; |
function Crc32(const Value: AnsiString): Integer; |
function UpdateCrc16(Value: Byte; Crc16: Word): Word; |
function Crc16(const Value: AnsiString): Word; |
function MD5(const Value: AnsiString): AnsiString; |
function HMAC_MD5(Text, Key: AnsiString): AnsiString; |
function MD5LongHash(const Value: AnsiString; Len: integer): AnsiString; |
function SHA1(const Value: AnsiString): AnsiString; |
function HMAC_SHA1(Text, Key: AnsiString): AnsiString; |
function SHA1LongHash(const Value: AnsiString; Len: integer): AnsiString; |
Description
function Crc16(const Value: AnsiString): Word; |
return CRC16 from a value string.
function Crc32(const Value: AnsiString): Integer; |
return CRC32 from a value string.
function Decode4to3(const Value, Table: AnsiString): AnsiString; |
Decode 4to3 encoding with given table. If some element is not found in table,
first item from table is used. This is good for buggy coded items by Microsoft
Outlook. This software sometimes using wrong table for UUcode, where is used
' ' instead '`'.
function Decode4to3Ex(const Value, Table: AnsiString): AnsiString; |
Decode 4to3 encoding with given REVERSE table. Using this function with
reverse table is much faster then Decode4to3. This function is used
internally for Base64, UU or XX decoding.
function DecodeBase64(const Value: AnsiString): AnsiString; |
Decode string from base64 format.
function DecodeBase64mod(const Value: AnsiString): AnsiString; |
Decode string from modified base64 format. (used in IMAP, for example.)
function DecodeQuotedPrintable(const Value: AnsiString): AnsiString; |
Decodes a string from quoted printable form. (also decodes triplet sequences
like '=7F')
function DecodeTriplet(const Value: AnsiString; Delimiter: AnsiChar): AnsiString; |
Decodes triplet encoding with a given character delimiter. It is used for
decoding quoted-printable or URL encoding.
function DecodeURL(const Value: AnsiString): AnsiString; |
Decodes a string of URL encoding. (also decodes triplet sequences like '%7F')
function DecodeUU(const Value: AnsiString): AnsiString; |
Decodes a string from UUcode format.
function DecodeXX(const Value: AnsiString): AnsiString; |
Decodes a string from XXcode format.
function DecodeYEnc(const Value: AnsiString): AnsiString; |
decode line with Yenc code. This code is sometimes used in newsgroups.
function Encode3to4(const Value, Table: AnsiString): AnsiString; |
Encode by system 3to4 (used by Base64, UU coding, etc) by given table.
function EncodeBase64(const Value: AnsiString): AnsiString; |
Encodes a string to base64 format.
function EncodeBase64mod(const Value: AnsiString): AnsiString; |
Encodes a string to modified base64 format. (used in IMAP, for example.)
function EncodeQuotedPrintable(const Value: AnsiString): AnsiString; |
Encodes a string to triplet quoted printable form. All NonAsciiChar
are encoded.
function EncodeSafeQuotedPrintable(const Value: AnsiString): AnsiString; |
Encodes a string to triplet quoted printable form. All NonAsciiChar and
SpecialChar are encoded.
function EncodeTriplet(const Value: AnsiString; Delimiter: AnsiChar; Specials: TSpecials): AnsiString; |
Performs triplet encoding with a given character delimiter. Used for encoding
quoted-printable or URL encoding.
function EncodeURL(const Value: AnsiString): AnsiString; |
Encodes a string to URL format. Used to encode critical characters in all
URLs.
function EncodeURLElement(const Value: AnsiString): AnsiString; |
Encodes a string to URL format. Used for encoding data from a form field in
HTTP, etc. (Encodes all critical characters including characters used as URL
delimiters ('/',':', etc.)
function EncodeUU(const Value: AnsiString): AnsiString; |
encode UUcode. it encode only datas, you must also add header and footer for
proper encode.
function HMAC_MD5(Text, Key: AnsiString): AnsiString; |
Returns a binary string with HMAC-MD5 hash.
function HMAC_SHA1(Text, Key: AnsiString): AnsiString; |
Returns a binary string with HMAC-SHA1 hash.
function MD5(const Value: AnsiString): AnsiString; |
Returns a binary string with a RSA-MD5 hashing of "Value" string.
function MD5LongHash(const Value: AnsiString; Len: integer): AnsiString; |
Returns a binary string with a RSA-MD5 hashing of string what is constructed
by repeating "value" until length is "Len".
function SHA1(const Value: AnsiString): AnsiString; |
Returns a binary string with a SHA-1 hashing of "Value" string.
function SHA1LongHash(const Value: AnsiString; Len: integer): AnsiString; |
Returns a binary string with a SHA-1 hashing of string what is constructed
by repeating "value" until length is "Len".
function UpdateCrc16(Value: Byte; Crc16: Word): Word; |
Returns a new CRC16 value after adding a new byte of data.
function UpdateCrc32(Value: Byte; Crc32: Integer): Integer; |
Returns a new CRC32 value after adding a new byte of data.
Types
TSpecials = set of AnsiChar; |
|
Constants
SpecialChar: TSpecials =
['=', '(', ')', '[', ']', '<', '>', ':', ';', ',', '@', '/', '?', '\',
'"', '_']; |
|
NonAsciiChar: TSpecials =
[Char(0)..Char(31), Char(127)..Char(255)]; |
|
URLFullSpecialChar: TSpecials =
[';', '/', '?', ':', '@', '=', '&', '#']; |
|
URLSpecialChar: TSpecials =
[#$00..#$20, '_', '<', '>', '"', '%', '{', '}', '|', '\', '^', '~', '[', ']',
'`', #$7F..#$FF]; |
|
TableBase64 =
'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/='; |
|
TableBase64mod =
'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+,='; |
|
TableUU =
'`!"#$%&''()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_'; |
|
TableXX =
'+-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'; |
|
ReTablebase64 =
#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$3E +#$40
+#$40 +#$40 +#$3F +#$34 +#$35 +#$36 +#$37 +#$38 +#$39 +#$3A +#$3B +#$3C
+#$3D +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$00 +#$01 +#$02 +#$03
+#$04 +#$05 +#$06 +#$07 +#$08 +#$09 +#$0A +#$0B +#$0C +#$0D +#$0E +#$0F
+#$10 +#$11 +#$12 +#$13 +#$14 +#$15 +#$16 +#$17 +#$18 +#$19 +#$40 +#$40
+#$40 +#$40 +#$40 +#$40 +#$1A +#$1B +#$1C +#$1D +#$1E +#$1F +#$20 +#$21
+#$22 +#$23 +#$24 +#$25 +#$26 +#$27 +#$28 +#$29 +#$2A +#$2B +#$2C +#$2D
+#$2E +#$2F +#$30 +#$31 +#$32 +#$33 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40; |
|
ReTableUU =
#$01 +#$02 +#$03 +#$04 +#$05 +#$06 +#$07 +#$08 +#$09 +#$0A +#$0B +#$0C
+#$0D +#$0E +#$0F +#$10 +#$11 +#$12 +#$13 +#$14 +#$15 +#$16 +#$17 +#$18
+#$19 +#$1A +#$1B +#$1C +#$1D +#$1E +#$1F +#$20 +#$21 +#$22 +#$23 +#$24
+#$25 +#$26 +#$27 +#$28 +#$29 +#$2A +#$2B +#$2C +#$2D +#$2E +#$2F +#$30
+#$31 +#$32 +#$33 +#$34 +#$35 +#$36 +#$37 +#$38 +#$39 +#$3A +#$3B +#$3C
+#$3D +#$3E +#$3F +#$00 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40
+#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40
+#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40; |
|
ReTableXX =
#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$00 +#$40
+#$01 +#$40 +#$40 +#$02 +#$03 +#$04 +#$05 +#$06 +#$07 +#$08 +#$09 +#$0A
+#$0B +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$0C +#$0D +#$0E +#$0F
+#$10 +#$11 +#$12 +#$13 +#$14 +#$15 +#$16 +#$17 +#$18 +#$19 +#$1A +#$1B
+#$1C +#$1D +#$1E +#$1F +#$20 +#$21 +#$22 +#$23 +#$24 +#$25 +#$40 +#$40
+#$40 +#$40 +#$40 +#$40 +#$26 +#$27 +#$28 +#$29 +#$2A +#$2B +#$2C +#$2D
+#$2E +#$2F +#$30 +#$31 +#$32 +#$33 +#$34 +#$35 +#$36 +#$37 +#$38 +#$39
+#$3A +#$3B +#$3C +#$3D +#$3E +#$3F +#$40 +#$40 +#$40 +#$40 +#$40 +#$40; |
|
Generated by PasDoc 0.8.8.2 on 2005-01-19 20:01:19