哪位仁兄能将此改写成VB.NET的?
这个处理不了 StrConv(buff, vbunicode)--------------------编程问答-------------------- 已经解决!多谢! --------------------编程问答-------------------- 解决了，接分。 --------------------编程问答--------------------
Public Function Decode(ByVal s As String) As String '解密
On Error GoTo myerr
initkey
Dim i As Long, J As Long
Dim k As Long, n As Long
Dim mstr As String
mstr = "abcdefghijklmnopqrstuvwxyz0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim outstr As String
Dim temps As String
If Len(s) Mod 2 = 1 Then
Decode = ""
Exit Function
End If
Dim t1 As String
Dim t2 As String
Dim buff() As Byte
Dim m As Long
m = 0
For i = 1 To Len(s) Step 2
t1 = Mid(s, i, 1)
t2 = Mid(s, i + 1, 1)
J = InStr(1, mstr, t1)
k = InStr(1, mstr, t2)
n = J - 1 + (k - 1) * Len(mstr)
ReDim Preserve buff(m)
buff(m) = n
m = m + 1
Next
k = UBound(key) + 1
For i = 0 To UBound(buff)
J = i Mod k
buff(i) = buff(i) Xor key(J)
Next
Decode = StrConv(buff, vbunicode)
Exit Function
myerr:
Decode = ""
End Function
StrConv是自定义函数吧。
我也接分。哈哈哈。 --------------------编程问答-------------------- 我也来接一下 --------------------编程问答-------------------- 接分
--------------------编程问答--------------------
嘿 解决了就好
--------------------编程问答--------------------
接分~
--------------------编程问答--------------------
CStr（）
--------------------编程问答--------------------
接分~~~~~~~~~~~~~~~~~~~~~
--------------------编程问答--------------------
没人回复时你可以删除你自己的帖子，有人回复了就不能删除了，只能把分发下来了，呵呵
--------------------编程问答--------------------
这、、、、、...
--------------------编程问答--------------------
顶...
--------------------编程问答--------------------
mak
--------------------编程问答--------------------
接一分是一分
--------------------编程问答--------------------
接下分先!~~~
--------------------编程问答--------------------
说的很对。 --------------------编程问答-------------------- 抢分啦
补充：.NET技术 , VB.NET
