'转载http://cyinger-smiling.blogbus.com/logs/5672032.html

Private Function QpDecode(inString As String) As String  

  Dim myB     As Byte
  Dim myByte1     As Byte, myByte2       As Byte
  Dim convStr()     As Byte
  Dim mOutByte     As Byte
  Dim FinishPercent     As Long
  Dim TotalB, k       As Long
  Dim tmpByte     As Byte
   
  convStr = StrConv(inString, vbFromUnicode)
   
  TotalB = UBound(convStr)
  For k = 0 To TotalB
        myB = convStr(k)
        If myB = Asc("=") Then
              k = k + 1
              myByte1 = convStr(k)
              If myByte1 = &HA Then
                          '如果是回车,继续
              Else
                          '取第二个字节
                    k = k + 1
                    myByte2 = convStr(k)
                    Call DecodeByte(myByte1, myByte2, mOutByte)
                    If mOutByte >= 127 Then
                          If tmpByte <> 0 Then
                                QpDecode = QpDecode & Chr(Val("&H" & Hex(tmpByte) & Hex(mOutByte)))
                                tmpByte = 0
                          Else
                                tmpByte = mOutByte
                          End If
                    Else
                          QpDecode = QpDecode & Chr(mOutByte)
                          tmpByte = 0
                    End If
              End If
          Else
                  mOutByte = myB
                  QpDecode = QpDecode & Chr(mOutByte)
          End If
  Next
  End Function
  Private Sub DecodeByte(mInByte1 As Byte, mInByte2 As Byte, mOutByte As Byte)
  Dim tbyte1     As Integer, tbyte2       As Integer
  If mInByte1 > Asc("9") Then
          tbyte1 = mInByte1 - Asc("A") + 10
  Else
          tbyte1 = mInByte1 - Asc("0")
  End If
  If mInByte2 > Asc("9") Then
          tbyte2 = mInByte2 - Asc("A") + 10
  Else
          tbyte2 = mInByte2 - Asc("0")
  End If
  mOutByte = tbyte1 * 16 + tbyte2
  End Sub
   
  Private Sub EncodeByte(mInByte As Byte, mOutStr As String)
  If (mInByte >= 33 And mInByte <= 60) Or (mInByte >= 62 And mInByte <= 126) Then
          mOutStr = Chr(mInByte)
  Else
          If mInByte <= &HF Then
                  mOutStr = "=0" & Hex(mInByte)
          Else
                  mOutStr = "=" & Hex(mInByte)
          End If
  End If
End Sub

     QP编码的规则是，对于信息中的7位字符不作重新编码，而是仅将8位的数据转成7位即可。我们可以看到，QP编码是字符对应的编码，每个未编码的二进制字符都会被编码成3个字符，即一个等号加上两个该字符的16进制值，如“=A8”，但这样的编码数为1:3，所以编码效率相对于其它编码方式而言相当低。但不可否认的是，这种编码方法非常简单，特别适合那些数据大多数是7位的ASCII码文本、偶尔插入8位字符的情况，但遗憾的是对汉字编码效果不够好，因为每个双字节汉字经过编码后会变成6个字节。具体规则如下：

    ①将一个字元用两个十六进制数表示，然后前面再加上一个「=」（等号）字元；除非这个字元符合下面其他的规则。比如原先 ASCII 的「=」（等号）字元，其十进制数值是 61，十六进制数值为 3D，所以经过 QP 编码后，变成了「=3D」。

    ②字元的数值（十进制数）介于 33 到 60、及 62 到 126 者不必经过编码。（61 是「等号」）

    ③字元 TAB 或 SPACE 可以不经编码，但是不经编码的 TAB 或SPACE 不可以放在编码后每行字串的末尾；也就是說编码后的內容，一行字串中如果有 TAB 或 SPACE 的話，其后面一定还有其它的字元。