加入我的最愛 設為首頁 風格修改
首頁 首尾
 手機版   訂閱   地圖  簡體 
您是第 6136 個閱讀者
 
發表文章 發表投票 回覆文章
  可列印版   加為IE收藏   收藏主題   上一主題 | 下一主題   

頭像
個人文章 個人相簿 個人日記 個人地圖
路人甲
級別: *
推文 x 鮮花 x
 分享: 轉寄此文章 Facebook Plurk Twitter ▼ 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片
推文 x0
[Basic][範例] 編碼加密(英數版)

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容


此文章被評分,最近評分記錄
財富:20 (by codeboy) | 理由: 很好的範例~版主一樣給錢~
獻花 x0 回到頂端 [樓 主] | Posted：2005-01-29 01:28 |
angel2005 手機
數位造型
個人文章 個人相簿 個人日記 個人地圖
路人甲
級別: 路人甲 該用戶目前不上站
推文 x0 鮮花 x22
 分享: 轉寄此文章 Facebook Plurk Twitter ▲ ▼ 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

這編碼是取亂數的嗎 表情
版面排滴不錯~謝謝分享 表情


愛=背叛+痛苦+心死+孤獨
獻花 x0 回到頂端 [1 樓] From：台灣中華電信 | Posted：2005-04-17 16:24 |
LHB1118
數位造型
個人文章 個人相簿 個人日記 個人地圖
路人甲
級別: 路人甲 該用戶目前不上站
推文 x0 鮮花 x0
 分享: 轉寄此文章 Facebook Plurk Twitter ▲ ▼ 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

感謝大大分享~
    下載回去， 研究看看~ 表情


獻花 x0 回到頂端 [2 樓] From：臺灣中華HiNet | Posted：2007-04-16 10:03 |
overing 手機
個人文章 個人相簿 個人日記 個人地圖
初露鋒芒
級別: 初露鋒芒 該用戶目前不上站
推文 x0 鮮花 x55
 分享: 轉寄此文章 Facebook Plurk Twitter ▲ ▼ 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

asc跟chr改用ascw跟chrw看看...應該能連中文字有的沒的一起支援...

以前的作品
http://overing.myweb.hin...inP3v.exe
http://overing.myweb.hi...de001.txt

這類型的玩意兒玩到最後的會有個共同問題
就是密文永遠都比原文常...
要解決就牽扯到壓縮技術了... 表情
Zippy G2 600W
Intel C2Q Q9550
Gigabyte GA-X48-DQ6
Gigabyte GV-NX96T512H-B
G-skill pi 1100MHz 2Gx4
ACARD ANS-9010 32GB (Windows7 10sec boot!!)
WD 150GB(WD1500ADFD)/640GB(6400AASK)
獻花 x0 回到頂端 [3 樓] From：未知地址 | Posted：2007-04-26 14:12 |
LHB1118
數位造型
個人文章 個人相簿 個人日記 個人地圖
路人甲
級別: 路人甲 該用戶目前不上站
推文 x0 鮮花 x0
 分享: 轉寄此文章 Facebook Plurk Twitter ▲ ▼ 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

感謝前一位大大的教導，我把程式所有的 asc 改成 ascw
                                    chr 改成 chrw
果然可以支援中文的加密解密了，對於不是很懂的vb程式
的我又多了解一些了 表情
獻花 x0 回到頂端 [4 樓] From：臺灣 | Posted：2007-04-26 23:06 |
LHB1118
數位造型
個人文章 個人相簿 個人日記 個人地圖
路人甲
級別: 路人甲 該用戶目前不上站
推文 x0 鮮花 x0
 分享: 轉寄此文章 Facebook Plurk Twitter ▲ ▼ 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

最近try了一下這個程式，輸入中文字有些字在輸入後會發生型態不符，
按偵錯後黃色指標指著下面我標示其中一行，不知如何解決          
          Select Case N
            Case 0
                Data2 = Data2 & s1(Mid(Data, i, 1)) <===
            Case 1
              Data2 = Data2 & s2(Mid(Data, i, 1)) <===
            Case 2
                Data2 = Data2 & s3(Mid(Data, i, 1)) <===
          End Select
獻花 x0 回到頂端 [5 樓] From：臺灣 | Posted：2007-04-30 09:57 |
overing 手機
個人文章 個人相簿 個人日記 個人地圖
初露鋒芒
級別: 初露鋒芒 該用戶目前不上站
推文 x0 鮮花 x55
 分享: 轉寄此文章 Facebook Plurk Twitter ▲ 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

下面是引用LHB1118於2007-04-30 09:57發表的 :
      Select Case N
        Case 0
          Data2 = Data2 & s1(Mid(Data, i, 1)) <===
        Case 1
        Data2 = Data2 & s2(Mid(Data, i, 1)) <===
        Case 2
          Data2 = Data2 & s3(Mid(Data, i, 1)) <===
      End Select

改成       Select Case N
        Case 0
          Data2 = Data2 & s1(CVal(Mid(Data, i, 1))) <===
        Case 1
        Data2 = Data2 & s2(CVal(Mid(Data, i, 1))) <===
        Case 2
          Data2 = Data2 & s3(CVal(Mid(Data, i, 1))) <===
      End Select

最好是能列出輸入哪些中文字會什麼情況才會出現錯誤...
Zippy G2 600W
Intel C2Q Q9550
Gigabyte GA-X48-DQ6
Gigabyte GV-NX96T512H-B
G-skill pi 1100MHz 2Gx4
ACARD ANS-9010 32GB (Windows7 10sec boot!!)
WD 150GB(WD1500ADFD)/640GB(6400AASK)
獻花 x0 回到頂端 [6 樓] From：未知地址 | Posted：2007-05-01 00:38 |

首頁  發表文章 發表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind		 Processed in 0.018179 second(s),query:16 Gzip disabled
本站由 瀛睿律師事務所 擔任常年法律顧問 | 免責聲明 | 本網站已依台灣網站內容分級規定處理 | 連絡我們 | 訪客留言