引用 | 編輯
panasonic732
2005-01-29 01:28 |
樓主
▼ |
||
x0
這個程式只能針對英數編碼因為中文的ASC碼有為-12345會有錯誤 Project1.rar為執行檔...玩玩看吧...有BUG在跟我說 感謝喔 以下是編碼的程式 Dim Data1 As String, Data2 As String Dim Data1_length As Integer, Data_length As Integer, N As String Text2 = "" s1 = Array("a", "b", "c", "d", "e", "f", "h", "i", "g", "j") s2 = Array("j", "a", "b", "c", "d", "e", "f", "h", "i", "g") s3 = Array("g", "j", "a", "b", "c", "d", "e", "f", "h", "i") s4 = Array("O", "N", "t", "m", "L", "S", "o", "T", "K", "q", "n", "l", "Q", "k", "s", "M") Data1_length = Len(Text1) For S = 1 To Data1_length Data = Asc(Mid(Text1, S, 1)): Data_length = Len(Data) N = (Timer + Rnd * 1000) Mod 3 For I = 1 To .. 訪客只能看到部份內容,免費 加入會員 x0
|
引用 | 編輯
overing
2007-04-26 14:12 |
3樓
▲ ▼ |
asc跟chr改用ascw跟chrw看看...應該能連中文字有的沒的一起支援...
以前的作品 http://overing.myweb.hinet.net/hosinP3v.exe http://overing.myweb.hinet.net/code001.txt 這類型的玩意兒玩到最後的會有個共同問題 就是密文永遠都比原文常... 要解決就牽扯到壓縮技術了... x0 |
引用 | 編輯
LHB1118
2007-04-26 23:06 |
4樓
▲ ▼ |
感謝前一位大大的教導,我把程式所有的 asc 改成 ascw
chr 改成 chrw 果然可以支援中文的加密解密了,對於不是很懂的vb程式 的我又多了解一些了 x0 |
引用 | 編輯
LHB1118
2007-04-30 09:57 |
5樓
▲ ▼ |
最近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 |
引用 | 編輯
overing
2007-05-01 00:38 |
6樓
▲ |
下面是引用LHB1118於2007-04-30 09:57發表的 : 改成 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 最好是能列出輸入哪些中文字會什麼情況才會出現錯誤... x0 |