哪位仁兄能将此改写成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