這個程式只能針對英數編碼
因為中文的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 ..

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

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

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

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

這類型的玩意兒玩到最後的會有個共同問題
就是密文永遠都比原文常...
要解決就牽扯到壓縮技術了...

感謝前一位大大的教導，我把程式所有的 asc 改成 ascw
                                    chr 改成 chrw
果然可以支援中文的加密解密了，對於不是很懂的vb程式
的我又多了解一些了

最近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

下面是引用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

最好是能列出輸入哪些中文字會什麼情況才會出現錯誤...