求一份Quoted-Printable编码dll 或编码方法

小小C · 发表于 2016-9-27 11:38:24

求一份 Quoted-Printable编码的代码或方法，论坛的不行！编码不了，或者说有问题。如果有人能吧这c#代码编译给dll给我也行，谢谢。烟钱还是有的！

冬天风雪来 · 发表于 2016-9-27 11:38:25

.版本 2

.子程序 QP编码, 字节集, 公开, 用于Quoted-Printable编码、URL编码
.参数原文, 字节集, , 要进行编码的字节集
.参数编码类型, 逻辑型, 可空, 真为URL，假为QP，默认为QP
.局部变量原文长度, 整数型
.局部变量 i, 整数型
.局部变量结果, 字节集
.局部变量 j, 整数型
.局部变量新码表, 字节型, , "256,2"
.局部变量临时字节, 字节型
.局部变量码表, 字节集
.局部变量 url

原文长度＝取字节集长度 (原文)
.如果真 (原文长度＜ 1)
返回 ({  })
.如果真结束
码表＝ { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 65, 66, 67, 68, 69, 70 }
.如果 (编码类型)
url ＝ 37
.否则
url ＝ 61
.如果结束
.变量循环首 (0, 255, 1, i)
新码表 [i ＋ 1] [1] ＝码表 [右移 (i, 4) ＋ 1]
新码表 [i ＋ 1] [2] ＝码表 [位与 (i, 15) ＋ 1]
.变量循环尾 ()
结果＝取空白字节集 (原文长度 × 3)
j ＝ 1
.变量循环首 (1, 原文长度, 1, i)
临时字节＝原文 [i]
结果 [j] ＝ url
结果 [j ＋ 1] ＝新码表 [临时字节＋ 1] [1]
结果 [j ＋ 2] ＝新码表 [临时字节＋ 1] [2]
j ＝ j ＋ 3
.变量循环尾 ()
返回 (结果)

.子程序 QP解码, 字节集, 公开, 用于Quoted-Printable解码,也可用来解码URL
.参数原文, 字节集, , 要进行解码的字节集
.局部变量长度, 整数型
.局部变量 i, 整数型
.局部变量结果, 字节集
.局部变量 j
.局部变量新码表, 字节型, , "70,70"
.局部变量码表, 字节集

长度＝取字节集长度 (原文)
.如果真 (长度＜ 1)
返回 ({  })
.如果真结束
码表＝ { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 65, 66, 67, 68, 69, 70 }
.变量循环首 (0, 15, 1, i)
.变量循环首 (0, 15, 1, j)
      新码表 [码表 [i ＋ 1]] [码表 [j ＋ 1]] ＝左移 (i, 4) ＋ j
.变量循环尾 ()
.变量循环尾 ()
结果＝取空白字节集 (长度 ÷ 3)
j ＝ 1
.变量循环首 (2, 长度－ 1, 3, i)
结果 [j] ＝新码表 [原文 [i]] [原文 [i ＋ 1]]
j ＝ j ＋ 1
.变量循环尾 ()
返回 (结果)

可行的话就拿烟钱.............................

韦贝贝 · 发表于 2016-9-27 13:36:29

子程序 Quoted_Printable解码, 文本型, 公开
.参数文本, 文本型
.局部变量循环容器, 整数型
.局部变量 Len, 整数型
.局部变量 HEX, 文本型
.局部变量目标, 文本型
.局部变量 H, 整数型
.局部变量 L, 整数型

Len ＝取文本长度 (文本)
循环容器＝ 1
HEX ＝ “0123456789ABCDEF”
.判断循环首 (循环容器 ≤ Len)
.判断开始 (取文本中间 (文本, 循环容器, 1) ≠ “=”)
      目标＝目标＋取文本中间 (文本, 循环容器, 1)
.默认
      .如果真 (取文本中间 (文本, 循环容器＋ 1, 2) ＝ #换行符)
         循环容器＝循环容器＋ 3
         到循环尾 ()
      .如果真结束
      循环容器＝循环容器＋ 1
      H ＝寻找文本 (HEX, 到大写 (取文本中间 (文本, 循环容器, 1)), , 假) － 1
      循环容器＝循环容器＋ 1
      L ＝寻找文本 (HEX, 到大写 (取文本中间 (文本, 循环容器, 1)), , 假) － 1
      目标＝目标＋字符 (H × 16 ＋ L)
.判断结束
循环容器＝循环容器＋ 1
.判断循环尾 ()
返回 (目标)