这个程式只能针对英数编码
因为中文的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

最好是能列出输入哪些中文字会什么情况才会出现错误...