无忧启动论坛

标题: 如何解出网络共享密码 [打印本页]

作者: AJLENG 时间: 2006-6-22 15:24
标题: 如何解出网络共享密码
《如何解出网络共享密码》相关程序代码

Private Sub Command1_Click()
strlength = Len(Text1.Text)
If strlength = 0 Or strlength / 2 <> Int(strlength / 2) Or strlength > 16 Then
      Text2.Text = "未填入密文或填写有误！"
Else
      xorvalue = "359a4da653a9d46a"
      strtemp = ""
      Text2.Text = ""
      For i = 1 To strlength Step 2
         strvalue = Val("&H" + Mid(Text1.Text, i, 2)) Xor Val("&H" + Mid(xorvalue, i, 2))
         strtemp = strtemp + Chr(strvalue)
         Text2.Text = strtemp
      Next i
End If
End Sub

谁能帮我用软件写一写?谢谢了

欢迎光临无忧启动论坛 (http://bbs.wuyou.net/)