如何解出网络共享密码

青苹果 · 发表于 2006-4-2 18:41:20

马上注册，结交更多好友，享用更多功能。

您需要登录才可以下载或查看，没有帐号？注册

x

如何解出网络共享密码

liaofa · 发表于 2006-4-3 13:48:05

支持!!!!!!!!!!!!!!!!!!!!!

fanliao · 发表于 2006-4-5 01:27:26

云南小哥 · 发表于 2006-4-6 10:15:51

谢谢

277200517 · 发表于 2006-4-6 20:46:36

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

看不懂,不知道该怎么用,,楼主能给解释一下吗?

谢谢....

tony604 · 发表于 2006-4-11 11:11:06

vbdfgv

hbczzfh · 发表于 2006-4-15 06:16:51

nojsoj · 发表于 2006-4-18 10:23:15

学习。

枫明岐天 · 发表于 2006-4-24 09:27:23

路过，瞅瞅
还是要支持一下咯

独行闪客 · 发表于 2006-4-25 13:20:40

多谢

gaohui_6688 · 发表于 2006-4-30 13:22:57

我也想看，就是不行？

hf750808xm · 发表于 2006-5-9 09:15:12

谢谢

hf750808xm · 发表于 2006-5-9 09:16:09

还有什么好东西,多传点

朱延鹏 · 发表于 2006-5-9 09:36:29

szgfy · 发表于 2006-5-12 18:04:57

不是吧,给的是代码啊,用程序啊>

gddnnl · 发表于 2006-5-12 21:13:01

看不懂呀
大哥

zzg605 · 发表于 2006-5-13 18:11:45

好东西

hello666 · 发表于 2006-5-19 00:09:46

支持

wsxqaz123 · 发表于 2006-5-19 14:57:48

好好

poiuytrok · 发表于 2006-5-22 17:36:46

需要谢谢版主

帐号		自动登录	找回密码
密码			注册