請教各位
我找了許多中英文網站範例網站
就是找不到 可以解 '"中文"' base64 郵件編碼的範例ㄝ
是否 能 Po 在這給我參考一下呢?
我找了許多中英文網站範例網站
就是找不到 可以解 '"中文"' base64 郵件編碼的範例ㄝ
是否 能 Po 在這給我參考一下呢?
文章標籤
全站熱搜
- 3月 22 週六 200319:35
Base 64 的中文郵件解碼方法(編號：27951)
小吳 VBQA 程式設計討論
提供小吳 VBQA 包含VB6,VB 2003,VB 2005,VB 2008,VB 2010,VB.NET,Visual Studio,Visual Basic,程式設計,C#,ASP.NET , Windows From , SQL Server , Crystal Report,VBA,HTML,網頁設計,微軟,98,XP,Lotus Notes,KB .
部落格全站分類：數位生活
文章分類
- Timer (335)
- ODBC (388)
- Print (641)
- DragDrop (9)
- MSComm (336)
- Picture (447)
- ADODC (752)
- 公因數 (20)
- Label (292)
- Datareport (778)
- 封裝 (451)
- RichTextBox (165)
- webcam (5)
- MSFlexGrid (135)
- 進位 (121)
- Office (5)
- 輸入法 (73)
- Datagrid (422)
- Notes (10)
- Mapi (34)
- Outlook (74)
- Run-Time Error (29)
- Jmail (6)
- MP3 (77)
- 信用卡 (8)
- E-Mail (119)
- Base64 (8)
- VBScript (24)
- XML (39)
- FlexGrid (21)
- DIR (41)
- Word (104)
- 文字檔 (376)
- Big5 (18)
- MSN (23)
- MsChart (74)
- DataGrid (33)
- 壓縮 (40)
- 字串 (480)
- MSDN (87)
- ASP (521)
- 陣列 (210)
- From (2,327)
- Shape (71)
- 資源檔 (26)
- Treeview (55)
- 心冷熱情熄 (2)
- VB.NET (51)
- 小吳 (51)
- MySQL (5)
- DirListBox (5)
- Flash (7)
- FileListBox (23)
- 網路安全 (5)
- Web services (1)
- ADODB (35)
- Line (15)
- HTML (34)
- Win32 (1)
- 繪圖 (5)
- ASCII (70)
- COM Port (2)
- ComboBox (11)
- IE (267)
- FoxPro (1)
- ListView (88)
- ActiveX (79)
- PictureBox (185)
- Shell (118)
- Image (60)
- Error (63)
- ADO (642)
- 亂碼 (23)
- IIS (11)
- RS232 (158)
- USB (72)
- WebBrowser (5)
- 滑鼠 (241)
- 鍵盤 (59)
- 資料庫 (1,304)
- Unicode (8)
- Recordset (36)
- Winsock (511)
- 安裝 (5)
- DLL (615)
- OCX (195)
- HTML (74)
- TextBox (1,057)
- MDI (152)
- API (445)
- 倚天 (2)
- Crystal Report (710)
- ListBox (115)
- 列印 (525)
- SQL (1,400)
- 程式設計 (12)
- VB (5,631)
- Access (285)
- VBA (16)
- Excel (189)
- 未分類文章 (1)
請善用全文搜尋,關鍵字 base64 中文 搜尋結果"Winsock傳送文字檔????"有參考資料
嗯嗯!!! 感謝您 這篇我有看過 但是看不懂 所以還是不會寫解碼的方式@@
我有找到一個但是有中文就 解不出來了 Const sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" ' -------------------------------------- ' --------------------------------------- Function Base64decode(ByVal asContents) Dim lsResult Dim lnPosition Dim lsGroup64, lsGroupBinary Dim Char1, Char2, Char3, Char4 Dim Byte1, Byte2, Byte3 If Len(asContents) Mod 4 ＞ 0 Then asContents = asContents & String(4 - (Len(asContents) Mod 4), " ") lsResult = "" For lnPosition = 1 To Len(asContents) Step 4 lsGroupBinary = "" lsGroup64 = Mid(asContents, lnPosition, 4) Char1 = InStr(sBASE_64_CHARACTERS, Mid(lsGroup64, 1, 1)) - 1 Char2 = InStr(sBASE_64_CHARACTERS, Mid(lsGroup64, 2, 1)) - 1 Char3 = InStr(sBASE_64_CHARACTERS, Mid(lsGroup64, 3, 1)) - 1 Char4 = InStr(sBASE_64_CHARACTERS, Mid(lsGroup64, 4, 1)) - 1 Byte1 = Chr(((Char2 And 48) \ 16) Or (Char1 * 4) And &HFF) Byte2 = lsGroupBinary & Chr(((Char3 And 60) \ 4) Or (Char2 * 16) And &HFF) Byte3 = Chr((((Char3 And 3) * 64) And &HFF) Or (Char4 And 63)) lsGroupBinary = Byte1 & Byte2 & Byte3 lsResult = lsResult + lsGroupBinary Next Base64decode = lsResult End Function
那篇文章就有個副程式可以直接使用,不用自己寫
還是很感謝您 不過您可能會錯意了!! ＞＞就是找不到 可以解 '"中文"' base64 郵件編碼的範例 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 我是需要解的方法,而不是編碼的方式. 還是說那篇文章有解的方法呢? 煩請與指教 我怎麼看都是編碼的方式說 @@"
中文 base64的編碼? .....你要不要在確定一下你的問題阿?...base64編碼我記得跟何種語言無關阿
愕!!! 對不起 是我問題沒問好 ＞＞解 '"中文"' base64 郵件編碼的範例 更正為 解 "中文 用base64編碼後字串" 的範例 這樣是否清楚多了 抱歉了 浪費你們這麼多寶貴時間. a-a!
To:PorE 一開始我也是會錯意了,只注意到"...base64 郵件編碼的範例" ^^^^ To:yeonghuann 我最後有找到能轉中文的副程式,的確演算法跟程式語言沒有關係 但是在vb中,Byte要轉成String的資料型態,而且能顯示中文,這程式就不能寫成 lsGroupBinary = Byte1 & Byte2 & Byte3 例如"中"編碼成"pKQ=",解碼時Byte1=&HA4 Byte2=&HA4 Byte3="" 此時要用其他的指令轉成可以顯示中文的String 很抱歉不能給你網址,因為我也是花了很多時間找的,你自己可以找看看
了解 謝謝您的回覆
請教 全文搜尋 那您是否可以提供關鍵字與您搜尋的網站給我悶 知道呢 因為我正在寫MailServer所以需要此解碼法 敢謝您
http://www.vbqa.com/discuss/vb.old/read.asp?id=28142 網友San針對這個問題,提供了解答,但目前他的網站無法連上 我另外貼一個網址http://www.aspsky.net/article/list.asp?id=2590 程式和San的網址相同,都是ASP程式碼,有需要的網友可以去看看